6

我正在尝试比较数据框行上的值，并删除所有匹配的值

dat[!dat[1]==dat[2]]

在哪里

> dat

返回

n1  n2
n1  n4
n4  n5
n1  n3
n4  n4

所以我希望它比较值并删除最后一行，因为两列具有相同的数据。但是当我使用上面的代码时，它告诉我

Error in Ops.factor(left, right) : level sets of factors are different

str(dat)读取_

'data.frame':   5 obs. of  2 variables:
$ V1: Factor w/ 2 levels "n1","n4": 1 1 2 1 2
$ V2: Factor w/ 4 levels "n2","n3","n4",..: 1 3 4 2 3
4

2 回答 2

14

我怀疑在创建数据时，您无意中隐式地将列转换为因子。这可能发生在您从源读取数据时，例如使用read.csvor时read.table。这个例子说明了这一点：

dat <- read.table(text="
n1  n2
n1  n4
n4  n5
n1  n3
n4  n4")

str(dat)
'data.frame':   5 obs. of  2 variables:
 $ V1: Factor w/ 2 levels "n1","n4": 1 1 2 1 2
 $ V2: Factor w/ 4 levels "n2","n3","n4",..: 1 3 4 2 3

补救方法是将参数传递stringsAsFactors=FALSE给read.table()：

dat <- read.table(text="
n1  n2
n1  n4
n4  n5
n1  n3
n4  n4", stringsAsFactors=FALSE)

str(dat)
'data.frame':   5 obs. of  2 variables:
 $ V1: chr  "n1" "n1" "n4" "n1" ...
 $ V2: chr  "n2" "n4" "n5" "n3" ...

然后你的代码工作（除了我怀疑你错过了一个逗号）：

dat[!dat[1]==dat[2], ]
  V1 V2
1 n1 n2
2 n1 n4
3 n4 n5
4 n1 n3
于 2012-06-16T13:37:07.097 回答
2

一种解决方案是指示数据框不要将字符向量转换为因子（使用stringAsFactors=F）：

x <- c('n1', 'n1', 'n4', 'n1', 'n4')
y <- c('n2', 'n4', 'n5', 'n3', 'n4')
df <- data.frame(x, y, stringsAsFactors=F)
df <- df[-which(df$x == df$y), ]

创建数据框后，代码会删除匹配的行，从而产生您想要的结果。

于 2012-06-16T13:30:57.450 回答