library(ggplot2)
library(dplyr)
defr <- mydata %>% filter(Country %in% c("France", "Germany"))
ggplot(data=defr) +
    aes(x=Period, y=Volume, colour=Country, label = Country) +
    geom_line() + 
    #     geom_text(data=GFPMoutput$aggregates) +
    theme(legend.position = "bottom") +
    facet_wrap(Scenario ~ Element ) 


paul4forest/GFPMoutput documentation built on May 24, 2019, 8:25 p.m.