검은 색과 회색 선과 회색 채우기 색상을 모두 보여주는 플롯에 대한 범례가 필요합니다. scale_fill_manual 및 scale_color_manual을 시도했지만 아무것도 표시되지 않습니다. 내가 도대체 뭘 잘못하고있는 겁니까?
여기에 내 줄거리가 있고 여기에 코드가 있습니다.
ggplot(dataset, aes(x=FirstOfMonth)) +
ggtitle(title) +
xlab("") +
ylab("") +
geom_line(aes(y = AC), color = "black") +
geom_line(aes(y = FC), color="grey") +
geom_line(aes(y = Hi80), color="grey") +
geom_line(aes(y = Lo80), color="grey") +
geom_line(aes(y = Hi95), color="grey") +
geom_line(aes(y = Lo95), color="grey") +
geom_ribbon(aes(ymin=Lo80, ymax=Hi80), fill="grey", alpha=0.5) +
geom_ribbon(aes(ymin=Lo95, ymax=Hi95), fill="grey", alpha=0.25) +
theme_classic() + #background color, panel background color and grid lines
scale_x_date(date_breaks = "6 months", date_labels="%d.%m.%Y") +
scale_y_continuous(labels = scales::number_format(accuracy = 1, decimal.mark = '.'))
데이터 세트라는 원래 데이터 프레임 :
FirstOfMonth AC FC Hi80 Lo80 Lo95 Hi95 Model Period
1 2017-12-01 76438.219 NA NA NA NA NA 12
2 2018-01-01 2100.328 NA NA NA NA NA 12
3 2018-02-01 12195.594 NA NA NA NA NA 12
4 2018-03-01 17563.799 NA NA NA NA NA 12
5 2018-04-01 15233.833 NA NA NA NA NA 12
6 2018-05-01 14504.022 NA NA NA NA NA 12
7 2018-06-01 14727.422 NA NA NA NA NA 12
8 2018-07-01 14464.197 NA NA NA NA NA 12
9 2018-08-01 15239.294 NA NA NA NA NA 12
10 2018-09-01 15077.799 NA NA NA NA NA 12
11 2018-10-01 17487.724 NA NA NA NA NA 12
12 2018-11-01 17346.364 NA NA NA NA NA 12
13 2018-12-01 13441.042 NA NA NA NA NA 12
14 2019-01-01 13124.846 NA NA NA NA NA 12
15 2019-02-01 10286.554 NA NA NA NA NA 12
16 2019-03-01 10241.349 NA NA NA NA NA 12
17 2019-04-01 15533.372 NA NA NA NA NA 12
18 2019-05-01 9994.203 NA NA NA NA NA 12
19 2019-06-01 11617.312 NA NA NA NA NA 12
20 2019-07-01 9717.043 NA NA NA NA NA 12
21 2019-08-01 19140.597 NA NA NA NA NA 12
22 2019-09-01 9233.094 NA NA NA NA NA 12
23 2019-10-01 11126.801 NA NA NA NA NA 12
24 2019-11-01 9138.605 NA NA NA NA NA 12
25 2019-12-01 16485.743 NA NA NA NA NA 12
26 2020-01-01 7362.088 NA NA NA NA NA 12
27 2020-01-01 NA 7362.088 7362.088 7362.0880 7362.08800 7362.088 Exp Smoothing 12
28 2020-02-01 NA 8780.329 13122.052 4438.6063 2140.23712 15420.421 Exp Smoothing 12
29 2020-03-01 NA 8780.329 14559.384 3001.2738 -57.97311 17618.631 Exp Smoothing 12
30 2020-04-01 NA 8780.329 15808.778 1751.8794 -1968.75708 19529.415 Exp Smoothing 12
31 2020-05-01 NA 8780.329 16965.737 594.9209 -3738.17232 21298.830 Exp Smoothing 12
32 2020-06-01 NA 8780.329 18073.493 -512.8352 -5432.33910 22992.997 Exp Smoothing 12
33 2020-07-01 NA 8780.329 19156.316 -1595.6582 -7088.37402 24649.032 Exp Smoothing 12
34 2020-08-01 NA 8780.329 20229.746 -2669.0884 -8730.04383 26290.702 Exp Smoothing 12
35 2020-09-01 NA 8780.329 21304.706 -3744.0485 -10374.05335 27934.711 Exp Smoothing 12
36 2020-10-01 NA 8780.329 22389.444 -4828.7860 -12033.01621 29593.674 Exp Smoothing 12
37 2020-11-01 NA 8780.329 23490.557 -5929.8991 -13717.02339 31277.681 Exp Smoothing 12
38 2020-12-01 NA 8780.329 24613.582 -7052.9245 -15434.54249 32995.200 Exp Smoothing 12
전설을 얻으려면 color및 fill미학을 사용하십시오 . 그런 다음 scale_xxxx_manual(올바른 색상을 설정하기 위해) 및 또는 guide_legend(채우기 색상에 대한 알파를 설정하기 위해 )를 사용하여 다음과 같이 범례를 조정할 수 있습니다 .
dataset %>%
ggplot(aes(x=FirstOfMonth)) +
ggtitle("title") +
xlab("") +
ylab("") +
geom_line(aes(y = AC, color = "AC")) +
geom_line(aes(y = FC, color="FC")) +
geom_line(aes(y = Hi80, color="FC")) +
geom_line(aes(y = Lo80, color="FC")) +
geom_line(aes(y = Hi95, color="FC")) +
geom_line(aes(y = Lo95, color="FC")) +
geom_ribbon(aes(ymin=Lo80, ymax=Hi80, fill="grey80"), alpha=0.5) +
geom_ribbon(aes(ymin=Lo95, ymax=Hi95, fill="grey95"), alpha=0.25) +
theme_classic() + #background color, panel background color and grid lines
scale_x_date(date_breaks = "6 months", date_labels="%d.%m.%Y") +
scale_y_continuous(labels = scales::number_format(accuracy = 1, decimal.mark = '.')) +
scale_color_manual(values = c("FC" = "grey", "AC" = "black")) +
scale_fill_manual(values = c("grey80" = "grey", "grey95" = "grey")) +
guides(fill = guide_legend(override.aes = list(alpha = c(0.5, 0.25))))
이 기사는 인터넷에서 수집됩니다. 재 인쇄 할 때 출처를 알려주십시오.
침해가 발생한 경우 연락 주시기 바랍니다[email protected] 삭제
몇 마디 만하겠습니다