我尝试复制数据框中的列。接下来我尝试在下面的代码中重命名列名，尽管我没有成功。

library(dplyr)

d <- data.frame(red=1:3, green=4:6, yellow=7:9)

for (q in 1:3) {
            
  d$color <- select(d, q)
  
  colnames(d)[4] <- "newcolor"

}

首先，我尝试使用d$newcolor更改名称，但没有成功。接下来，我尝试使用colnames，但也没有成功。尽管这在前3列上工作正常。
我需要一个解决方案与识别列的数字，因为我需要它作为一个循环的一部分。（我实际上试图完成填充第4列每个循环与不同的源列）
多谢了！