library(dplyr)
# Load EUROSTAT data of manure storage deposits
data(manure)
# Classify version of NUTS 2 codes in Germany
classified <- manure %>%
filter(nchar(geo) == 4) %>%
filter(indic_ag == 'I07A_EQ_Y') %>%
filter(grepl('^DE', geo)) %>%
filter(time == 2003) %>%
select(-indic_ag, -time) %>%
# Data varies at the NUTS code level
nuts_classify(nuts_code = 'geo')
nuts_get_missing(classified)
Run the code above in your browser using DataLab