{"id":3841,"date":"2016-01-03T13:18:08","date_gmt":"2016-01-03T18:18:08","guid":{"rendered":"http:\/\/rud.is\/b\/?p=3841"},"modified":"2018-03-07T16:43:07","modified_gmt":"2018-03-07T21:43:07","slug":"zellingenach-a-visual-exploration-of-the-spatial-patterns-in-the-endings-of-german-town-and-village-names-in-r","status":"publish","type":"post","link":"https:\/\/rud.is\/b\/2016\/01\/03\/zellingenach-a-visual-exploration-of-the-spatial-patterns-in-the-endings-of-german-town-and-village-names-in-r\/","title":{"rendered":"Zellingenach: A visual exploration of the spatial patterns in the endings of German town and village names in R"},"content":{"rendered":"

Moritz Stefaner started off 2016 with a [very spiffy post](http:\/\/truth-and-beauty.net\/experiments\/ach-ingen-zell\/) on _”a visual exploration of the spatial patterns in the endings of German town and village names”_. Moritz was [exploring some new data processing & visualization tools](https:\/\/github.com\/moritzstefaner\/ach-ingen-zell) for the post, but when I saw what he was doing I wondered how hard it would be to do something similar in R and also used it as an opportunity to start practicing a new habit in 2016: packages vs projects.<\/p>\n

To state more precisely the goals for this homage, the plan was to:<\/p>\n

– use as close to the same data sets Mortiz has in his github repo, _including_ the ones in pure javascript
\n– generate an HTML page as output that is as close to the style in Moritz’s visualization
\n– use R for _everything_ (i.e. no “cheating” by sneaking in some javascript via `htmlwidgets`)
\n– bundle everything into a package to take advantage of all the good stuff that comes with R package validation<\/p>\n

You may want to [take a look at the result](http:\/\/rud.is\/zellingenach.html) to see if you want to continue reading (I hope you will!). <\/p>\n

### The Setup
\n\"rud_is_zellingenach_html\"By using an R package as the framework for the visualization, it’s possible to keep the data with the code and also organize and document the code in a way that makes it easy for folks to use and explore without cutting and pasting (our `source`ing) code. It also makes it possible to list all the dependencies for the project and help ensure they’ll be installed when someone tries to work with it. <\/p>\n

While I _could_ have converted Moritz’s processed data into R data files, I left the CSV intact and the javascript file of suffix groupings also intact to show that R is extremely flexible when it comes to data processing (which is a “duh” for most folks by this point but the use of javascript data structures might give some folks ideas as how to reduce data duplication between projects). Both these files get stored in the `inst\/alt` folder of the source package. I also end up using some CSS for the final visualization and placed that into a file in the same directory, which makes the code that generates the HTML a bit cleaner.<\/p>\n

Because R processes some things automatically (like `.onAttach`) when it interacts with a package one can have it provide helpful instructions (in this case, how to generate the visualization) in similar fashion to the `ggplot2` loading messages. <\/p>\n

Similarly, there both the package itself and the package functions have documentation to help folks understand both what the package and each component is doing.<\/p>\n

### The Fun Stuff
\n\"rud_is_zellingenach_html\"The CSV file of places looks something like this:<\/p>\n

name,latitude,longitude\r\nNierskanal,49.01,13.23\r\nZwiefelhof,49.22,11.18\r\nZwiefaltendorf,48.21,9.51\r\nZwiefalten,48.23,9.46\r\nZwiedorf,53.69,13.05\r\nZwickgabel,48.58,8.31\r\nZwickau,50.72,12.48\r\nZwethau,51.58,13.04\r\nZwesten,51.05,9.17<\/pre>\n
and, the suffix groupings list looks like this:<\/p>\n
\r\nconst suffixList = [\r\n  [\"ach\", \"a\", \"aa\", \"ah\"],\r\n  [\"ar\", \"ahr\"],\r\n  [\"ate\", \"te\", \"nit\", \"net\"],\r\n  [\"au\", \"aue\", \"oog\", \"ooge\", \"ohe\", \"oie\"],\r\n  [\"bach\", \"bach\", \"bek\", \"beken\", \"beck\", \"bke\"],\r\n  [\"berg\", \"bergen\", \"barg\", \"bargen\"],\r\n  [\"born\", \"bronn\"],\r\n  [\"bruch\", \"broich\", \"brook\", \"brock\", \"brauk\"],\r\n  [\"bruck\", \"br\u00fcck\", \"br\u00fcgge\"],\r\n  ...\r\n];<\/pre>\n
While `read.csv` (no need for `readr` as the file is small) can handle the CSV file, we use the `V8` package to source the javascript and convert it to an R object:<\/p>\n
ct <- v8()\r\nct$source(system.file(\"alt\/suffixlist.js\", package=\"zellingenach\"))\r\nct$get(\"suffixList\")<\/pre>\n
We actually turn that into a vector of regular expressions (for town name ending checking) and a list of vectors (for the HTML visualization creation). Check out `suffix_regex()` and `suffix_names()` in the source code.<\/p>\n
The `read_places()` function builds a `data.frame` of the places combined with the suffix grouping(s) they belong to:<\/p>\n
\r\n# read in the file\r\nplc <- read.csv(system.file(\"alt\/placenames_de.tsv\", package=\"zellingenach\"),\r\n                stringsAsFactors=FALSE)\r\n\r\n# iterate over each suffix and identify which place names match the grouping\r\nlapply(suf, function(regex) {\r\n  which(stri_detect_regex(plc$name, regex))\r\n}) -> matched_endings\r\n\r\nplc$found <- \"\"\r\n\r\n# add which grouping(s) the place was found to a new column\r\nfor(i in 1:length(matched_endings)) {\r\n  where_found <- matched_endings[[i]]\r\n  plc$found[where_found] <-\r\n    paste0(plc$found[where_found], sprintf(\"%d|\", i))\r\n}\r\n\r\n# some don't match so get rid of them\r\nmutate(filter(plc, found != \"\"), found=sub(\"\\\\|$\", \"\", found))<\/pre>\n
I do something a bit different than Moritz in that in that I allow towns to be part of multiple suffix groups, since: <\/p>\n
- I'm neither a historian nor expert in German town naming conventions, and
\n- the javascript version and this R version both take a naive approach to suffix mapping.<\/p>\n
This means my numbers (for the _\"#### places\"_ label) will be different for some of my maps.<\/p>\n
R has similar shortcut functions (Mortiz uses D3) to make hexgrids out of shapefiles. Here's the entirety of `create_hexgrid()`:<\/p>\n
de_shp <- getData(\"GADM\", country=\"DEU\", level=0, path=tempdir())\r\n\r\nde_hex_pts <- spsample(de_shp, type=\"hexagonal\", n=10000, cellsize=0.19,\r\n                       offset=c(0.5, 0.5), pretty=TRUE)\r\n\r\nHexPoints2SpatialPolygons(de_hex_pts)<\/pre>\n
You can play with `cellsize` to change the number of hexes. I tried to find a good number to get close to the # in Moritz's maps.<\/p>\n
This all gets put together in `make_maps()` where we use `ggplot2` to build 52 gridded heatmaps (one for each suffix grouping). I used a log of the counts to map to a binned viridis color scale, so my colors come out a bit different than Moritz's but the overall patterns are on par with his.<\/p>\n
Finally, `display_maps()` takes the list created by `make_maps()` and builds out an HTML page using the `htmltools` package for the page framework and `svglite::htmlSVG` to make SVGs of the ggplot objects). NOTE that you can use the `output_file` option of `display_maps()` to send the HTML to a file as well as display it in the viewer\/browser.<\/p>\n
### Fin
\n\"rud_is_zellingenach_html\"Because the project is in a pacakge, we can run package checks to see if we're missing anything including other pacakge dependencies, function documentation and other details that the package tools are gleeful to point out. We can also include code to test out our various components to ensure they are behaving as expected (i.e. generating the right data\/output).<\/p>\n
Once nice thing about the output is that it's \"responsive\", which means it handles multiple screen sizes quite well. So, if your screen is huge, you'll have many map boxes on one line and if it's small (like the `iframe` below) it will have fewer.<\/p>\n
You'll see that my maps are a bit bigger than Moritz's. This is due to both the hex grid size and the fact that the SVG output is just slightly larger overall than the ones made by D3. Of note: I noticed some suffix subtitle components wrapped at the \"-\" so I converted the plain dashes to non-breaking ones `‑`\/\"‑\".<\/p>\n
The one downside to using a package for this is that it's harder to post complete code into a blog post, but you can [clone the repo](https:\/\/github.com\/hrbrmstr\/zellingenach) to look at the code and skip the dissection and just generate the visualization locally via:<\/p>\n
install.packages(\"ggalt\")\r\n# OR: devtools::install_github(\"hrbrmstr\/ggalt\") \r\ndevtools::install_github(\"hrbrmstr\/zellingenach\")\r\ndisplay_maps()<\/pre>\n
By targeting SVG & HTML, we can make a cross-platform, crisp and responsive visualization all without leaving RStudio. <\/p>\n
If you caught any errors or made something cool with any of the code, please drop an issue on github and a note in the comments (respectively)! <\/p>\n
If you prefer a single- `source`-able version, please see [this gist](https:\/\/gist.github.com\/hrbrmstr\/f3d2568ad0f27b2384d3).<\/p>\n
Happy New YeaR!<\/p>\n