Update script

lhehnke · Jun 22, 2019 · 50f72e521f933f48579e57e5e35e2041a330ad96 · 50f72e5
1 parent dd2b239
commit 50f72e521f933f48579e57e5e35e2041a330ad96
Unified Split

Showing with 1 addition and 1 deletion.

+1 −1 feedback-viz.R
diff --git a/feedback-viz.R b/feedback-viz.R
@@ -90,7 +90,7 @@ ggplot() +
  geom_point(data = dots %>% filter(feedback_count >= 1), aes(x = long, y = lat, color = feedback_count), size = 1) + 
  coord_sf(datum = NA, crs = 54009, clip = "on", ylim = c(-50, 90), xlim = c(-160, 170)) +
  scale_color_gradient("Count", low = "darkgreen", high = "green", breaks = c(0, 20, 40, 60)) +
-  
-  labs(title = str_c("Plan S feedback in pixels ", emo::ji("unlock")),
+  
+  labs(title = str_c("Public feedback on Plan S ", emo::ji("unlock")),
       subtitle = str_c("Made with ", emo::ji("pencil"), " from zenodo.org"), 
       caption = "@DataPlanes") +
  map_theme + guides(colour = guide_legend(keywidth = 0.15, keyheight = 0.15, default.unit = "inch",