# NOT RUN {
# download the dataset 'Pupil/Student - teacher ratio and average class' from eurostat
# for more developed API see https://github.com/rOpenGov/eurostat
tmp <- getEurostatRCV(kod = "educ_iste")
head(tmp)
# download the dataset 'People killed in road accidents' from eurostat
# and plot a maptable for selected countries
# for more developed API see https://github.com/rOpenGov/eurostat
library(ggplot2)
t1 <- getEurostatRCV("tsdtr420")
t1 <- t1[t1$geo <!-- %in% c("UK", "SK", "FR", "PL", "ES", "PT", "LV"), ] -->
ggplot(t1, aes(time, value, color=sex, group=sex)) +
geom_line() + facet_wrap(~geo)
# }
Run the code above in your browser using DataLab