Jarek Statinowy Z zapałem do pracy
Temat: Dwie osie
WitamChciałbym do takiego wykresu dodać druga oś do zmiennej marża oraz dodać wartości na wykresie
d <- data.frame(okres=c(1L,2L,3L,4L,5L,6L,7L,8L,9L,10L,11L,12L),
przychody=c(6829,7508,9283,8725,3227,4902,3416,3039,825,7458,2215,4443),
koszty=c(-4123,-5659,-6986,-5682,-2452,-2485,-2095,-2103,-616,-6526,-1542,-3151)
)
d$okres <- factor(d$okres,levels=1:12, labels=c('styczeń', 'luty', 'marzec', 'kwiecień', 'maj', 'czerwiec','lipiec', 'sierpień',
'wrzesień', 'październik', 'listopad', 'grudzień'))
d$zysk <- d$przychody + d$koszty
d$marża <- round(d$zysk/d$przychody,4)
d
dane <- d %>% gather(Typ, Cashflow, przychody:marża)
dane.p <- dane %>% filter(Typ =='przychody')
dane.k <- dane %>% filter(Typ =='koszty')
dane.z <- dane %>% filter(Typ =='zysk')
dane.m <- dane %>% filter(Typ =='marża')
ggplot(data = dane, aes(x = okres, y = Cashflow)) +
geom_bar(data = dane.z, stat = "identity",fill = "#FFFF99")+
theme(axis.text.x=element_text(angle = 45,hjust=1))+
scale_y_continuous(expand = c(0, 0))+
geom_line(data = dane.m, aes(col = Typ, group = Typ))
Finalnie chciałbym taki efekt uzyskać
Proszę o pomoc