我有 68 个数据文件 - 全部具有相同的标识符 - 但具有不同的指示符。我将这些单独的文件转换为一个列表,其中每个数据框作为一个单独的元素。
每个数据框的第一行是年份,我想将其粘贴到列名称中。我希望能够用“_”分隔它。
例如,现在列名称为 Arbeitslose,其下方的行为 2018。我希望列名称变为 Arbeitslose_2018。
我知道如何在单个数据帧上执行此操作。我使用的代码如下。
RAW_2[1,] <- as.character(RAW_2[1,]) # Converting the fist row to a character.
colnames(RAW_2) <- paste(colnames(RAW_2),RAW_2[1, ], sep = "_") # Paste Year (Row 2) and columnname
RAW_2 <- RAW_2[rownames(RAW_2) != 1, ] # Drop 1st row which is the years - now abundant
但我不知道如何对列表执行此操作。
我无法将数据框合并为一个数据框,因为列名称不是唯一的。我需要执行此步骤才能将其合并到数据集中并继续。我被迫使用列表,这让我很讨厌。
是否有捷径可寻?我完全不知道如何继续。
您可以使用lapply()
rename_col <- function(x){
colnames(x) <- paste0(colnames(x),x[1,],sep="_")
x[-1,]
}
#df_list as your list of data.frames
lapply(df_list,rename_col)
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)