将自动后缀添加到列名R

Question

这可能是很基本的，但是我做不到。我想做的是在数字1-9或字母A-G中添加“自动”后缀。我该怎么做呢？  这是我尝试过的以及我想做的事情：

for(i in which(colnames(mydata)=="Expt_1")){
  names(mydata)<-paste("Expt",suffix=i)
}

这就是我需要的 Cell Expt_1 Expt_2 Expt_3 Expt_4 and so on

Answer 1

这里是一个选项，可以生成要在替换中使用的序列。

suffix <- c(1:length(which(names(mydata)=="Expt_1")))
names(mydata)[which(colnames(mydata)=="Expt_1")] <- paste0("Expt_", suffix)

Answer 2

您还可以使用set_names()包中的purrr提供添加后缀的功能：

purrr::set_names(head(mtcars), paste0("Expt_",1:ncol(mtcars)))