在数据框中从长格式转换为宽格式

Maral Dorri 发表于常见问题

马尔·多里

我有以下数据框：

dput(Moment[1:15,])
structure(list(SectionCut = c("1", "1", "1", "1", "2", "2", "2", 
"2", "3", "3", "3", "3", "Left", "Left", "Left"), N_l = c("1", 
"2", "3", "4", "1", "2", "3", "4", "1", "2", "3", "4", "1", "2", 
"3"), UG = c("84", "84", "84", "84", "84", "84", "84", "84", 
"84", "84", "84", "84", "84", "84", "84"), S = c("12", "12", 
"12", "12", "12", "12", "12", "12", "12", "12", "12", "12", "12", 
"12", "12"), Sample = c("S00", "S00", "S00", "S00", "S00", "S00", 
"S00", "S00", "S00", "S00", "S00", "S00", "S00", "S00", "S00"
), DF = c(0.367164093630677, 0.540130283330855, 0.590662743113521, 
0.497030982705986, 0.000319303760901125, 0.000504925126205843, 
0.00051127115578891, 0.000395434233037301, 0.413218926236695, 
0.610726262711904, 0.685000816613652, 0.59474035159783, 0.483354599644366, 
0.645710184115934, 0.625883097885242)), row.names = c(NA, -15L
), class = c("tbl_df", "tbl", "data.frame"))

我想通过旋转SectionCut列来分离列的内容。我基本上会想以某种方式使用pivot_longer的反面...因此，最后，列中的值DF将显示在5个不同的列下（SectionCut = c("1", "2", "3", "left", "right")

阿克伦

我们可以在创建序列列后使用pivot_widerfromtidyrrowid

library(dplyr)
library(tidyr0
library(data.table)
Moment %>% 
     mutate(rn = rowid(SectionCut)) %>% 
     pivot_wider(names_from = SectionCut, values_from = DF)

-输出

# A tibble: 4 x 9
#  N_l   UG    S     Sample    rn   `1`      `2`   `3`   Left
#  <chr> <chr> <chr> <chr>  <int> <dbl>    <dbl> <dbl>  <dbl>
#1 1     84    12    S00        1 0.367 0.000319 0.413  0.483
#2 2     84    12    S00        2 0.540 0.000505 0.611  0.646
#3 3     84    12    S00        3 0.591 0.000511 0.685  0.626
#4 4     84    12    S00        4 0.497 0.000395 0.595 NA

本文收集自互联网，转载请注明来源。

如有侵权，请联系[email protected] 删除。