update final version

lisallreiber · Feb 13, 2018 · f426c62 · f426c62
1 parent d3ef969
commit f426c62
Show file tree

Hide file tree

Showing 84 changed files with 236 additions and 14,163 deletions.
diff --git a/0_create.Rmd b/0_create.Rmd
@@ -18,7 +18,7 @@ editor_options:
 
 ## 1. Load... {.tabset}
 ### ...Packages
-```{r}
+```{r message=FALSE, warning=FALSE}
 if (!require("pacman")) install.packages("pacman")
 pacman::p_load(
   haven,
@@ -44,11 +44,18 @@ pacman::p_load(
 ### ...Bitcoin Prices
 ```{r bitcoin prices, echo=T, message=F, warning=FALSE}
 # Price of Bitcoins
-price  <- read_csv("data/crypto-markets.csv")
-# Relative Amount of Google Web Searches
-google <- read_csv("data/Bitcoin_google_1_10_2017.csv")
+      # price  <- read_csv("data/crypto-markets.csv")
+      # saveRDS(price, "data/price.rds")
+price <- readRDS("data/price.rds")
+      # Relative Amount of Google Web Searches
+      # google <- read_csv("data/Bitcoin_google_1_10_2017.csv")
+# saveRDS(google, "data/google.rds")
+google <- readRDS("data/google.rds")
+
 # Relative Amount of News
-news   <- read_csv("data/Bitcoin_news_1_10_2017.csv")
+      # news   <- read_csv("data/Bitcoin_news_1_10_2017.csv")
+      # saveRDS(news, "data/news.rds")
+news <- readRDS("data/news.rds")
 ```
 
 ### ...Bitcoin Region

diff --git a/0_create.nb.html b/0_create.nb.html
diff --git a/1_wrangle.Rmd b/1_wrangle.Rmd
@@ -54,6 +54,7 @@ long.index
 ### Prepare for ggplot Map
 ```{r}
 #generate id
+data(World)
 World@data$id_name <- seq(1,length(World@data$name)) 
 # change spacial data frame to data frame
 map_draw <- fortify(World, region = "id_name")
@@ -63,7 +64,7 @@ map_draw <- fortify(World, region = "id_name")
 Through the fortify command, some information from the dataset of the spacial data frame ist lost. In this step the World@data part gets merged to the map_draw dataframe by hand. 
 ```{r message=FALSE, warning=FALSE}
 map_draw$id <- as.numeric(map_draw$id)
-data <- map@data
+data <- World@data
  
 #Add the stats to the map data
 map_draw <- left_join(map_draw, World@data, by = c('id'='id_name')) %>% 

diff --git a/1_wrangle.nb.html b/1_wrangle.nb.html
@@ -428,8 +428,9 @@ <h2>Bitcoin Region</h2>
 <h3>Prepare for ggplot Map</h3>
 <!-- rnb-text-end -->
 <!-- rnb-chunk-begin -->
-<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuI2dlbmVyYXRlIGlkXG5Xb3JsZEBkYXRhJGlkX25hbWUgPC0gc2VxKDEsbGVuZ3RoKFdvcmxkQGRhdGEkbmFtZSkpIFxuIyBjaGFuZ2Ugc3BhY2lhbCBkYXRhIGZyYW1lIHRvIGRhdGEgZnJhbWVcbm1hcF9kcmF3IDwtIGZvcnRpZnkoV29ybGQsIHJlZ2lvbiA9IFwiaWRfbmFtZVwiKVxuYGBgIn0= -->
+<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuI2dlbmVyYXRlIGlkXG5kYXRhKFdvcmxkKVxuV29ybGRAZGF0YSRpZF9uYW1lIDwtIHNlcSgxLGxlbmd0aChXb3JsZEBkYXRhJG5hbWUpKSBcbiMgY2hhbmdlIHNwYWNpYWwgZGF0YSBmcmFtZSB0byBkYXRhIGZyYW1lXG5tYXBfZHJhdyA8LSBmb3J0aWZ5KFdvcmxkLCByZWdpb24gPSBcImlkX25hbWVcIilcbmBgYCJ9 -->
 <pre class="r"><code>#generate id
+data(World)
 World@data$id_name &lt;- seq(1,length(World@data$name)) 
 # change spacial data frame to data frame
 map_draw &lt;- fortify(World, region = &quot;id_name&quot;)</code></pre>
@@ -442,9 +443,9 @@ <h3>Add <a href="mailto:World@data">World@data</a></h3>
 <p>Through the fortify command, some information from the dataset of the spacial data frame ist lost. In this step the <a href="mailto:World@data">World@data</a> part gets merged to the map_draw dataframe by hand.</p>
 <!-- rnb-text-end -->
 <!-- rnb-chunk-begin -->
-<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxubWFwX2RyYXckaWQgPC0gYXMubnVtZXJpYyhtYXBfZHJhdyRpZClcbmRhdGEgPC0gbWFwQGRhdGFcbiBcbiNBZGQgdGhlIHN0YXRzIHRvIHRoZSBtYXAgZGF0YVxubWFwX2RyYXcgPC0gbGVmdF9qb2luKG1hcF9kcmF3LCBXb3JsZEBkYXRhLCBieSA9IGMoJ2lkJz0naWRfbmFtZScpKSAlPiUgXG4gICAgICBsZWZ0X2pvaW4oZ2dfb2N0MTdfd29ybGQsIGJ5ID0gYyhcIm5hbWVcIiA9IFwiQ291bnRyeVwiKSkgJT4lIFxuICAgICAgbXV0YXRlKGJpdGNvaW4gPSBpZmVsc2UoaXMubmEoQml0Y29pbiksIDAsIEJpdGNvaW4pKVxuYGBgIn0= -->
+<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxubWFwX2RyYXckaWQgPC0gYXMubnVtZXJpYyhtYXBfZHJhdyRpZClcbmRhdGEgPC0gV29ybGRAZGF0YVxuIFxuI0FkZCB0aGUgc3RhdHMgdG8gdGhlIG1hcCBkYXRhXG5tYXBfZHJhdyA8LSBsZWZ0X2pvaW4obWFwX2RyYXcsIFdvcmxkQGRhdGEsIGJ5ID0gYygnaWQnPSdpZF9uYW1lJykpICU+JSBcbiAgICAgIGxlZnRfam9pbihnZ19vY3QxN193b3JsZCwgYnkgPSBjKFwibmFtZVwiID0gXCJDb3VudHJ5XCIpKSAlPiUgXG4gICAgICBtdXRhdGUoYml0Y29pbiA9IGlmZWxzZShpcy5uYShCaXRjb2luKSwgMCwgQml0Y29pbikpXG5gYGAifQ== -->
 <pre class="r"><code>map_draw$id &lt;- as.numeric(map_draw$id)
-data &lt;- map@data
+data &lt;- World@data
 
 #Add the stats to the map data
 map_draw &lt;- left_join(map_draw, World@data, by = c('id'='id_name')) %&gt;% 
@@ -458,7 +459,7 @@ <h3>Add <a href="mailto:World@data">World@data</a></h3>
 </div>
 </div>
 
-<div id="rmd-source-code">LS0tCm91dHB1dDoKICBodG1sX25vdGVib29rOgogICAgY29kZV9mb2xkaW5nOiBzaG93CiAgICB0b2M6IHllcwogICAgdG9jX2Zsb2F0OiB5ZXMKICBodG1sX2RvY3VtZW50OgogICAgZGZfcHJpbnQ6IHBhZ2VkCiAgICB0b2M6IHllcwplZGl0b3Jfb3B0aW9uczogCiAgY2h1bmtfb3V0cHV0X3R5cGU6IGlubGluZQotLS0KIyBXcmFuZ2xlIERhdGEgey50YWJzZXR9CioqKgoKIyMgQml0Y29pbiBQcmljZSBEYXRhCiMjIyBXaWRlIHRvIGxvbmcKYGBge3J9Cm1lcmdlIDwtIHJlYWRSRFMoImRhdGEvYml0Y29pbl9yYXcucmRzIikKbG9uZyAgPC0gIGdhdGhlcihtZXJnZSwgdmFyaWFibGUsIG1lYXN1cmVtZW50LCAKICAgICAgICAgICAgICAgICBQcmVpczpOYWNocmljaHRlbmFydGlrZWwsIGZhY3Rvcl9rZXk9VFJVRSkKYGBgCgojIyMgRHJvcCBvbmUgZGF5IG9ubHkgY29udGFpbmVkIGluIGdvb2dsZSBkYXRhCmBgYHtyfQpsb25nICU+JSAKICBmaWx0ZXIoZGF0ZSAhPSAiMjAxOC0wMi0wNiIpIC0+CmxvbmcKYGBgCgojIyMgUHJlcGFyZSBzcGVjaWFsIHZhcmlhYmxlIHZhbHVlcyAobWluLCBtYXgsIGVuZCwgcXVhcnRpbGVzKQpgYGB7cn0KbWlucyA8LSBncm91cF9ieShsb25nLCB2YXJpYWJsZSkgJT4lIHNsaWNlKHdoaWNoLm1pbihtZWFzdXJlbWVudCkpICMgbWF4IHZhbHVlIHRzCm1heHMgPC0gZ3JvdXBfYnkobG9uZywgdmFyaWFibGUpICU+JSBzbGljZSh3aGljaC5tYXgobWVhc3VyZW1lbnQpKSAjIG1pbiB2YWx1ZSB0cwplbmRzIDwtIGdyb3VwX2J5KGxvbmcsIHZhcmlhYmxlKSAlPiUgZmlsdGVyKGRhdGUgPT0gbWF4KGRhdGUpKSAgIyBsYXN0IHZhbHVlIG9mIHRzCnF1YXJ0cyA8LSBsb25nICU+JSBncm91cF9ieSh2YXJpYWJsZSkgJT4lICMgcXVhcnRpbGVzIGZvciBncmV5IGJhcgogIHN1bW1hcml6ZShxdWFydDEgPSBxdWFudGlsZShtZWFzdXJlbWVudCwgMC4yNSwgbmEucm0gPSBUUlVFKSwKICAgICAgICAgICAgcXVhcnQyID0gcXVhbnRpbGUobWVhc3VyZW1lbnQsIDAuNzUsIG5hLnJtID0gVFJVRSkpICU+JQogIHJpZ2h0X2pvaW4obG9uZywgYnkgPSAidmFyaWFibGUiKQpgYGAKCiMjIyBDcmVhdGUgaW5kZXggdmFsdWVzCmBgYHtyfQpsb25nICU+JSAKICBmaWx0ZXIoY29tcGxldGUuY2FzZXMoLiksIHZhcmlhYmxlICE9ICJjbG9zZV9yYXRpbyIpICU+JSAKICBncm91cF9ieSh2YXJpYWJsZSkgJT4lIAogIG11dGF0ZShtYXggPSBtYXgobWVhc3VyZW1lbnQpLCBpbmRleCA9IG1lYXN1cmVtZW50L21heCkgJT4lIAogIGZpbHRlcih2YXJpYWJsZSA9PSAiUHJlaXMiIHwgdmFyaWFibGUgPT0gIkdvb2dsZS1TdWNoZW4iKSAtPgpsb25nLmluZGV4CgpgYGAKCiMjIEJpdGNvaW4gUmVnaW9uCiMjIyBQcmVwYXJlIGZvciBnZ3Bsb3QgTWFwCmBgYHtyfQojZ2VuZXJhdGUgaWQKV29ybGRAZGF0YSRpZF9uYW1lIDwtIHNlcSgxLGxlbmd0aChXb3JsZEBkYXRhJG5hbWUpKSAKIyBjaGFuZ2Ugc3BhY2lhbCBkYXRhIGZyYW1lIHRvIGRhdGEgZnJhbWUKbWFwX2RyYXcgPC0gZm9ydGlmeShXb3JsZCwgcmVnaW9uID0gImlkX25hbWUiKQpgYGAKCiMjIyBBZGQgV29ybGRAZGF0YSAKVGhyb3VnaCB0aGUgZm9ydGlmeSBjb21tYW5kLCBzb21lIGluZm9ybWF0aW9uIGZyb20gdGhlIGRhdGFzZXQgb2YgdGhlIHNwYWNpYWwgZGF0YSBmcmFtZSBpc3QgbG9zdC4gSW4gdGhpcyBzdGVwIHRoZSBXb3JsZEBkYXRhIHBhcnQgZ2V0cyBtZXJnZWQgdG8gdGhlIG1hcF9kcmF3IGRhdGFmcmFtZSBieSBoYW5kLiAKYGBge3IgbWVzc2FnZT1GQUxTRSwgd2FybmluZz1GQUxTRX0KbWFwX2RyYXckaWQgPC0gYXMubnVtZXJpYyhtYXBfZHJhdyRpZCkKZGF0YSA8LSBtYXBAZGF0YQogCiNBZGQgdGhlIHN0YXRzIHRvIHRoZSBtYXAgZGF0YQptYXBfZHJhdyA8LSBsZWZ0X2pvaW4obWFwX2RyYXcsIFdvcmxkQGRhdGEsIGJ5ID0gYygnaWQnPSdpZF9uYW1lJykpICU+JSAKICAgICAgbGVmdF9qb2luKGdnX29jdDE3X3dvcmxkLCBieSA9IGMoIm5hbWUiID0gIkNvdW50cnkiKSkgJT4lIAogICAgICBtdXRhdGUoYml0Y29pbiA9IGlmZWxzZShpcy5uYShCaXRjb2luKSwgMCwgQml0Y29pbikpCgpgYGAKCg==</div>
+<div id="rmd-source-code">LS0tCm91dHB1dDoKICBodG1sX25vdGVib29rOgogICAgY29kZV9mb2xkaW5nOiBzaG93CiAgICB0b2M6IHllcwogICAgdG9jX2Zsb2F0OiB5ZXMKICBodG1sX2RvY3VtZW50OgogICAgZGZfcHJpbnQ6IHBhZ2VkCiAgICB0b2M6IHllcwplZGl0b3Jfb3B0aW9uczogCiAgY2h1bmtfb3V0cHV0X3R5cGU6IGlubGluZQotLS0KIyBXcmFuZ2xlIERhdGEgey50YWJzZXR9CioqKgoKIyMgQml0Y29pbiBQcmljZSBEYXRhCiMjIyBXaWRlIHRvIGxvbmcKYGBge3J9Cm1lcmdlIDwtIHJlYWRSRFMoImRhdGEvYml0Y29pbl9yYXcucmRzIikKbG9uZyAgPC0gIGdhdGhlcihtZXJnZSwgdmFyaWFibGUsIG1lYXN1cmVtZW50LCAKICAgICAgICAgICAgICAgICBQcmVpczpOYWNocmljaHRlbmFydGlrZWwsIGZhY3Rvcl9rZXk9VFJVRSkKYGBgCgojIyMgRHJvcCBvbmUgZGF5IG9ubHkgY29udGFpbmVkIGluIGdvb2dsZSBkYXRhCmBgYHtyfQpsb25nICU+JSAKICBmaWx0ZXIoZGF0ZSAhPSAiMjAxOC0wMi0wNiIpIC0+CmxvbmcKYGBgCgojIyMgUHJlcGFyZSBzcGVjaWFsIHZhcmlhYmxlIHZhbHVlcyAobWluLCBtYXgsIGVuZCwgcXVhcnRpbGVzKQpgYGB7cn0KbWlucyA8LSBncm91cF9ieShsb25nLCB2YXJpYWJsZSkgJT4lIHNsaWNlKHdoaWNoLm1pbihtZWFzdXJlbWVudCkpICMgbWF4IHZhbHVlIHRzCm1heHMgPC0gZ3JvdXBfYnkobG9uZywgdmFyaWFibGUpICU+JSBzbGljZSh3aGljaC5tYXgobWVhc3VyZW1lbnQpKSAjIG1pbiB2YWx1ZSB0cwplbmRzIDwtIGdyb3VwX2J5KGxvbmcsIHZhcmlhYmxlKSAlPiUgZmlsdGVyKGRhdGUgPT0gbWF4KGRhdGUpKSAgIyBsYXN0IHZhbHVlIG9mIHRzCnF1YXJ0cyA8LSBsb25nICU+JSBncm91cF9ieSh2YXJpYWJsZSkgJT4lICMgcXVhcnRpbGVzIGZvciBncmV5IGJhcgogIHN1bW1hcml6ZShxdWFydDEgPSBxdWFudGlsZShtZWFzdXJlbWVudCwgMC4yNSwgbmEucm0gPSBUUlVFKSwKICAgICAgICAgICAgcXVhcnQyID0gcXVhbnRpbGUobWVhc3VyZW1lbnQsIDAuNzUsIG5hLnJtID0gVFJVRSkpICU+JQogIHJpZ2h0X2pvaW4obG9uZywgYnkgPSAidmFyaWFibGUiKQpgYGAKCiMjIyBDcmVhdGUgaW5kZXggdmFsdWVzCmBgYHtyfQpsb25nICU+JSAKICBmaWx0ZXIoY29tcGxldGUuY2FzZXMoLiksIHZhcmlhYmxlICE9ICJjbG9zZV9yYXRpbyIpICU+JSAKICBncm91cF9ieSh2YXJpYWJsZSkgJT4lIAogIG11dGF0ZShtYXggPSBtYXgobWVhc3VyZW1lbnQpLCBpbmRleCA9IG1lYXN1cmVtZW50L21heCkgJT4lIAogIGZpbHRlcih2YXJpYWJsZSA9PSAiUHJlaXMiIHwgdmFyaWFibGUgPT0gIkdvb2dsZS1TdWNoZW4iKSAtPgpsb25nLmluZGV4CgpgYGAKCiMjIEJpdGNvaW4gUmVnaW9uCiMjIyBQcmVwYXJlIGZvciBnZ3Bsb3QgTWFwCmBgYHtyfQojZ2VuZXJhdGUgaWQKZGF0YShXb3JsZCkKV29ybGRAZGF0YSRpZF9uYW1lIDwtIHNlcSgxLGxlbmd0aChXb3JsZEBkYXRhJG5hbWUpKSAKIyBjaGFuZ2Ugc3BhY2lhbCBkYXRhIGZyYW1lIHRvIGRhdGEgZnJhbWUKbWFwX2RyYXcgPC0gZm9ydGlmeShXb3JsZCwgcmVnaW9uID0gImlkX25hbWUiKQpgYGAKCiMjIyBBZGQgV29ybGRAZGF0YSAKVGhyb3VnaCB0aGUgZm9ydGlmeSBjb21tYW5kLCBzb21lIGluZm9ybWF0aW9uIGZyb20gdGhlIGRhdGFzZXQgb2YgdGhlIHNwYWNpYWwgZGF0YSBmcmFtZSBpc3QgbG9zdC4gSW4gdGhpcyBzdGVwIHRoZSBXb3JsZEBkYXRhIHBhcnQgZ2V0cyBtZXJnZWQgdG8gdGhlIG1hcF9kcmF3IGRhdGFmcmFtZSBieSBoYW5kLiAKYGBge3IgbWVzc2FnZT1GQUxTRSwgd2FybmluZz1GQUxTRX0KbWFwX2RyYXckaWQgPC0gYXMubnVtZXJpYyhtYXBfZHJhdyRpZCkKZGF0YSA8LSBXb3JsZEBkYXRhCiAKI0FkZCB0aGUgc3RhdHMgdG8gdGhlIG1hcCBkYXRhCm1hcF9kcmF3IDwtIGxlZnRfam9pbihtYXBfZHJhdywgV29ybGRAZGF0YSwgYnkgPSBjKCdpZCc9J2lkX25hbWUnKSkgJT4lIAogICAgICBsZWZ0X2pvaW4oZ2dfb2N0MTdfd29ybGQsIGJ5ID0gYygibmFtZSIgPSAiQ291bnRyeSIpKSAlPiUgCiAgICAgIG11dGF0ZShiaXRjb2luID0gaWZlbHNlKGlzLm5hKEJpdGNvaW4pLCAwLCBCaXRjb2luKSkKCmBgYAoK</div>
 
 
 </div>

diff --git a/2_plot.Rmd b/2_plot.Rmd
@@ -40,7 +40,7 @@ ggsave("data/p_index.png", p_index)
   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_index)
+ggsave("data/p_spark.png", p_spark)
 
 ```
 
@@ -51,19 +51,23 @@ tmap_mode("view")
   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))
+            legend.outside = TRUE, 
+            title = "Web Searches for Bitcoin, in relative terms over regions"))
 
 save_tmap(tmap_fun, "data/bitcoin_tmap_fun.png")
 ```
 
 ## TMap Static
 ```{r message=FALSE, warning=FALSE}
 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))
+            legend.outside = TRUE,
+            title = "Web Searches for Bitcoin, in relative terms over regions")+
+  tm_style_cobalt())
 
 save_tmap(p_tmap, "data/bitcoin_tmap.png")
 ```
@@ -84,7 +88,7 @@ ggplot() +
         axis.title = element_blank()
         )+
       coord_cartesian()+
-      ggtitle("Add Title here")
+      ggtitle("Web Searches for Bitcoin, in relative terms over regions")
 ```
 
 ## Final Plot

diff --git a/2_plot.nb.html b/2_plot.nb.html
diff --git a/data/bitcoin_tmap.png b/data/bitcoin_tmap.png
diff --git a/data/bitcoin_tmap_fun.png b/data/bitcoin_tmap_fun.png
diff --git a/data/google.rds b/data/google.rds
diff --git a/data/news.rds b/data/news.rds
diff --git a/data/p_index.png b/data/p_index.png
diff --git a/data/p_spark.png b/data/p_spark.png
diff --git a/data/price.rds b/data/price.rds