仅删除 R 中的空白单元格（不是整行或整列）

Question

所以我想删除数据集中所有空白的单元格。例如，如果我有这样的东西，其中 (..) 代表空白数字：-

1 10 .. 4
.. 9 10 8
14 8 12 16

我希望能够删除空白单元格，以便产生以下结果：-

1 10 10 4
14 9 12 8
   8    16

因此，即使列长度不同，它基本上也会删除值之间的所有空白单元格并将它们拉到一起。我会在 excel 中执行此操作，但我的数据集是 6000 x 6000 长，并且包含许多 excel 无法处理的空白单元格，所以我认为它可能通过 R 处理得更快。

我已经看过用 NA 替换空字符串然后执行 na.omit 等方法，但如果它只包含一个 NA 值，它们会消除整个行/列，这不是我想要的。即使出现 NA，我也想保留列中的所有值，如果有意义的话，我只想将这些值组合在一起。

Answer 1

如果你的 data.frame 被命名为 df 那么：

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

为了得到NAs，那么：

func<-function(i){
  x<-as.numeric(as.character(df[,i][!is.na(df[,i])]))
  xna<-as.numeric(as.character(df[,i][is.na(df[,i])]))
  newx<-c(x,xna)
}

do.call(cbind,lapply(1:length(df[1,]),func))

> do.call(cbind,lapply(1:length(df[1,]),func))
     [,1] [,2] [,3] [,4]
[1,]    1   10   10    4
[2,]   14    9   12    8
[3,]   NA    8   NA   16