代码之家 › 专栏 › 技术社区 › J.Con

删除数据帧列表中的部分列名称-R

dataframe list regex r

J.Con · 技术社区 · 8 年前

在这个数据帧的虚拟列表中,所有列名都有一个前缀,后跟一个下划线列表中的每个数据帧都有不同的前缀,但它们都包含下划线。

如何删除列表中所有数据帧的列名中的下划线及其前面的文本?我可以单独做,但我的真实列表包含更多的数据帧。谢谢你

#add diferent prefixes to all col names
colnames(iris)<-paste('iris_',colnames(iris), sep='')

colnames(mtcars)<-paste('mt_',colnames(mtcars), sep='')

colnames(ToothGrowth)<-paste('TG_',colnames(ToothGrowth), sep='')

#create list of data frames

mylist<-list(iris, mtcars, ToothGrowth)

#name elements of list

names(mylist)<-c('iris','mtcars','ToothGrowth')

#remove prefix from colnames individually for each data frame

colnames(mylist['iris']$iris)<-sub('[^.]+\\_', '', colnames(mylist['iris']$iris))

1 回复 | 直到 8 年前

akrun 8 年前

我们可以利用 lapply 循环通过 list ,删除列名的前缀 sub ,并将名称设置为 setNames

lapply(mylist, function(x) setNames(x, sub("^[^_]*_", "", names(x))))

或使用 tidyverse ,循环通过 列表 具有 map 并删除列名的子字符串 str_remove 里面 rename_all

library(tidyverse)
map(mylist, ~  .x %>% 
                  rename_all(~ str_remove(.x, "^[^_]*_")))

推荐文章

DotFX · RegEx捕获关键字前但括号后的所有内容

1 年前

user66001 · 正则表达式用于匹配有引号和无引号的文本,并且不匹配任何部分

1 年前

perlchamp · 为什么这也匹配?

1 年前

con · Negative Lookaward在perl正则表达式中不起作用

1 年前

Andrus · 如何在sql中查找第二个匹配项

1 年前

iato · 确保正则表达式不从命名材料中的数字中提取

1 年前

vr8ce · 非成对标记中特定字符的正则表达式

1 年前

MARTIN · 交换第一个和最后一个单词,反转所有中间的字符

1 年前

Carsten · 使用最近的搜索模式更改文本块

1 年前

Eric Marceau · Grep:有没有一种特殊的方法可以将“无字符”作为“字符位置”匹配的置换?

1 年前