https css adding new example to maps thnks to @pachamaltese

jbkunst · Jul 26, 2020 · ca492fd · ca492fd
1 parent 9e9fe08
commit ca492fd
Show file tree

Hide file tree

Showing 11 changed files with 230 additions and 92 deletions.
diff --git a/CRAN-RELEASE b/CRAN-RELEASE
diff --git a/docs/LICENSE-text.html b/docs/LICENSE-text.html
diff --git a/docs/articles/maps.html b/docs/articles/maps.html
diff --git a/docs/authors.html b/docs/authors.html
diff --git a/docs/extra.css b/docs/extra.css
@@ -2,14 +2,14 @@
 
 @font-face {
   font-family: 'Datalegreya-Gradient';
-  src: url('http://cdn.rawgit.com/figs-lab/datalegreya/master/font-files/Datalegreya-Gradient.otf');
+  src: url('https://cdn.rawgit.com/figs-lab/datalegreya/master/font-files/Datalegreya-Gradient.otf');
   font-weight: normal;
   font-style: normal;
 }
 
 @font-face {
 	font-family: 'Datalegreya-Thin';
-	src: url('http://cdn.rawgit.com/figs-lab/datalegreya/master/font-files/Datalegreya-Thin.otf');
+	src: url('https://cdn.rawgit.com/figs-lab/datalegreya/master/font-files/Datalegreya-Thin.otf');
 	font-weight: normal;
 	font-style: normal;
 }

diff --git a/docs/index.html b/docs/index.html
diff --git a/docs/news/index.html b/docs/news/index.html
diff --git a/pkgdown/_pkgdown.yml b/pkgdown/_pkgdown.yml
@@ -3,6 +3,8 @@ template:
   params:
     bootswatch: cosmo
     ganalytics: UA-17670833-9
+development:
+  mode: auto
 authors:
   Joshua Kunst:
     href: http://jkunst.com

diff --git a/pkgdown/extra.css b/pkgdown/extra.css
@@ -2,14 +2,14 @@
 
 @font-face {
   font-family: 'Datalegreya-Gradient';
-  src: url('http://cdn.rawgit.com/figs-lab/datalegreya/master/font-files/Datalegreya-Gradient.otf');
+  src: url('https://cdn.rawgit.com/figs-lab/datalegreya/master/font-files/Datalegreya-Gradient.otf');
   font-weight: normal;
   font-style: normal;
 }
 
 @font-face {
 	font-family: 'Datalegreya-Thin';
-	src: url('http://cdn.rawgit.com/figs-lab/datalegreya/master/font-files/Datalegreya-Thin.otf');
+	src: url('https://cdn.rawgit.com/figs-lab/datalegreya/master/font-files/Datalegreya-Thin.otf');
 	font-weight: normal;
 	font-style: normal;
 }

diff --git a/pkgdown/index.html b/pkgdown/index.html
diff --git a/vignettes/maps.Rmd b/vignettes/maps.Rmd
@@ -103,6 +103,55 @@ hcmap(
 )
 ```
 
+## Categorized areas
+
+```{r}
+data <- tibble(
+  country = 
+    c("PT", "IE", "GB", "IS",
+      
+      "NO", "SE", "DK", "DE", "NL", "BE", "LU", "ES", "FR", "PL", "CZ", "AT",
+      "CH", "LI", "SK", "HU", "SI", "IT", "SM", "HR", "BA", "YF", "ME", "AL", "MK",
+      
+      "FI", "EE", "LV", "LT", "BY", "UA", "MD", "RO", "BG", "GR", "TR", "CY",
+      
+      "RU"),  
+  tz = c(rep("UTC", 4), rep("UTC + 1",25), rep("UCT + 2",12), "UTC + 3")
+  )
+
+# auxiliar variable
+data <- data %>% 
+  mutate(value = cumsum(!duplicated(tz)))
+
+
+# now we'll create the dataClasses
+dta_clss <- data %>% 
+  mutate(value = cumsum(!duplicated(tz))) %>% 
+  group_by(tz) %>% 
+  summarise(value = unique(value)) %>% 
+  arrange(value) %>% 
+  rename(name = tz, from = value) %>% 
+  mutate(to = from + 1) %>% 
+  list_parse()
+
+hcmap(
+  map = "custom/europe",
+  data = data, 
+  joinBy = c("iso-a2","country"),
+  name = "Time zone",
+  value = "value",
+  tooltip = list(pointFormat = "{point.name} {point.tz}"),
+  dataLabels = list(enabled = TRUE, format = "{point.country}")
+  ) %>%
+  hc_colorAxis(
+    dataClassColor = "category",
+    dataClasses = dta_clss
+    ) %>% 
+  hc_title(text = "Europe Time Zones")
+```
+
+Example from https://www.highcharts.com/demo/maps/category-map.
+
 ## Adding Points
 
 With highcharter is possible add data as points or bubbles. For this it is 
@@ -118,7 +167,23 @@ cities <- data.frame(
 )
 
 hcmap("countries/gb/gb-all", showInLegend = FALSE) %>%
-  hc_add_series(data = cities, type = "mapbubble", name = "Cities", maxSize = "10%") %>%
+  hc_add_series(
+    data = cities, 
+    type = "mappoint",
+    name = "Cities", 
+    minSize = "1%",
+    maxSize = "5%"
+    ) %>%
+  hc_mapNavigation(enabled = TRUE)
+
+hcmap("countries/gb/gb-all", showInLegend = FALSE) %>%
+  hc_add_series(
+    data = cities, 
+    type = "mapbubble",
+    name = "Cities", 
+    minSize = "1%",
+    maxSize = "5%"
+    ) %>%
   hc_mapNavigation(enabled = TRUE)
 ```