1

我试图获得收集和传播写作的哲学。如果您有一个如下所示的数据框:

group=c("A","A","A","B","B","B")
time =c(10,20,30,10,20,30)
value=c(20,40,80,10,10,20)

data= data.frame(group,time,value)

group time value
  A   10    20
  A   20    40
  A   30    80
  B   10    10
  B   20    10
  B   30    20

你怎么能到这里

A   B   time
20 10    10
40 10    20
80 20    30

我觉得这是一个愚蠢的问题,但很有教养

4

1 回答 1

1

我们可以用pivot_wider

library(dplyr)
library(tidyr)
data %>% 
   pivot_wider(names_from = group, values_from = value)

-输出

# A tibble: 3 x 3
#   time     A     B
#  <dbl> <dbl> <dbl>
#1    10    20    10
#2    20    40    10
#3    30    80    20
于 2021-01-11T17:37:32.953 回答