代码之家 › 专栏 › 技术社区 › kittygirl

如何根据R中的另一个数据帧更改列名?

kittygirl · 技术社区 · 6 年前

df1 <- data.frame(
    cola = c('1',NA,'c','1','1','e','1',NA,'c','d'),
    colb = c("A",NA,"C","D",'a','b','c','d','c','d'),
    colc = c('a',NA,'c','d','a',NA,'c',NA,'c','d'),stringsAsFactors = TRUE)

df2<-data.frame(name=c('cola','colc','colb'),
                altname=c('a','c','b'))

df1 %>% table %>% data.frame(.)

上述代码的结果如下:

   cola colb colc Freq
1     1    a    a    1
2     c    a    a    0

我要根据更改结果的列名称 df2 (例如,更改 colb 到 b )预期结果为:

      a    b    c Freq
1     1    a    a    1
2     c    a    a    0

怎么做?

1 回复 | 直到 6 年前

akrun 6 年前

我们可以用 rename_at

library(stringr)
libraryr(dplyr)
df1 %>% 
   table %>% 
   data.frame(.) %>%  
   rename_at(1:3, ~ str_remove(., "col"))

或者如果需要来自“df2”

df1 %>%
   table %>%
   data.frame(.) %>%
   rename_at(1:3, ~ setNames(as.character(df2$altname), df2$name)[.])

更新

如果“df1”中的所有列名称都不在“df2”的键/值列中,则选项为

df1 %>%
   table %>%
    data.frame(.) %>%
    rename_at(1:3, ~ coalesce(setNames(as.character(df2$altname), df2$name)[.], .))

或者使用R基

out <- df1 %>% table %>% data.frame(.)
names(out) <- sub("col", "", names(out))

如果它需要基于第二个数据集

name(out)[-4] <- df2$altname[match(names(out)[-4], df2$name)]

或与 substr

names(out) <- substring(names(out), 4)

推荐文章

Amp · 使用R ggplot2删除geom_radial中axis.line和panel.border之间的空格

6 月前

Hard_Course · 用另一列中的值替换行的最后一个非NA条目

6 月前

Mark R · 使用geom_sf()删除地球仪上不需要的网格线

6 月前

Joe · 根据对工作日和本周早些时候的日期的了解,找到一个日期

6 月前

Ben · 统计向量中的单词在字符串中出现的频率

6 月前

TheCodeNovice · R中符号格式的尾随零和其他问题[重复]

6 月前

katefull06 · 在R中使用terra修改范围时,会为单独的SpatRaster重写范围

6 月前

dez93_2000 · 在R管道子功能中引用管道对象的当前状态

6 月前

accibio · 在ggplot2中为同一变量创建两个连续的颜色渐变比例

6 月前

Mankka · 如何在Ggplot2中绘制均匀的径向图

6 月前