r - 如何将文本和变量粘贴到 R 中的逻辑表达式中？

Question

我想将变量粘贴到我用于对数据进行子集化的逻辑表达式中，但是子集函数在粘贴时不会将它们视为列名(无论是使用 ot 还是不使用引号)。

我有一个数据框，其中包含名为 col1、col2 等的列。我想对 colx < 0.05 的行进行子集

这确实有效:

subsetdata<-subset(dataframe, col1<0.05)

subsetdata<-subset(dataframe, col2<0.05)

这不起作用:

for (k in 1:2){
subsetdata<-subset(dataframe, paste("col",k,sep="")<0.05)
}

for (k in 1:2){
subsetdata<-subset(dataframe, noquote(paste("col",k,sep=""))<0.05)
}

我找不到答案；有什么建议吗？

Answer 1

您尝试使用 subset 使这比需要的困难得多.注意 ?subset说第二个参数(也称为子集)必须是一个表达式，而你没有给它一个表达式:

> is.expression(paste("col",1:2,sep="")<0.05)
[1] FALSE

您可以构造一个未计算的表达式，然后在将其传递给 subset 时对其进行计算，但还有更简单的方法。例如:利用 < 的向量化性质运营商。

# sample data
set.seed(21)
dataframe <- data.frame(col1=rnorm(10),col2=rnorm(10),col3=1)

logicalCols <- dataframe[,paste("col",1:2,sep="")] < 0.05
#        col1  col2
#  [1,] FALSE  TRUE
#  [2,] FALSE FALSE
#  [3,] FALSE  TRUE
#  [4,]  TRUE FALSE
#  [5,] FALSE FALSE
#  [6,] FALSE FALSE
#  [7,]  TRUE FALSE
#  [8,]  TRUE FALSE
#  [9,] FALSE  TRUE
# [10,]  TRUE  TRUE
ANY <- apply(logicalCols, 1, any)  # any colx < 0.05
ALL <- apply(logicalCols, 1, all)  # all colx < 0.05
dataframe[ANY,]
dataframe[ALL,]