我正在尝试重命名df的特定列名称。
为了执行此任务，我使用一个函数通过使用for循环执行替换。
这是我的代码：
## data ##
df <- structure(list(
A = c(1,2,3),
B = c("Yes", "Yes", "No"),
C = c("John", "James", "Maria"),
D = c(45, 34, 23),
E = c(712, 777, 888)),
class = "data.frame",
row.names = c(NA, -3L))
## setting atomic vectors for original/new names ##
original_df_names <- c("A", "B", "C")
new_df_names <- c("Order", "Answer", "Name")
## function to rename columns ##
rename_fun <- function(df, original_names, new_names){
for(i in 1:seq_along(original_names)){
for(j in 1:seq_along(new_names)){
colnames(df)[which(names(df) == i)] <- j
}
}
}
## applying function ##
df <- mapply(df = df,
original_names = original_df_names,
new_names = new_df_names,
rename_fun)
控制台输出：
Error in `colnames<-`(`*tmp*`, value = `*vtmp*`) :
attempt to set 'colnames' on an object with less than two dimensions
预期产量
names(df)
[1] "Order" "Answer" "Names" "D" "E"
还有其他方法可以做到这一点吗？
我们可以利用 rename_at
library(dplyr)
df <- df %>%
rename_at(vars(all_of(original_df_names)), ~ new_df_names)
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
我来说两句