主页 / coding / 问题 / 77138219
Accepted
JVGen
Asked: 2023-09-20 06:11:41 +0800 CST

R：使用 tidyrivot_longer() 收集多组列

  • 772

我正在尝试收集两组列。每个集合都需要以一个新列结束，但行数据是链接的，因此顺序使用tidyr::gather()不能保证保留跨列组织。看起来tidyr::pivot_longer()可以做到这一点，但我很难过。类似的帖子在这里，但答案涉及使用 grep 重命名列，我无法解释这一点，而且这里也没有必要。

library(tidyverse)

df <- data.frame(
  Position=1:5,
  A_Width=3:7,
  B_Width=4:8,
  A_Error=seq(0, 2.0, 0.5),
  B_Error=seq(0.3, 1.5, 0.3)
  )


df <- df %>%
  tidyr::pivot_longer(
    cols=c(A_Width, B_Width, A_Error, B_Error),
    names_to= ? ,
    names_pattern= ? ,
    )

##Desired Data Frame
df_long <- data.frame(
  Position=rep(1:5,2),
  Group=c(rep("A",5), rep("B",5)),
  Width=c(3:7,4:8),
  Error=c(seq(0, 2.0, 0.5), seq(0.3, 1.5, 0.3))
  )

2 个回答

  1. Best Answer

    我们可以使用.valuewithnames_to来使用列名称的第二部分来指定这些值应该转到的新列。

    df |>
  pivot_longer(-Position, names_sep = "_", names_to = c("Group", ".value"))

    结果（按照遇到的顺序，可以排序）

    # A tibble: 10 × 4
   Position Group Width Error
      <int> <chr> <int> <dbl>
 1        1 A         3   0  
 2        1 B         4   0.3
 3        2 A         4   0.5
 4        2 B         5   0.6
 5        3 A         5   1  
 6        3 B         6   0.9
 7        4 A         6   1.5
 8        4 B         7   1.2
 9        5 A         7   2  
10        5 B         8   1.5
    • 2

  2. pivot_longer您可以使用和的组合pivot_wider

    df %>% 
  pivot_longer(-Position) %>% 
  separate(name, into = c("Group", "x"), sep = "_") %>% 
  pivot_wider(names_from = x)

# A tibble: 10 × 4
   Position Group Width Error
      <int> <chr> <dbl> <dbl>
 1        1 A         3   0  
 2        1 B         4   0.3
 3        2 A         4   0.5
 4        2 B         5   0.6
 5        3 A         5   1  
 6        3 B         6   0.9
 7        4 A         6   1.5
 8        4 B         7   1.2
 9        5 A         7   2  
10        5 B         8   1.5
    • 1

相关问题