R个未定义列的子集

Question

我正在尝试使用子集从两个表的联合中获取值

> ans<-subset(table2, select=rownames(table1))

但我收到以下错误：

[.data.frame(x, r, vars, drop = drop) 中的错误：选择了未定义的列

给定 table1

  V2
E  x
F  x
G  x
H  x

还有table2

  V1 V2 V3 V4 V5 V6
1  A  B  C  D  E  F
2  2  5  6  4  6  8

我要获取：

E   F

6   8

Answer 1

使用了这个数据：

table1 <- structure(list(V2 = structure(c(1L, 1L, 1L, 1L), .Label = "x", class = "factor")), class = "data.frame", row.names = c("E", 
"F", "G", "H"))

structure(list(X1 = c("A", "2"), X2 = c("B", "5"), X3 = c("C", 
"6"), X4 = c("D", "4"), X5 = c("E", "6"), X6 = c("F", "8")), class = "data.frame", row.names = c(NA, 
-2L))

注意：如果数据结构是因子，这将不起作用。我组装了 table2：

table2 <- data.frame(rbind(as.character(LETTERS[1:6]), c(2, 5, 6, 4, 6, 8)), stringsAsFactors = FALSE)

那么，这行得通：

ans <- table2[, as.character(table2[1, ]) %in% rownames(table1)]

ans