Jarek Statinowy

Jarek Statinowy Z zapałem do pracy

Temat: Legenda

d <- data.frame(klm=c(1L,2L,3L,4L,5L,6L),
sr_wyd=c(1827,1444,1400,1285,1183,1039),
med_wyd=c(1500,1244,1168,1110,1002,863)
)



ggplot(d,aes(x = klm, y = sr_wyd)) +
geom_bar(stat = "identity", fill = "darkgreen") +
geom_text(aes(y = sr_wyd,label = format(sr_wyd, big.mark = " ")), vjust = -0.5, hjust = 0.5, cex = 3)+
geom_bar(aes(y = med_wyd), width = 0.5, stat = "identity", fill = "green")+
geom_text(aes(y = med_wyd,label = format(med_wyd, big.mark = " ")),colour = "white", vjust = -0.5, hjust = 0.5, cex = 3)


Możecie mi pomóc dodać legendę (poziomą pod wykresem) do tego?
Czy może muszę przebudować kod?Ten post został edytowany przez Autora dnia 07.07.17 o godzinie 14:38