代码之家 › 专栏 › 技术社区 › Peter Chen

使用特定单词重命名多个列名

data-manipulation rename r

Peter Chen · 技术社区 · 6 年前

我有一个简单的数据如下:

# dt
NAME  ID  col3   col4   col5
AAA    1   10     20     15
BBB    3   40     20     30
CCC    6   100   200    150

我想将我的列重命名为:

# dt 
NAME  ID  col3_dt   col4_dt   col5_dt
AAA    1      10        20     15
BBB    3      40        20     30
CCC    6      100      200    150

改名 col3 col4 和 col5 col3_dt , col4_dt 和 col5_dt

colnames(dt)[3] <- "col3_dt"

然而,如果我有数百个专栏,我如何才能有效地做到这一点?

更新:
col 表示列。如果我的列名不一致,比如 AIR , BUILD 和 LEASE . 我该怎么办?

3 回复 | 直到 6 年前

niko 6 年前

你可以用 regex ,例如。

ind <- grepl('col\\d+', names(dt))
names(dt)[ind] <- paste0(names(dt)[ind], '_dt')
# or
names(dt) <- sub('^(col\\d+)$', '\\1_dt', names(dt), perl = TRUE)

编辑

# Case 1: Exact matches
ind <- names(dt) %in% c('AIR','BUILD','LEASE')
# Case 2: names are of the form 'AIR2', 'BUILD5', etc. 
pat <- paste(paste0(c('AIR','BUILD','LEASE'), '\\d+'), collapse = '|')
ind <- grepl(pat, names(dt), perl = TRUE)  
# Either way then
names(dt)[ind] <- paste0(names(dt)[ind], '_dt')

Rich Scriven 6 年前

sw <- startsWith(names(dt), "col")
names(dt)[sw] <- paste0(names(dt)[sw], "_dt")
dt
#   NAME ID col3_dt col4_dt col5_dt
# 1  AAA  1      10      20      15
# 2  BBB  3      40      20      30
# 3  CCC  6     100     200     150

ifelse() .

ifelse(startsWith(names(dt), "col"), paste0(names(dt), "_dt"), names(dt))
# [1] "NAME"    "ID"      "col3_dt" "col4_dt" "col5_dt"

对于更新的问题,您可以使用 %in% 成语代替 sw ,如@nate的回答所示。

akrun 6 年前

我们可以使用 rename_at

library(tidyverse)
df1 %>% 
   rename_at(vars(matches("col")), ~ paste0(.x, "_dt"))
#  NAME ID col3_dt col4_dt col5_dt
#1  AAA  1      10      20      15
#2  BBB  3      40      20      30
#3  CCC  6     100     200     150

数据

df1 <- structure(list(NAME = c("AAA", "BBB", "CCC"), ID = c(1L, 3L, 
 6L), col3 = c(10L, 40L, 100L), col4 = c(20L, 20L, 200L), col5 = c(15L, 
 30L, 150L)), class = "data.frame", row.names = c(NA, -3L))

推荐文章

Marc B. · 使用ggplot2创建条形图时“缺少值”

1 年前

deschen · tidyverse与外部向量发生突变,该外部向量的元素是数据帧中的列值

1 年前

Laura · 在Shiny中使用可排序的包拖放名称,这些名称将成为图表

1 年前

Mallikarjun M · 如何使用随机森林进行时间序列预测?

1 年前

ly li · 模型摘要:当表格形状改变时,拟合优度消失

1 年前

C.Robin · 将marginaffects::predictions()的结果连接回main df?

1 年前

monotonic · 如何将格式为“col1+col3+col4”的数据帧的行名转换为一列数字向量“c(1,3,4)”?

2 年前

Shawn Hemelstrand · 为什么我的自定义errorbar函数不能在R中工作?

2 年前

RoyBatty · 统计每个字符在整个数据集中出现的次数

2 年前

stats_noob · R: 记录某个“行为”发生的循环的索引?

2 年前