将长格式数据帧转换为宽格式tidyverse

下面我首先成功地长格式我的dat，但当我试图转换回它原来的宽格式，我没有得到相同的输出

有解决办法吗

library(tidyverse)

ACGR <- read.csv('https://raw.githubusercontent.com/rnorouzian/e/master/ACGR%202010-11%20to%202016-17.csv', na = "---")

dat <- ACGR %>% 
  pivot_longer(names_to = "year", values_to = "grad_rate", cols = SY2010_11:SY2016_17)


dat %>%
pivot_wider(year, grad_rate)  ## doesn't return to ACGR format HERE

  year     
  <chr>    
1 SY2010_11
2 SY2011_12
3 SY2012_13
4 SY2013_14
5 SY2014_15
6 SY2015_16
7 SY2016_17

---

试试这个。该功能的某些元素未被正确理解。将变量放在正确的参数中可以获得所需的输出。代码如下：

library(tidyverse)
#Code
Widedata <- dat %>%
  pivot_wider(names_from=year, values_from=grad_rate)

输出：

# A tibble: 51 x 9
   State                Abbr  SY2010_11 SY2011_12 SY2012_13 SY2013_14 SY2014_15 SY2015_16 SY2016_17
   <fct>                <fct>     <dbl>     <dbl>     <dbl>     <dbl>     <dbl>     <dbl>     <dbl>
 1 Alabama              AL           72        75      80        86.3      89.3      87.1      89.3
 2 Alaska               AK           68        70      71.8      71.1      75.6      76.1      78.2
 3 Arizona              AZ           78        76      75.1      75.7      77.4      79.5      78  
 4 Arkansas             AR           81        84      84.9      86.9      84.9      87        88  
 5 California           CA           76        79      80.4      81        82        83        82.7
 6 Colorado             CO           74        75      76.9      77.3      77.3      78.9      79.1
 7 Connecticut          CT           83        85      85.5      87        87.2      87.4      87.9
 8 Delaware             DE           78        80      80.4      87        85.6      85.5      86.9
 9 District of Columbia DC           59        59      62.3      61.4      68.5      69.2      73.2
10 Florida              FL           71        75      75.6      76.1      77.9      80.7      82.3
# ... with 41 more rows

---

您依赖于参数的默认顺序，data=参数之后的第一个参数是id\u cols，它可以在透视后保留为列。第二个参数是names\u，从中设置为grad\u rate

dat %>%
  pivot_wider(values_from = grad_rate,
              names_from = year, 
              id_cols = State:Abbr)