ggplot2에 수동으로 범례 추가가 작동하지 않습니다.

저는 stackoverflow뿐만 아니라 다른 많은 웹 사이트도 검색했습니다. 안타깝게도 아직 도움이되지 않았습니다. 가능한 한 명시 적으로 내 문제를 설명 할 것입니다. 이것은 stackoverflow에 대한 첫 번째 질문이므로 R의 완전한 초보자입니다. 제 목표는 이미 생성 된 ggplot2 객체에 수동으로 범례를 추가하는 것입니다.

이것은 내가 작업하는 데이터 세트입니다.

structure(list(Values = 0:5, Count = c(213L, 128L, 37L, 18L, 
3L, 1L), rel_freq = c(0.5325, 0.32, 0.0925, 0.045, 0.0075, 0.0025
), pois_distr = c(0.505352031744286, 0.344902761665475, 0.117698067418343, 
0.0267763103376731, 0.00456870795136548, 0.000623628635361388
)), class = "data.frame", row.names = c(NA, -6L))

이것은

  Values Count rel_freq   pois_distr
1      0   213   0.5325 0.5053520317
2      1   128   0.3200 0.3449027617
3      2    37   0.0925 0.1176980674
4      3    18   0.0450 0.0267763103
5      4     3   0.0075 0.0045687080
6      5     1   0.0025 0.0006236286

다음으로 이미 괜찮은 ggplot을 만드는 데 성공했으며 코드는 다음과 같습니다.

cols <- c('Beob. Häufigkeiten' = 'lightblue', 'Theor. Häufigkeiten' = 'darkblue')
plot_yeast1 <- ggplot(data.frame(data1_plot), aes(x=Values)) + 
  geom_col(aes(y=rel_freq, fill = 'Beob. Häufigkeiten'), col = 'lightblue4', alpha = 0.8) + 
  geom_point(aes(y=pois_distr, colour = 'Theor. Häufigkeiten'), alpha = 0.9, size = 4) +
  scale_fill_manual(name = 'Legende', values = cols) +
  scale_colour_manual(name ='Legende', values = cols) + 
  scale_y_continuous(breaks = seq(0, 0.6, 0.05)) +
  labs(title = 'Gegenüberstellung der beobachteten Häufigkeiten mit den theoretischen \nHäufigkeiten aus dem geschätzten Poissonmodell', x = 'Auftretende Fehler von Hefezellen', y = 'Relative Häufigkeit', subtitle = 'Konzentration 1') +
  theme_bw()
plot_yeast1

출력은 다음과 같습니다.

내 목표는 플롯의 오른쪽에 수동으로 생성 된 두 범례를 하나로 병합하는 것입니다. 이미 범례의 두 번째 헤더를 건너 뛰려고했는데 다음과 같이 보입니다.

.

그러나 넓은 공간은보기 흉하고이 두 범례를 하나로 병합 할 가능성이 있어야합니다. 두 항목이 서로 가깝습니다. 벌써 9 시간 넘게 글을 썼는데 많은 게시물을 검색했는데 문제가 해결되지 않았습니다. 불명확 한 점이 있으면 알려주세요. 이미 썼 듯이 문제를 묻는 것은 이번이 처음입니다. 감사합니다