按名称引用列名

Question

我发现这个解决方案给出列前缀：

m2 <- cbind(1,1:4)
colnames(m2) <- c("x","Y")
colnames(m2) <- paste("Sub", colnames(m2), sep = "_")
m2

我想做什么，通过使用其列名称，仅粘贴前缀两列x。

我尝试过的其他几件事：

colnames(m2)["x"] <- paste("Sub", colnames(m2)["x"], sep = "_")

最好的方法是什么？

所需的输出：

colnames(m2)[1] <- paste("Sub", colnames(m2)[1], sep = "_")

使用Maël的解决方案进行编辑，

我尝试执行以下操作：

m2 <- cbind(1,1:4,4:1)
colnames(m2) <- c("x","y","z")
colnames(m2)[colnames(m2) == c("x","z")] <- paste("Sub", colnames(m2)[colnames(m2) == c("x","z")], sep = "_")

Answer 1

m2 <- cbind(1,1:4)
colnames(m2) <- c("x","Y")

colnames(m2)[colnames(m2) == "x"] <- paste("Sub", colnames(m2)[colnames(m2) == "x"], sep = "_")

m2
#     Sub_x Y
#[1,]     1 1
#[2,]     1 2
#[3,]     1 3
#[4,]     1 4

使用多个值，在％中使用％：

m2 <- cbind(1,1:4,4:1)
colnames(m2) <- c("x","y","z")
colnames(m2)[colnames(m2) %in% c("x","z")] <- paste("Sub", colnames(m2)[colnames(m2) %in% c("x","z")], sep = "_")

     Sub_x y Sub_z
[1,]     1 1     4
[2,]     1 2     3
[3,]     1 3     2
[4,]     1 4     1