根据行值对数据帧进行子集

Question

我有数据集

 df <- read.table(text = "  a b c 
                 X Y Z", header = T)

我希望根据行值进行过滤。例如。保持列的行值为X，Y 但是：

df[1,] %in% c("X", "Y")

返回

[1] FALSE FALSE FALSE

Answer 1

你很亲密。将此TRUE和FALSE值索引用于TRUE的子集。

df[, sapply(df[1, ], as.character) %in% c("X", "Y"), drop = FALSE]