R 如何更改图例顺序

我正试图改变我的传奇故事的顺序，但没有成功。它应该转到：S8 S9 S10，但改为转到：S10 S8 S9。我认为问题在于S10中的“1”，我尝试了许多解决方案，但似乎都不起作用

我的代码和数据：

library(ggplot2)
library(dplyr)
library(tidyverse)
data <- structure(list(S8 = c(23.887553, 23.91512, 23.893336, 23.902068, 
                              23.990071, 23.901245, 23.893439, 23.883056, 23.966471, 23.909143, 
                              23.925841, 23.907297, 23.923717, 23.924523, 23.930051, 23.940652, 
                              23.906786, 23.895772, 23.937286, 23.936345, 23.942015, 23.924175, 
                              23.957059, 23.923146, 23.889771, 23.925399, 23.931965, 23.909739, 
                              23.91116, 23.870361), 
                       S9 = c(23.914722, 23.895847, 23.916466, 
                              23.927832, 23.940209, 23.904665, 23.921734, 23.938238, 23.938333, 
                              23.862013, 23.899884, 23.960764, 23.912089, 23.963192, 23.925241, 
                              23.899518, 23.893405, 23.924374, 23.946418, 23.915391, 23.92748, 
                              23.869415, 23.914131, 23.916271, 23.923982, 23.922528, 23.872999, 
                              23.931974, 23.883386, 23.869507), 
                       S10 = c(23.91312, 23.876808, 
                               23.899456, 23.919904, 23.857124, 23.881269, 23.896357, 23.876635, 
                               23.853636, 23.86339, 23.905828, 23.883948, 23.888408, 23.87092, 
                               23.865198, 23.870296, 23.892394, 23.847406, 23.894526, 23.825204, 
                               23.831528, 23.860533, 23.86715, 23.902507, 23.846072, 23.849864, 
                               23.864199, 23.872008, 23.865567, 23.822329), 
                      year = c(1L,1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 4L, 4L, 
                               4L, 4L, 4L, 5L, 5L, 5L, 5L, 5L, 6L, 6L, 6L, 6L, 6L)), 
                     class = "data.frame", row.names = c(NA, -30L))
df <- data %>%
  pivot_longer(cols = c(S8,S9,S10), names_to = "variable", values_to = "value")

ggplot(df[df$year>1,], aes(x = year, y = value, color = variable)) +
  stat_summary(geom = "line", fun = mean, linetype = "solid") +
  stat_summary(geom = "ribbon", fun.min = function(z) { quantile(z,0.05) },
               fun.max = function(z) { quantile(z,0.95) }, alpha=.1)+
  labs(x="Year",y="Total Points (millions)")+
  theme(axis.title.y = element_text(size="12"),axis.title.x = element_text(size="12"),
        legend.text = element_text(size = 12),axis.text.x=element_text(size=10),
        axis.text.y=element_text(size=10),legend.title=element_blank(),legend.position="top",
        legend.box.background = element_rect(),legend.box.margin = margin(1, 1, 1, 1))

库（ggplot2）
图书馆（dplyr）
图书馆（tidyverse）
数据1，]，aes（x=年份，y=数值，颜色=变量））+
统计汇总（geom=“line”，fun=平均值，linetype=“solid”）+
统计汇总（geom=“ribbon”，fun.min=函数（z）{分位数（z，0.05）}，
fun.max=函数（z）{分位数（z，0.95）}，α=.1）+
实验室（x=“年”，y=“总分（百万）”）+
主题（axis.title.y=元素文本（size=“12”），axis.title.x=元素文本（size=“12”），
legend.text=元素文本（大小=12），axis.text.x=元素文本（大小=10），
axis.text.y=element\u text（大小=10），legend.title=element\u blank（），legend.position=“top”，
legend.box.background=element_rect（），legend.box.margin=margin（1,1,1,1））

将

变量

转换为系数，并手动设置级别顺序：

库（ggplot2）
图书馆（dplyr）
#> 
#>武官帕克特：“dplyr”
#>以下对象已从“package:stats”屏蔽：
#> 
#>滤波器，滞后
#>以下对象已从“package:base”屏蔽：
#> 
#>相交、setdiff、setequal、并集
图书馆（tidyverse）
数据1，]，aes（x=年份，y=数值，颜色=变量））+
统计汇总（geom=“line”，fun=平均值，linetype=“solid”）+
统计汇总（geom=“ribbon”，fun.min=函数（z）{分位数（z，0.05）}，
fun.max=函数（z）{分位数（z，0.95）}，α=.1）+
实验室（x=“年”，y=“总分（百万）”）+
主题（axis.title.y=元素文本（size=“12”），axis.title.x=元素文本（size=“12”），
legend.text=元素文本（大小=12），axis.text.x=元素文本（大小=10），
axis.text.y=element\u text（大小=10），legend.title=element\u blank（），legend.position=“top”，
legend.box.background=element_rect（），legend.box.margin=margin（1,1,1,1））

由（v0.3.0）于2020年3月18日创建