r - 自动从一个对象中提取多个变量

Question

这是我的情况。我有一个使用 read.spss 创建的对象。

> a <- read.spss(...)
> attach(a)

现在在这个对象中 a 是一组我想提取的问题，它遵循一系列问题编号:

> q3 <- data.frame(q3_1, q3_2, q3_4, ... q3_27)

有没有办法使其自动化，以便将所有以 q3_ 开头的问题从原始对象提取到新的 q3 data.frame 中？

我试过使用 paste 功能无济于事。

> q3 <- data.frame(paste("q3_",1:27,sep=""))

这只会返回一个包含粘贴序列的 data.frame。

理想情况下，我希望能够从以 qX_ 开头的问题中提取所有内容，因为某些值缺失或已过时。

Answer 1

可能性包括 grep、match 和 %in%。这是一个使用 grep 的解决方案:

R> foo <- data.frame(q1_1=1:4, q1_2=11:14, q2_1=21:24, q2_2=31:34, q3_1=41:44, q3_2=51:54)
R> colnames(foo)
[1] "q1_1" "q1_2" "q2_1" "q2_2" "q3_1" "q3_2"
R> grep("q3_", colnames(foo))
[1] 5 6
R> q3 <- foo[, grep("q3_", colnames(foo))]
R> q3
  q3_1 q3_2
1   41   51
2   42   52
3   43   53
4   44   54
R>