Question

我有两个数据帧，我可以使用此命令在折线图中绘图：

ggplot(herkunft.nach.sprachreg, aes(x=year, y=anteil, group=regio, colour = regio)) +
  geom_line(size=0.75) +
  #stat_smooth(se = FALSE) +
  geom_line(data = herkunft.nach.jahren, aes(group = regio),colour='black',  linetype = 2) +
  scale_colour_manual(name="Sprachregionen", values = c("#238b45","#d94801", "#2171b5", "#969696", "#000000"),
                      labels=c("deutschsprachig", "französischsprachig", "italienischsprachig", "rumantsch", "Schweiz"))

结果：

但是，我无法将第二个数据框（herkunft.nach.jahren）中的虚线添加到图例中。知道如何实现这个目标吗？

这是我的数据：

herkunft.nach.jahren

 year    anteil regio
 1: 1850  2.992441    CH
 2: 1860  4.579501    CH
 3: 1870  5.702563    CH
 4: 1880  6.895583    CH
 5: 1888  7.875963    CH
 6: 1900 11.562798    CH
 7: 1910 14.708120    CH
 8: 1920 10.369849    CH
 9: 1930  8.742846    CH
10: 1941  5.240783    CH
11: 1950  6.053988    CH
12: 1960 10.765977    CH
13: 1970 17.226689    CH
14: 1980 14.844046    CH
15: 1990 18.118835    CH
16: 2000 20.520677    CH
17: 2010 23.134607    CH

herkunft.nach.sprachreg

year regio    anteil
 1: 1850     D  1.847823
 2: 1860     D  2.792707
 3: 1870     D  3.500240
 4: 1880     D  5.676991
 5: 1888     D  6.344455
 6: 1900     D 10.154804
 7: 1910     D 13.464852
 8: 1920     D  9.207319
 9: 1930     D  7.666982
10: 1941     D  4.217004
11: 1950     D  4.975853
12: 1960     D  9.767691
13: 1970     D 15.207087
14: 1980     D 12.710072
15: 1990     D 15.566806
16: 2000     D 18.297933
17: 2010     D 20.745188
18: 1850     F  5.805881
19: 1860     F  9.509214
20: 1870     F 11.649263
21: 1880     F  8.825456
22: 1888     F 11.007228
23: 1900     F 13.807910
24: 1910     F 15.943369
25: 1920     F 12.035999
26: 1930     F 10.049997
27: 1941     F  6.340864
28: 1950     F  7.683946
29: 1960     F 12.819156
30: 1970     F 22.102168
31: 1980     F 19.987130
32: 1990     F 24.892615
33: 2000     F 26.586658
34: 2010     F 29.691197
35: 1850     I  6.483036
36: 1860     I  5.955920
37: 1870     I  7.447771
38: 1880     I 15.543436
39: 1888     I 14.524391
40: 1900     I 21.761545
41: 1910     I 27.763855
42: 1920     I 21.001271
43: 1930     I 20.381279
44: 1941     I 17.579106
45: 1950     I 16.923411
46: 1960     I 18.243269
47: 1970     I 26.921148
48: 1980     I 24.233811
49: 1990     I 25.000170
50: 2000     I 25.055036
51: 2010     I 26.029678
52: 1850     R  1.694507
53: 1860     R  2.349471
54: 1870     R  2.954100
55: 1880     R  4.152596
56: 1888     R  4.977768
57: 1900     R  5.817789
58: 1910     R 13.538229
59: 1920     R  6.262052
60: 1930     R  5.764689
61: 1941     R  3.854601
62: 1950     R  4.293110
63: 1960     R  9.171356
64: 1970     R  7.249696
65: 1980     R  5.185905
66: 1990     R  5.811382
67: 2000     R  7.980575
68: 2010     R 14.850335

Answer 1

如果您不想将两个数据集合并在一起，请在color内为第二个geom_line移动aes。

如果您希望图例中的最后一行显示为虚线，则可以在override.aes中使用guide_legend。

ggplot(herkunft.nach.sprachreg, aes(x=year, y=anteil, group=regio, colour = regio)) +
    geom_line(size=0.75) +
    #stat_smooth(se = FALSE) +
    geom_line(data = herkunft.nach.jahren, aes(group = regio, colour='Schweiz'),  linetype = 2) +
    scale_colour_manual(name="Sprachregionen", values = c("#238b45","#d94801", "#2171b5", "#969696", "#000000"),
                        labels=c("deutschsprachig", "französischsprachig", "italienischsprachig", "rumantsch", "Schweiz"),
                        guide = guide_legend(override.aes = list(linetype = c(1, 1, 1, 1, 2))))

ggplot：添加第二个图例以绘制两个数据帧

1 个答案: