根据列表变量设置多个数据帧的名称

问题描述 投票:-1回答:4

我有一个以相同方式构建的多个数据框列表。我想将每个数据框的1列的名称更改为数据框本身的名称,并附加一些文本。从几个不同的答案,我认为lapply和列表上的工作将是最好的方式。

示例数据:

df1 <- data.frame(A = 1, B = 2, C = 3)
df2 <- data.frame(A = 1, B = 2, C = 3)
dfList <- list(df1,df2)

col1 <- names(dfList)

df<-lapply(dfList, function(x) {
names(x)[1:2] <- c(col1[1:length(col1)]"appended text","Col2","Col3");x
})

问题似乎是在我的代码中为每个数据框调用“col1”变量中的正确条目。关于如何正确处理/表达这一点的任何想法?非常感谢!

r dataframe lapply names
4个回答
2
投票
df1<-data.frame(A = 1, B = 2, C = 3)
df2<-data.frame(A = 1, B = 2, C = 3)
dfList <- list(df1=df1,df2=df2)
names(dfList)
col1 <- names(dfList)

for(i in 1:length(dfList))
  names(dfList[[names(dfList[i])]])[1]<-names(dfList)[i]

dfList

2
投票

这是tidyverse的一个选项

library(tidyverse)
map(dfList, ~ .x %>%
                rename(Aappended_text = A))

如果这是基于列索引,则创建一个函数

fName <- function(lst, new_name, index){
      map(lst, ~ 
               .x %>%
                  rename_at(index, funs(paste0(., new_name))))

 }

fName(dfList, "appended_text", 1)

0
投票

我不确定我是否完全理解你的问题,但这就是你所追求的:

df1 <- data.frame(A = 1, B = 2, C = 3)
df2 <- data.frame(A = 1, B = 2, C = 3)
dfList <- list(df1,df2)

df <- lapply(dfList, function(x) {
  colnames(x) <- c(paste0(colnames(x)[1], "appended text"), colnames(x)[2:length(colnames(x))])
  return(x)
})

输出:

> df
[[1]]
  Aappended text B C
1              1 2 3

[[2]]
  Aappended text B C
1              1 2 3

0
投票

你可以简单地使用lapply

lapply(dfList, function(x) {
  names(x)[1L] <- "some text"
  x
})

但是,如果要按列表中数据框元素的名称重命名,首先需要为它们命名,例如dfList <- list(df1 = df1, df2 = df2)你不能直接用lapply(x, ...访问它们所以你需要通过索引来lapplyover你的列表,例如:

lapply(seq_along(dfList), function(i) {
  names(dfList[[i]])[1L] <- names(dfList[i])
  dfList[[i]]
})
© www.soinside.com 2019 - 2024. All rights reserved.