如何将突变的圆柱重新定位在原始柱面旁边？

Question

我创建了一个函数，它可以跨列变异并从每个列创建新的命名列。新列被放置在数据框的右侧，而我希望它们与每个原始列相邻。我正在寻找一种解决方案，可以推广到可能使用此函数的任何数据帧，编写一个 select 语句来重新排序列对于我的用例来说不够自动。

test_data <- data.frame(data_col_1 = c(1,2,3),
                        data_col_2 = c(1,2,3),
                        data_col_3 = c(1,2,3),
                        another_column = c("a","b","c"))


perc_funct <- function(df, columns, numerator){
  
p_f <- function(x, numerator){
  
  (x/numerator)*100
}
    j <- df %>%
     mutate( across({{columns}}, 
                    .fns = list(perc = ~p_f(.x, numerator)),
                    .names = "{col}_{fn}"))# need to figure out a way to get the columns ordered 
return(j)
}

test_data %>% perc_funct(columns = starts_with("data"), numerator = 1)

当前输出将所有新列放在右侧。

我想要的

输出将每个新列放在每个旧列的右侧。 “data_col_1” “data_col_1_perc” “data_col_2” “data_col_2_perc” “data_col_3” “data_col_3_perc” “another_column”

Answer 1

我通常会在之后使用 select(sort(names(.))) 对列进行排序：

library(dplyr)

test_data %>% 
  perc_funct(columns = starts_with("data"), numerator = 1) %>% 
  select(sort(names(.)))

#>   data_col_1 data_col_1_perc data_col_2 data_col_2_perc data_col_3
#> 1          1             100          1             100          1
#> 2          2             200          2             200          2
#> 3          3             300          3             300          3
#>   data_col_3_perc
#> 1             100
#> 2             200
#> 3             300

^{由 reprex 包 (v2.0.1)}

如果我想将其他列保留在同一位置怎么办？

只需将我的解决方案与其他 select 语句或 dplyr 动词嵌套在一起即可。作为中间步骤，您可能必须保存带有未排序列的数据框。

示例 1

这是一个包含其他三列的示例，我希望其中一些列位于最前面，一些列位于最后，而其他列则位于任意位置但保持在一起。

library(dplyr)

df <- 
  test_data %>% 
  mutate(first_col = 1, other_columns = 100, last_col = 999) %>%
  perc_funct(columns = starts_with("data"), numerator = 1)

# Unsorted:
df %>% names()
#> [1] "data_col_1"      "data_col_2"      "data_col_3"      "first_col"      
#> [5] "other_columns"   "last_col"        "data_col_1_perc" "data_col_2_perc"
#> [9] "data_col_3_perc"

# Sorted:
df %>% 
  select(
    first_col,
    df %>% select(starts_with("data")) %>% names() %>% sort(), 
    everything(),
    last_col
  ) 
#>   first_col data_col_1 data_col_1_perc data_col_2 data_col_2_perc data_col_3
#> 1         1          1             100          1             100          1
#> 2         1          2             200          2             200          2
#> 3         1          3             300          3             300          3
#>   data_col_3_perc other_columns last_col
#> 1             100           100      999
#> 2             200           100      999
#> 3             300           100      999

^{由 reprex 包 (v2.0.1) 于 2022 年 4 月 1 日创建}

示例2

还有一种使用 col_bind() 的替代方法：

如果您只想将新列放在最后，但与创建它们的列一起排序，您还可以执行以下操作：

library(dplyr)
df %>% 
  select(
    -starts_with("data")
  ) %>% bind_cols(
    df %>% 
      select(
        df %>% select(starts_with("data")) %>% names() %>% sort()
      )
  )
#>   first_col other_columns last_col data_col_1 data_col_1_perc data_col_2
#> 1         1           100      999          1             100          1
#> 2         1           100      999          2             200          2
#> 3         1           100      999          3             300          3
#>   data_col_2_perc data_col_3 data_col_3_perc
#> 1             100          1             100
#> 2             200          2             200
#> 3             300          3             300

Answer 2

使用 dplyr（自版本 1.0.0 起）移动列的推荐方法是使用 relocate()。 relocate() 支持 tidyselect 语义，但重要的是仅作用于选定的列，而保留所有其他列。在您的情况下，您可以在以 data 开头的列上使用 grep() 和 sort()。

test_data <- data.frame(column_1 = 1:3,
                        data_col_1 = c(1,2,3),
                        data_col_2 = c(1,2,3),
                        data_col_3 = c(1,2,3),
                        another_column = c("a","b","c"))


test_data %>%
  perc_funct(columns = starts_with("data"), numerator = 1) %>%
  relocate(sort(grep("^data", names(.), value = TRUE)), .before = data_col_1)

  column_1 data_col_1 data_col_1_perc data_col_2 data_col_2_perc data_col_3 data_col_3_perc another_column
1        1          1             100          1             100          1             100              a
2        2          2             200          2             200          2             200              b
3        3          3             300          3             300          3             300              c

.before （或 .after）参数指定重新定位列的位置，在这种情况下，您可以将它们放置在 data_col_1 之前。

Answer 3

另一种可能性是使用contains（）和来自原始dataframe的列顺序

test_data <- data.frame(column_1 = 1:3,
                        data_col_1 = c(1,2,3),
                        data_col_2 = c(1,2,3),
                        data_col_3 = c(1,2,3),
                        another_column = c("a","b","c"))


test_data %>% perc_funct(columns = starts_with("data"), numerator = 1) %>% 
  select(contains(test_data %>% colnames()))