R 使每一列成为每组值的行

发布于10月05日

我如何将输入数据转换为下面的输出数据？对于每个Grp1，我希望指标列变成行，每个值Grp2都有一列.谢谢

输入数据数据

 structure(list(Grp1 = c("A", "A", "B", "B"), Grp2 = c("test", 
    "ctrl", "test", "ctrl"), metric1 = c(10L, 50L, 40L, 30L), metric2 = c(10L, 
    20L, 45L, 40L), metric3 = c(15L, 20L, 30L, 40L), metric4 = 1:4), class = "data.frame", row.names = c(NA, 
    -4L))

期望输出

structure(list(Grp1 = c("A", "A", "A", "A", "B", "B", "B", "B"
), metric = c("metric1", "metric2", "metric3", "metric4", "metric1", 
"metric2", "metric3", "metric4"), test = c(10L, 10L, 15L, 1L, 
40L, 45L, 30L, 3L), ctrl = c(50L, 20L, 20L, 2L, 30L, 40L, 40L, 
4L)), class = "data.frame", row.names = c(NA, -8L))

推荐答案

我们可以首先将"公制"列reshape 为"长"列，然后使用Grp2作为列名将其reshape 回宽(names_from).

library(dplyr)
library(tidyr)
df1 %>% 
   pivot_longer(cols = starts_with('metric'), names_to = 'metric') %>%
   pivot_wider(names_from = Grp2, values_from = value)

-输出

# A tibble: 8 × 4
  Grp1  metric   test  ctrl
  <chr> <chr>   <int> <int>
1 A     metric1    10    50
2 A     metric2    10    20
3 A     metric3    15    20
4 A     metric4     1     2
5 B     metric1    40    30
6 B     metric2    45    40
7 B     metric3    30    40
8 B     metric4     3     4