时间戳

首页 > 解决方案 > 重命名多个变量的命令

r - 重命名多个变量的命令

问题描述

重塑我的数据后，我有一个大型数据集，其列名如下所示： 1_abc 1_vwxyz 2_abc 2_vwxyz

我想将列名更改为如下所示：abc_1 vwxyz_1 abc_2 vwxyz_2

我的代码如下所示：

data <- tibble("1_abc" = c(1,2,3), "1_vwxyz" = c(10,11,12), 
"2_abc" = c(1,1,2),"2_vwxyz" = c(9,11,15))

data_renamed <- data %>%
rename_(.dots=setNames(names(.), paste(substr(names(.), start=3, stop=nchar(names(.))), 
                                         substr(names(.), start=1, stop=1))))

我收到此错误：

Error in parse(text = x) : <text>:1:2: unexpected input
1: 1_
     ^

标签： rdplyrrename

解决方案

这是基于 R 的解决方案。您首先将列名作为字符向量，将它们转换为二元素字符向量列表，颠倒每个字符向量的顺序，然后将它们与_.

ll <- strsplit(colnames(data), pattern = "_")

# apply across this list of character vectors to reverse the order and concatenate
ll1 <- lapply(ll, function(x) paste(rev(x), collapse = "_"))

# unlist and assign them to the new data frame
data_renamed <- data
colnames(data_renamed) <- unlist(ll1)

#  A tibble: 3 x 4
#   abc_1 vwxyz_1 abc_2 vwxyz_2
#   <dbl>   <dbl> <dbl>   <dbl>
# 1     1      10     1       9
# 2     2      11     1      11
# 3     3      12     2      15

推荐阅读