R通过部分匹配其他变量名来创建新变量名

Question

如果任何其他变量名称中存在a 或A，我想使用以下示例创建一个新变量x：

structure(list(A = 10L, a = 20L, abc = 1L), .Names = c("A", "a", "abc"), 
class = "data.frame", row.names = c(NA, -1L))

结果应该是这样的：

structure(list(A = 10L, a = 20L, abc = 1L, x = 31L), .Names = c("A", "a", 
"abc", "x"), class = "data.frame", row.names = c(NA, -1L))

我尝试通过以下方式完成此操作：

names1$x[grep("a" | "A", colnames(names1))]

导致以下错误：

““a”|“A”中的错误：操作只能用于数字、逻辑或复杂类型”

我也尝试只匹配a，但这导致NULL。

Answer 1

我们可以使用which 和grepl 来获取符合“A|a”要求的索引。

在我的代码中，我添加了一个元素b，只是为了表明b 没有被求和。除此之外，我已经复制了你的代码。

input <- structure(list(A = 10L, a = 20L, abc = 1L, b = 3L), .Names = c("A", "a", "abc", "b"), class = "data.frame", row.names = c(NA, -1L))

> input
   A  a abc b
1 10 20   1 3

那么我们可以这样做：

input$x <- sum(input[which(grepl("a|A",names(input)))])

> input
   A  a abc b  x
1 10 20   1 3 31

注意b 是如何不相加的。

希望这就是你所追求的！