Jak usunąć lukę w legendzie ggplot?

Question

Jest moja ramka danych

Days,Observed,Simulated
0,0,424.8933328
1,1070,1116.781453
2,2360,2278.166227
3,3882,3854.781359
4,5712,5682.090936
5,7508,7565.230044
6,9126,9343.991798
7,10600,10919.17995
8,11893,12249.07067
9,13047,13332.93044
10,14022,14193.53941
11,14852,14863.84784
12,15480,15378.56415
13,16042,15769.6773
14,16362,16064.57556
15,16582,16285.66038
16,16766,16450.70955
17,16854,16573.54275
18,16854,16664.74816

I to jest mój kod, mam nadzieję, że nie przegapiłem niektórych informacji

dt <- read.csv('data.csv')
days <- dt$Days Observed <- dt$Observed
Simulated <- dt$Simulated

require(ggplot2)
R <- ggplot(dt, aes(x = days))+geom_line(y=Simulated, color="red", size=0.5)+
  geom_point(y=Observed, color="midnightblue", size=1.75)
a <- geom_line(aes(y = Simulated, col='Simulated'))
n <- geom_point(aes(y = Observed, fill = "Observed"), col='blue')
c <- ggtitle("2.5kg of Placenta & 0.5kg of seed") 
h <- labs(x = 'Time(Days)', y = "Cumulative Biogas Yield(ml)", 
          colour = NULL, fill = "Legend")
o <- theme(plot.title = element_text(hjust = 0.1))+
  theme( plot.title = element_text(colour = "midnightblue"),
         axis.title.x = element_text(colour = "black", size = 14),
         axis.title.y = element_text(colour = "black", size = 14),
         legend.title = element_text(colour = "black", size = 14),
         legend.text = element_text(colour = "black", size = 12.5),
         axis.text.x = element_text(colour = "black", size = 14),
         axis.text.y = element_text(colour = "black", size = 14))
d <- scale_color_manual(values = 'red')
s <- scale_fill_manual(values = 'midnightblue')
Myplot <- R+a+n+c+h+o+d+s
Myplot

Wynik, który otrzymuję, ma dużą lukę między zmiennymi i musi zostać usunięty

To, czego chcę, jest następujące:

Zredagowałem wykres na malarzu, aby uzyskać to, czego chcę, ale jego męcząca praca wymaga kodu, który ułatwi mi ten proces. Z góry dziękuję.

Answer 1

Możesz dostosować odstępy między dwiema legendami, używając kombinacji dwóch elementów motywu: legend.spacingi legend.margin. Bawiłem się nimi trochę i ta kombinacja wydaje się działać dobrze:

Myplot + theme(
    legend.spacing = unit(0,'pt'),
    legend.margin = margin(t=0,b=0,unit='pt')
  )

uwaga boczna Chciałem również zauważyć, że jeśli chcesz zgnieść ze sobą dwie legendy, ale mieć jeden tytuł, lepiej zrobić to tak, jak masz (gdzie jeden z tytułów legendy jest ustawiony na NULLzamiast pustej postaci "". NULLskutecznie usuwa tytuł legendy jako element i sprawia, że ​​odstępy są łatwiejsze, podczas gdy ""nadal zawiera odstępy w tytule, nawet jeśli nic nie jest reprezentowane. Jeśli zastąpisz NULLgo ""w swoim kodzie, zobaczysz to ... świetna robota :).

Answer 2

Czy po prostu szukasz theme(legend.margin)?

Myplot + theme(legend.margin = margin(0, 0, -10, 0))