R 传播后如何保持秩序

我想知道如何在传播后继续订购

data<-tibble(var=c("A","C","D","B"), score=c(1,2,4,3))

data_spread <-data%>%spread(key = var, value = score)

---

数据一个选项是转换为
因子
，将
级别
指定为“var”的
唯一
元素，以确保
顺序
是发生的顺序

library(dplyr)
library(tidyr)
data %>% 
      mutate(var = factor(var, levels = unique(var))) %>%
      spread(var, score)
# A tibble: 1 x 4
#      A     C     D     B
#  <dbl> <dbl> <dbl> <dbl>
#1     1     2     4     3

库（dplyr）
图书馆（tidyr）
数据%>%
变异（var=因子（var，级别=唯一（var）））%>%
价差（var、分数）
#一个tibble:1 x 4
#A、C、D、B
#     
#1     1     2     4     3
非常感谢您！！