如何将文本和变量粘贴到 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

您可以构造一个未计算的表达式，然后在将其传递给时对其进行计算>子集，但还有更简单的方法。例如：只需利用 < 运算符的矢量化性质。

# 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,]

Answer 2

以下是一些更接近 Jasper 方法的选项。首先，您可以将列名称定义为单独的变量，然后使用它从 data.frame 中选择变量，就好像它是一个 list （因为 >data.frame 基本上是一个 list）：

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

或者您可以这样引用列名称：

  subsetdata <- dataframe[dataframe[colname,] < 0.05, ]

最后，您可以使用 subset，尽管您需要提供一个逻辑表达式（正如 Joshua Ulrich 所指出的）：

  subsetdata <- subset(dataframe, eval(substitute(x < 0.05, list(x = as.name(colname)))))

Answer 3

我不太清楚您要做什么，但也许看到 & 和 | 在 subset 操作中使用会有所帮助。

col1 和 col2 都小于 0.05：

subsetdata<-subset(dataframe, col1 < 0.05 & col2 < 0.05)

col1 或 col2 小于 0.05：

subsetdata<-subset(dataframe, col1 < 0.05 | col2 < 0.05)

Joshua 的答案是一个很好的方法在许多列上更容易地做到这一点。