string - R - 输入多个不带引号的字符串

Question

我需要输入一个字符串向量。每个元素都是一个变量名，将在后面的循环中使用。输入所有引号和逗号很痛苦——有没有办法像这样输入它(这是我可以在 Stata 中做的事情):

balance.vars <- c(a3 a4 a5_1 a5_2 a5_3 a6_1 a6_2 a6_3 a6_4
a6_5 a6_6 a8 a8_1 a8_2 a8_3 a9 a9_3
a10_1 a10_2 a10_3)
etc.

Answer 1

您可以使用 scan与 text :

balance.vars <- scan(text='a3 a4 a5_1 a5_2 a5_3 a6_1 a6_2 a6_3 a6_4
a6_5 a6_6 a8 a8_1 a8_2 a8_3 a9 a9_3
a10_1 a10_2 a10_3',what='char')

但我会避免使用许多这样的分离变量。什么不使用向量或列表？也许如果您更好地解释您的工作流程以及您想做什么，我们可以提出更多 R 风格的解决方案。

您也可以使用 paste创建这样的列表，例如:

paste(paste0('a',rep(3:10,each=3)),rep(0:3,8),sep='_')

编辑 在 OP 澄清之后，他似乎想过滤一个 data.frames 变量。

 varnames  <- colnames(d)[grepl('^a[0-9]+(_[1-3])?',colnames(d))]
 formulas <- paste(varnames, "group", sep = " ~ ") 
 res <- lapply(formulas, function(f) t.test(as.formula(f), data = d))