我试图获取单元格值为 1 的每一行的列名。但是我的尝试没有成功,有人可以提供建议吗?
library(permute)
set.seed(42)
exampledf<- data.frame(allPerms(c(1,2,3,4)))
exampledf<-head(exampledf)
我试过这个:
apply(exampledf,2,function(x){
ll<-x[1]==1
which(ll==T)
})
Dataset
X1 X2 X3 X4
1 1 2 4 3
2 1 3 2 4
3 1 3 4 2
4 1 4 2 3
5 1 4 3 2
6 2 1 3 4
My goal:
X1
X1
X1
X1
X1
X2
这是一种方法:
# construct sample data.frame
set.seed(1234)
df <- data.frame(matrix(
c(sample(1:4, 4), sample(1:4, 4),
sample(1:4, 4), sample(1:4, 4)),
ncol=4, byrow=T))
# name data.frame
names(df) <- c(paste0("x", 1:4))
# get names of variables
names(df)[apply(df, 1, function(i) which(i == 1))]
@DavidArenburg 建议的一种可能更快的方法(特别是对于大型数据集)是
names(df)[which(df == 1, arr.ind=T)[, "col"]]
因为它不需要使用apply
功能。
注意:我构建了一个不同的 data.frame,因为我没有 permute 包。
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)