Case Study 11: Interacting with space

• Case Study 11

Take 10 minutes to brainstorm with your table what the data inputs are and what visualizations you would like to create?

• What mutations or summaries will you need to do?
• What difficulties do you expect?
• Do each of the task items make sense?

Task 22: Introduction to Big Data

• Task 22

The Material

• Questions about Hadoop?
• Questions about Spark?
• Cleveland & Hafen Paper

Using R with Spark

• Try out Sparklyr: R interface to Apache Spark
  • Nice Rstudio blog post
  • Another example from H20

Selecting the Display

A wise and noble Wizard, Albus Dumbledore once said, ‘It is our choices, Harry, that show what we truly are, far more than our abilities.’

• Here is my Task 21 and Case Study 11
• Firefly Cartography

Read through the following article at your table and take notes in your README.md for today about the 4 stratagies for displaying map data.

• Spatial Data Often becomes big data

Leaflet Extras

Read through the Leaflet guide and find 1-2 additional map features you could add to your task.

Looking at an Example

Housing Prices

Loading Packages

# devtools::install_github("hathawayj/buildings")
# library(buildings)
# devtools::install_github("hafen/trelliscopejs")
library(trelliscopejs)
library(tidyverse)
data(permits, package="buildings")

Nesting Data

#by state and county

by_stco <- permits %>%
  filter(StateAbbr %in% c("WA", "ID", "UT"), variable == "Single Family") %>%
  group_by(StateAbbr, countyname) %>%
  nest()

Adding Plots

by_stco <- by_stco %>% 
  mutate(
    panel = map_plot(data,
                     ~ ggplot(data = .x, aes(x = year, y = value)) +
                       geom_point() +
                       geom_line(color = "grey") +
                       #xlim(2000, 2011) + 
                       #ylim(0, 1250) +
                       theme_bw()
    ))

Making the Magic

# plot it
my_display <- tempfile()
by_stco %>%
  trelliscope("permits", nrow = 2, ncol = 7, 
              path = my_display, thumb = TRUE, width = 500)