r 如果值等于 X，则保留行和列名称

Question

以下数据集

  a b c d e 
X 1 1 1 1 0
Z 1 0 0 1 0
Y 0 0 0 0 0

我想创建列表。只要一列中至少有一个值等于 1，就包含所有列名。一个包含所有行名称 (X,Z,Y) 的列表，只要至少一个行元素的值为 1。

我试过:

df[Reduce(`|`, as.data.frame(lapply(df)), function(x) x %in% 1),]

没有结果。

最后我要

x=(a,b,c,d) and z=(X,Z)

Answer 1

使用

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

> df
#   a b c d e
# X 1 1 1 1 0
# Z 1 0 0 1 0
# Y 0 0 0 0 0


names(which(colSums(df == 1) > 0))
# [1] "a" "b" "c" "d"

names(which(rowSums(df == 1) > 0))
# [1] "X" "Z"