Plot Data

---

Index Plot

(p_index <- ggplot(long.index, aes(x = date, y = index, color = variable)) +
  geom_line() + 
  geom_point() + 
  theme_tufte() +
  ylab("Index"))
ggsave("data/p_index.png", p_index)

Sparklines

(p_spark <- ggplot(long, aes(x = date, y = measurement)) + 
  facet_grid(variable ~ ., scales = "free_y") + 
  geom_ribbon(data = quarts, aes(ymin = quart1, max = quart2), fill = 'grey90') + # grey bar
  geom_line(size=0.3) +
  geom_point(data = mins, col = 'blue') + # min value in blue
  geom_point(data = maxs, col = 'red') + # max  value in red
  geom_text(data = mins, aes(label = measurement), vjust = -1) + 
  geom_text(data = maxs, aes(label = measurement), vjust = 2.5) +
  geom_text(data = ends, aes(label = measurement), hjust = 0, nudge_x = 1) +
  geom_text(data = ends, aes(label = variable), hjust = 0, nudge_x = 12, size = 7) +
  expand_limits(x = max(long$date) + (0.25 * (max(long$date) - min(long$date)))) +
  theme_tufte(base_size = 15, base_family = "sans") +
  theme(axis.title=element_blank(), axis.text.y = element_blank(), 
        axis.ticks = element_blank(), strip.text = element_blank()))
ggsave("data/p_spark.png", p_spark)

TMap Fun

tmap_mode("view")
(tmap_fun <- tm_shape(shp = world.shp) +
  tm_polygons("Bitcoin", alpha = 0.5, 
              style = "pretty", interval.closure = "left") +
  tm_layout(legend.text.size = 0.8, legend.title.size = 1.1, frame = FALSE, 
            legend.outside = TRUE, 
            title = "Web Searches for Bitcoin, in relative terms over regions"))

save_tmap(tmap_fun, "data/bitcoin_tmap_fun.png")

TMap Static

tmap_mode("plot")
(p_tmap <- tm_shape(shp = world.shp) +
  tm_polygons("Bitcoin", alpha = 0.5, 
              style = "pretty", interval.closure = "left") +
  tm_layout(legend.text.size = 0.8, legend.title.size = 1.1, frame = FALSE, 
            legend.outside = TRUE,
            title = "Web Searches for Bitcoin, in relative terms over regions")+
  tm_style_cobalt())
save_tmap(p_tmap, "data/bitcoin_tmap.png")

Map GGplot

info: https://fcostartistician.wordpress.com/2017/09/13/how-to-deal-with-spatial-data-in-r-and-ggplot-shapefiles/

ggplot() +
      geom_polygon(data = map_draw,
                   mapping = aes(x = long, y = lat, group = group, fill = Bitcoin),
                 color = "black") +
      #Add the scale of colour you want
      theme(
        axis.text = element_blank(),
        axis.line = element_blank(),
        axis.ticks = element_blank(),
        panel.border = element_blank(),
        panel.grid = element_blank(),
        axis.title = element_blank()
        )+
      coord_cartesian()+
      ggtitle("Web Searches for Bitcoin, in relative terms over regions")

Final Plot

library(png)
library(grid)
img <- readPNG("data/bitcoin_tmap_fun.png")
g <- rasterGrob(img, interpolate=TRUE)
grid.arrange(g, p_spark) # sieht nicht aus