R $运算符对原子向量无效

Question

我有一个数据集，其中一列只有“＃”符号。 我使用以下代码删除此列。

ia <- as.data.frame(sapply(ia,gsub,pattern="#",replacement=""))

但是，在此操作之后，整数列中的一个已更改为factor。

我想知道发生了什么，我怎么能避免这种情况。 欣赏它。

Answer 1

更正确的代码版本可能是这样的：

d <- data.frame(x = as.character(1:5),y = c("a","b","#","c","d"))
> d[] <- lapply(d,gsub,pattern = "#",replace = "")
> d
  x y
1 1 a
2 2 b
3 3  
4 4 c
5 5 d

但正如您将注意到的，这种方法实际上永远不会删除违规列。 它只是用空字符串替换#值。 要删除所有#列，您可能会执行以下操作：

d <- data.frame(x = as.character(1:5),
                y = c("a","b","#","c","d"),
                z = rep("#",5))
> d[,!sapply(d,function(x) all(x == "#"))]
  x y
1 1 a
2 2 b
3 3 #
4 4 c
5 5 d

Answer 2

当然，如果你想从数据框中删除一个有问题的列，并且你知道它是哪一列，你可以只是子集。 所以，如果它是第一列：

df <- df[,-1]

如果是后面的列，则递增。