if (FALSE) {
# might give error message because of non-ASCII phonetic symbols
data(dialects)
require(mapdata)
map("worldHires", "Germany", fill = TRUE, col = "grey90")
lmap(dialects$villages, dialects$data[,21]
, levels = c(0.20, 0.22, 0.24), add = TRUE, position = "topleft")
title(main = "f-sound in \'Kochlöffel\'")
}
Run the code above in your browser using DataLab