how to extend ggplot2 while drowning

2024-10-24-wax-wick-candlestick/wax-wick-candlestick.Rmd

@@ -25,8 +25,8 @@ library(tidyverse)
 
 compute_group_wax <- function(data, scales){
   
-  data %>% 
-    mutate(xend = x, 
+  data |>
+    mutate(xmin = x,
            y = open, 
            yend = close) %>% 
     mutate(loss_gain =  
@@ -37,7 +37,7 @@ compute_group_wax <- function(data, scales){
 
 compute_group_wick <- function(data, scales){
   
-  data %>% 
+  data |>
     mutate(xend = x, 
            y = high, 
            yend = low) %>% 
@@ -75,11 +75,30 @@ to_plot %>%
                       default_aes = aes(color = after_stat(loss_gain))),
          geom = GeomSegment)
 
-  
-  
 
+to_plot %>% 
+  ggplot() + 
+  aes(x = date,
+      open = open,
+      close = close,
+      high = high,
+      low = low) + 
+  tidyquant::geom_candlestick()
+
+
+tidyquant::geom_candlestick
        
-       
+stock_data %>% 
+  slice(1:200) %>% 
+  ggplot() + 
+  aes(x = date,
+      open = open,
+      close = close,
+      high = high,
+      low = low) + 
+  tidyquant::geom_candlestick()
+
+
 
 ```
 

2024-10-30-packcircles-in-script-geom/packcircles-in-script-geom.Rmd

@@ -0,0 +1,75 @@
+---
+title: "another experiment"
+author: "Evangeline Reynolds"
+date: "`r Sys.Date()`"
+output: 
+  html_document:
+    toc: TRUE
+---
+
+```{r setup, include=FALSE}
+knitr::opts_chunk$set(echo = TRUE)
+options(tidyverse.quiet = TRUE)
+```
+
+
+
+
+## Intro Thoughts
+
+
+## Status Quo
+
+```{r}
+library(tidyverse)
+
+```
+
+## Experiment
+
+```{r}
+library(tidyverse)
+library(packcircles)
+compute_panel_circlepack <- function(data, scales){
+
+  data_w_id <- data |>
+    mutate(id = row_number())
+
+  data_w_id |>
+    pull(area) |>
+    packcircles::circleProgressiveLayout(
+      sizetype = 'area') |>
+    packcircles::circleLayoutVertices(npoints = 50) |>
+    left_join(data_w_id) |>
+    mutate(group = id)
+
+}
+
+geom_packcircles <- function(...){
+
+  StatTemp <- ggproto("StatTemp", Stat, 
+                      compute_panel = compute_panel_circlepack)
+  
+  geom_polygon(stat = StatTemp, ...)
+
+}
+
+gapminder::gapminder |> 
+  filter(year == 2002) |> 
+  ggplot() + 
+  aes(area = pop/1000000) + 
+  geom_packcircles() + 
+  aes(fill = continent) 
+
+last_plot() +
+  facet_wrap(facet = vars(continent)) + 
+  coord_equal()
+
+ggcalendar::ggcalendar(dates_df = ggcalendar::df_month(month = 11))
+ggcalendar::ggcalendar(dates_df = ggcalendar::df_month(month = 12))
+
+```
+
+
+
+## Closing remarks, Other Relevant Work, Caveats

2024-11-01-packcircles-in-script-geom/packcircles-in-script-geom.Rmd

@@ -0,0 +1,36 @@
+---
+title: "another experiment"
+author: "Evangeline Reynolds"
+date: "`r Sys.Date()`"
+output: 
+  html_document:
+    toc: TRUE
+---
+
+```{r setup, include=FALSE}
+knitr::opts_chunk$set(echo = TRUE)
+options(tidyverse.quiet = TRUE)
+```
+
+
+
+
+## Intro Thoughts
+
+
+## Status Quo
+
+```{r}
+library(tidyverse)
+
+```
+
+## Experiment
+
+```{r}
+
+```
+
+
+
+## Closing remarks, Other Relevant Work, Caveats

README.Rmd

@@ -63,7 +63,7 @@ new_experiment_rmd <- function(name){
 }   
 
   
-new_experiment_rmd(name = "flipbookr-outside-object")
+new_experiment_rmd(name = "wax-wick-candlestick")
 
 
 ```