Fixed colors in first highcharter plot in posts/interactive-data-visu…

…alization-with-r
tidy-intelligence · Jan 23, 2024 · d040f45 · d040f45
1 parent 614ebce
commit d040f45
Show file tree

Hide file tree

Showing 5 changed files with 91 additions and 87 deletions.
diff --git a/_freeze/posts/interactive-data-visualization-with-r/index/execute-results/html.json b/_freeze/posts/interactive-data-visualization-with-r/index/execute-results/html.json
diff --git a/docs/index.html b/docs/index.html
@@ -206,7 +206,7 @@
 
 <div class="quarto-listing quarto-listing-container-grid" id="listing-listing">
 <div class="list grid quarto-listing-cols-3">
-<div class="g-col-1" data-index="0" data-listing-date-sort="1705964400000" data-listing-file-modified-sort="1706023279252" data-listing-date-modified-sort="NaN" data-listing-reading-time-sort="14" data-listing-word-count-sort="2727">
+<div class="g-col-1" data-index="0" data-listing-date-sort="1705964400000" data-listing-file-modified-sort="1706023850660" data-listing-date-modified-sort="NaN" data-listing-reading-time-sort="14" data-listing-word-count-sort="2749">
 <a href="./posts/interactive-data-visualization-with-r/index.html" class="quarto-grid-link">
 <div class="quarto-grid-item card h-100 card-left">
 <p class="card-img-top">

diff --git a/docs/posts/interactive-data-visualization-with-r/index.html b/docs/posts/interactive-data-visualization-with-r/index.html
diff --git a/docs/sitemap.xml b/docs/sitemap.xml
@@ -54,6 +54,6 @@
   </url>
   <url>
     <loc>https://blog.tidy-intelligence.com/posts/interactive-data-visualization-with-r/index.html</loc>
-    <lastmod>2024-01-23T15:21:19.252Z</lastmod>
+    <lastmod>2024-01-23T15:30:50.660Z</lastmod>
   </url>
 </urlset>
diff --git a/posts/interactive-data-visualization-with-r/index.qmd b/posts/interactive-data-visualization-with-r/index.qmd
@@ -101,6 +101,7 @@ fig_full <- penguins |>
   hc_add_theme(hc_theme_ggplot2())
 
 species_unique <- levels(penguins$species)
+colors <- c("#440154", "#21908C", "#FDE725")
 for(j in seq_along(species_unique)) {
   
   penguins_subset <- penguins |> 
@@ -117,8 +118,9 @@ for(j in seq_along(species_unique)) {
   )
   
   fig_full <- fig_full |>  
-    hc_add_series(data = list_parse2(line_data), type = "line", marker = "none",
-                  color = highchart2()$hc_colors[j])
+    hc_add_series(data = list_parse2(line_data), 
+                  type = "line", marker = "none",
+                  color = colors[j])
 }
 
 fig_full