39

我有一个带有 NA 行的数据框：

 df = data.frame(c("classA", NA, "classB"), t(data.frame(rep("A", 5), rep(NA, 5), rep("B", 5))))
 rownames(df) <- c(1,2,3)
 colnames(df) <- c("class", paste("Year", 1:5, sep = ""))

 > df
   class Year1 Year2 Year3 Year4 Year5
1 classA     A     A     A     A     A
2   <NA>  <NA>  <NA>  <NA>  <NA>  <NA>
3 classB     B     B     B     B     B

我故意引入了空行（NA 行），因为我想在 classA 行和 classB 行之间留出一些空间。

现在，我想替换<NA>by 空白，使第二行看起来像一个空行。

我试过了：

 df[is.na(df)] <- ""

和

 df[df == "NA"] <- ""

但它没有用..

有任何想法吗？谢谢！

4

2 回答 2

46

另一种选择：

df <- sapply(df, as.character) # since your values are `factor`
df[is.na(df)] <- 0

如果你想要空白而不是零

> df <- sapply(df, as.character)
> df[is.na(df)] <- " "
> df
     class    Year1 Year2 Year3 Year4 Year5
[1,] "classA" "A"   "A"   "A"   "A"   "A"  
[2,] " "      " "   " "   " "   " "   " "  
[3,] "classB" "B"   "B"   "B"   "B"   "B"

如果你想要一个data.frame，那么只需使用as.data.drame

> as.data.frame(df)
   class Year1 Year2 Year3 Year4 Year5
1 classA     A     A     A     A     A
2                                     
3 classB     B     B     B     B     B
于 2013-10-25T14:38:48.460 回答
11

这个答案更像是一个扩展评论。

你试图做的不是我认为好的做法。R 不是，比如说，Excel，所以做这样的事情只是为了在你的数据中创建视觉分离只会让你以后头疼。

如果你真的只关心视觉输出，我可以提供两个建议：

  1. 当您想要查看具有该视觉分隔的数据时，请使用na.print参数 to 。print

    print(df, na.print = "")
#    class Year1 Year2 Year3 Year4 Year5
# 1 classA     A     A     A     A     A
# 2                                     
# 3 classB     B     B     B     B     B

  2. 意识到即使以上也不是最好的建议。通过将您转换为 a 来获得视觉和内容分离：data.framelist

    split(df, df$class)
# $classA
#    class Year1 Year2 Year3 Year4 Year5
# 1 classA     A     A     A     A     A
# 
# $classB
#    class Year1 Year2 Year3 Year4 Year5
# 3 classB     B     B     B     B     B
于 2013-10-25T17:55:22.607 回答