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 )
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.