Tidyr扩展函数

Question

我正在尝试将一个两列数据集扩展到多个列中。下面是一个类似的数据框架。

dummydf<- data.frame(LnPD=rnorm(25,0.6,3),K=rep(x,5))

我所要做的就是重塑数据，这样每一列都是一个合适的因子(即A:E每列应该有5列)，并有相应的数字。我认为这可以做到这一点，但它一直要求提供列名：

  dummy %>% 
  group_by(K) %>%
  mutate(group_now = 1:n())
  spread(K,LnPD)

我确信这是一个简单的解决办法，但我就是想不通。它给我的另一个错误是与重复标识符有关的东西，尽管这是我自己的数据集，而不是上面的。

提前谢谢。

Answer 1

根据tbradley的评论，这对我很有效：

library(tidyverse)

x <- factor(LETTERS[1:5])
dummydf <- data.frame(LnPD=rnorm(25,0.6,3),K=rep(x,5))

dummydf %>% 
  group_by(K) %>%
  mutate(group_now = 1:n()) %>% 
  spread(K, LnPD)

#> # A tibble: 5 x 6
#>   group_now      A     B     C       D     E
#> *     <int>  <dbl> <dbl> <dbl>   <dbl> <dbl>
#> 1         1 -0.330  4.25 2.83   1.64    1.88
#> 2         2  1.56   2.51 0.348 -6.30    1.34
#> 3         3  0.589 -5.91 2.60   9.25    2.26
#> 4         4  3.47   4.83 2.89  -0.778   2.98
#> 5         5  2.22  -3.36 2.13  -0.0230  1.19