ggplot2数据集pivot后如何将图例改为指定非字母顺序

我的数据集样例：

Year North Center South
                 <dbl> <dbl>  <dbl> <dbl>
 1                1995 1115.  1057.  876.
 2                1996 1559.  1461. 1196.
 3                1997 1956.  1923. 1454.
 4                1998 1595.  1544. 1139.
 5                1999 1912.  1632. 1199.
 6                2000 1838.  1868. 1331.
 7                2001 1550.  1613. 1204.
 8                2002 1598.  1565. 1749.
 9                2003 1590.  1654. 1182.
10                2004 1906.  1666. 1203.
11                2005 1523.  1701. 1149.
12                2006 1697.  1741. 1233.
13                2007 1601.  1773. 1267.
14                2008 1937.  1999. 1397.
15                2009 1989.  1330. 1696.
16                2010 1771.  1843  1766.
17                2011 1936.  2529. 1478.
18                2012 1445.  1527. 1745.

我的绘图代码：

df %>% 
  pivot_longer(cols=-`Year`, names_to="area", values_to="value")%>%
  ggplot(aes(x=factor(`Year`), y=value, group=area, color=area)) +
  geom_point() +
  geom_line() 

ggplot默认将图例按字母顺序排列，我需要改成North-Center-South的顺序。尝试用scale_fill_discrete(breaks=c("North","Center","South"))但没效果，该怎么解决？

你用错了scale函数——你的图里用的是color映射（点和线的颜色），不是fill填充，所以应该用scale_color_discrete()来指定顺序，而不是scale_fill_discrete()。

另外更稳妥的方式是把area列转成有序因子，这样不管后续用什么视觉属性映射，顺序都是固定的，代码修改如下：

df %>% 
  pivot_longer(cols=-`Year`, names_to="area", values_to="value")%>%
  # 把area转为有序因子，指定顺序
  mutate(area = factor(area, levels = c("North", "Center", "South"), ordered = TRUE)) %>%
  ggplot(aes(x=factor(`Year`), y=value, group=area, color=area)) +
  geom_point() +
  geom_line()

如果不想修改数据，也可以直接在ggplot里用scale_color_discrete()指定breaks：

df %>% 
  pivot_longer(cols=-`Year`, names_to="area", values_to="value")%>%
  ggplot(aes(x=factor(`Year`), y=value, group=area, color=area)) +
  geom_point() +
  geom_line() +
  scale_color_discrete(breaks = c("North", "Center", "South"))

两种方法都能让图例按你要的North-Center-South顺序排列，推荐第一种转有序因子的方式，因为它能统一控制整个数据中area的顺序，避免后续绘图时重复设置。

内容的提问来源于stack exchange，提问作者io_boh