Question

重塑数据后，我有一个大型数据集，其列名如下所示： 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_ ^

我的代码如下：

vec <- c(1, 0, 0, 1, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 1)

我收到此错误：

vec <- c(1, 0, 0, 1, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 1)

Answer 1

这是基于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

重命名几个变量的命令

1 个答案: