garden

count: false

.panel1-the_chunk-auto[

``` r
*library(tidyverse)
```
]
 
.panel2-the_chunk-auto[

]

---
count: false

.panel1-the_chunk-auto[

``` r
library(tidyverse)

*harvest_2021 <- readr::read_csv('https://raw.githubusercontent.com/rfordatascience/tidytuesday/master/data/2024/2024-05-28/harvest_2021.csv')
```
]
 
.panel2-the_chunk-auto[

]

---
count: false

.panel1-the_chunk-auto[

``` r
library(tidyverse)

harvest_2021 <- readr::read_csv('https://raw.githubusercontent.com/rfordatascience/tidytuesday/master/data/2024/2024-05-28/harvest_2021.csv')
*spending_2021 <- readr::read_csv('https://raw.githubusercontent.com/rfordatascience/tidytuesday/master/data/2024/2024-05-28/spending_2021.csv')
```
]
 
.panel2-the_chunk-auto[

]

---
count: false

.panel1-the_chunk-auto[

``` r
library(tidyverse)

harvest_2021 <- readr::read_csv('https://raw.githubusercontent.com/rfordatascience/tidytuesday/master/data/2024/2024-05-28/harvest_2021.csv')
spending_2021 <- readr::read_csv('https://raw.githubusercontent.com/rfordatascience/tidytuesday/master/data/2024/2024-05-28/spending_2021.csv')

*spending_2021
```
]
 
.panel2-the_chunk-auto[

```
# A tibble: 18 × 5
   vegetable    variety                brand               price price_with_tax
   <chr>        <chr>                  <chr>               <dbl>          <dbl>
 1 cabbage      early jersey wakefield Seed Savers          2.99           3.23
 2 kale         heirloom lacinto       Renee's Garden       2.79           3.01
 3 basil        emily                  Baker Creek          3              3.24
 4 basil        genovese               Seed Savers          3.25           3.51
 5 swiss chard  neon glow              Renee's Garden       2.99           3.23
 6 lettuce      romaine jericho        Renee's Garden       3.79           4.09
 7 onion        red wethersfield       Seed Savers          3.25           3.51
 8 carrots      bolero nantes          Renee's Garden       2.99           3.23
 9 carrots      starica                Renee's Garden       3.99           4.30
10 beets        gourmet golden         Renee's Garden       3.19           3.44
11 oregano      common                 Botanical Interests  2.29           2.47
12 rosemary     common                 Seed Savers          3.25           3.51
13 spearmint    common                 Seed Savers          3.25           3.51
14 potting soil <NA>                   <NA>                10             10.8 
15 straw        <NA>                   <NA>                20             21.6 
16 dill         Boquet                 <NA>                 3              3.24
17 spinach      Red Malabar            <NA>                 3              3.24
18 lettuce      Lettuce Mixture        <NA>                 3              3.24
```
]

---
count: false

.panel1-the_chunk-auto[

``` r
library(tidyverse)

spending_2021 %>%
* ggplot()
```
]
 
.panel2-the_chunk-auto[
<img src="garden_flipbook_files/figure-html/the_chunk_auto_05_output-1.png" height="20%" />
]

---
count: false

.panel1-the_chunk-auto[

``` r
library(tidyverse)

spending_2021 %>%
  ggplot() +
* labs(title = "Spending Breakdown")
```
]
 
.panel2-the_chunk-auto[
<img src="garden_flipbook_files/figure-html/the_chunk_auto_06_output-1.png" height="20%" />
]

---
count: false

.panel1-the_chunk-auto[

``` r
library(tidyverse)

spending_2021 %>%
  ggplot() +
  labs(title = "Spending Breakdown") +
* aes(area = price, id = vegetable)
```
]
 
.panel2-the_chunk-auto[
<img src="garden_flipbook_files/figure-html/the_chunk_auto_07_output-1.png" height="20%" />
]

---
count: false

.panel1-the_chunk-auto[

``` r
library(tidyverse)

spending_2021 %>%
  ggplot() +
  labs(title = "Spending Breakdown") +
  aes(area = price, id = vegetable) +
* ggcirclepack::geom_circlepack(linewidth = .15)
```
]
 
.panel2-the_chunk-auto[
<img src="garden_flipbook_files/figure-html/the_chunk_auto_08_output-1.png" height="20%" />
]

---
count: false

.panel1-the_chunk-auto[

``` r
library(tidyverse)

spending_2021 %>%
  ggplot() +
  labs(title = "Spending Breakdown") +
  aes(area = price, id = vegetable) +
  ggcirclepack::geom_circlepack(linewidth = .15) +
* coord_equal()
```
]
 
.panel2-the_chunk-auto[
<img src="garden_flipbook_files/figure-html/the_chunk_auto_09_output-1.png" height="20%" />
]

---
count: false

.panel1-the_chunk-auto[

``` r
library(tidyverse)

spending_2021 %>%
  ggplot() +
  labs(title = "Spending Breakdown") +
  aes(area = price, id = vegetable) +
  ggcirclepack::geom_circlepack(linewidth = .15) +
  coord_equal() +
* aes(fill = I("lightsteelblue"))
```
]
 
.panel2-the_chunk-auto[
<img src="garden_flipbook_files/figure-html/the_chunk_auto_10_output-1.png" height="20%" />
]

---
count: false

.panel1-the_chunk-auto[

``` r
library(tidyverse)

---
count: false

.panel1-the_chunk-auto[

``` r
library(tidyverse)

spending_2021 %>%
  ggplot() +
  labs(title = "Spending Breakdown") +
  aes(area = price, id = vegetable) +
  ggcirclepack::geom_circlepack(linewidth = .15) +
  coord_equal() +
  aes(fill = I("lightsteelblue")) +
  ggcirclepack::geom_circlepack_text(show.legend = F) +
* ggstamp::theme_void_fill(fill = "whitesmoke")
```
]
 
.panel2-the_chunk-auto[
<img src="garden_flipbook_files/figure-html/the_chunk_auto_12_output-1.png" height="20%" />
]

---
count: false

.panel1-the_chunk-auto[

``` r
library(tidyverse)

spending_2021 %>%
  ggplot() +
  labs(title = "Spending Breakdown") +
  aes(area = price, id = vegetable) +
  ggcirclepack::geom_circlepack(linewidth = .15) +
  coord_equal() +
  aes(fill = I("lightsteelblue")) +
  ggcirclepack::geom_circlepack_text(show.legend = F) +
  ggstamp::theme_void_fill(fill = "whitesmoke") +
* theme(text = element_text(color = "grey25"))
```
]
 
.panel2-the_chunk-auto[
<img src="garden_flipbook_files/figure-html/the_chunk_auto_13_output-1.png" height="20%" />
]

---
count: false

.panel1-the_chunk-auto[

``` r
library(tidyverse)

spending_2021 %>%
  ggplot() +
  labs(title = "Spending Breakdown") +
  aes(area = price, id = vegetable) +
  ggcirclepack::geom_circlepack(linewidth = .15) +
  coord_equal() +
  aes(fill = I("lightsteelblue")) +
  ggcirclepack::geom_circlepack_text(show.legend = F) +
  ggstamp::theme_void_fill(fill = "whitesmoke") +
  theme(text = element_text(color = "grey25"))  +
* aes(label = after_stat(paste0(id, "\n$", area)))
```
]
 
.panel2-the_chunk-auto[
<img src="garden_flipbook_files/figure-html/the_chunk_auto_14_output-1.png" height="20%" />
]

---
count: false

.panel1-the_chunk-auto[

``` r
library(tidyverse)

spending_2021 %>%
  ggplot() +
  labs(title = "Spending Breakdown") +
  aes(area = price, id = vegetable) +
  ggcirclepack::geom_circlepack(linewidth = .15) +
  coord_equal() +
  aes(fill = I("lightsteelblue")) +
  ggcirclepack::geom_circlepack_text(show.legend = F) +
  ggstamp::theme_void_fill(fill = "whitesmoke") +
  theme(text = element_text(color = "grey25"))  +
  aes(label = after_stat(paste0(id, "\n$", area))) +
* aes(color = I("grey25"))
```
]
 
.panel2-the_chunk-auto[
<img src="garden_flipbook_files/figure-html/the_chunk_auto_15_output-1.png" height="20%" />
]

---
count: false

.panel1-the_chunk-auto[

``` r
library(tidyverse)

spending_2021 %>%
  ggplot() +
  labs(title = "Spending Breakdown") +
  aes(area = price, id = vegetable) +
  ggcirclepack::geom_circlepack(linewidth = .15) +
  coord_equal() +
  aes(fill = I("lightsteelblue")) +
  ggcirclepack::geom_circlepack_text(show.legend = F) +
  ggstamp::theme_void_fill(fill = "whitesmoke") +
  theme(text = element_text(color = "grey25"))  +
  aes(label = after_stat(paste0(id, "\n$", area))) +
  aes(color = I("grey25")) ->
*spending_by_veg
```
]
 
.panel2-the_chunk-auto[

]

---
count: false

.panel1-the_chunk-auto[

``` r
library(tidyverse)

spending_2021 %>%
  ggplot() +
  labs(title = "Spending Breakdown") +
  aes(area = price, id = vegetable) +
  ggcirclepack::geom_circlepack(linewidth = .15) +
  coord_equal() +
  aes(fill = I("lightsteelblue")) +
  ggcirclepack::geom_circlepack_text(show.legend = F) +
  ggstamp::theme_void_fill(fill = "whitesmoke") +
  theme(text = element_text(color = "grey25"))  +
  aes(label = after_stat(paste0(id, "\n$", area))) +
  aes(color = I("grey25")) ->
spending_by_veg

*last_plot()
```
]
 
.panel2-the_chunk-auto[
<img src="garden_flipbook_files/figure-html/the_chunk_auto_17_output-1.png" height="20%" />
]

---
count: false

.panel1-the_chunk-auto[

``` r
library(tidyverse)

spending_2021 %>%
  ggplot() +
  labs(title = "Spending Breakdown") +
  aes(area = price, id = vegetable) +
  ggcirclepack::geom_circlepack(linewidth = .15) +
  coord_equal() +
  aes(fill = I("lightsteelblue")) +
  ggcirclepack::geom_circlepack_text(show.legend = F) +
  ggstamp::theme_void_fill(fill = "whitesmoke") +
  theme(text = element_text(color = "grey25"))  +
  aes(label = after_stat(paste0(id, "\n$", area))) +
  aes(color = I("grey25")) ->
spending_by_veg

last_plot() +
* aes(id = "All")
```
]
 
.panel2-the_chunk-auto[
<img src="garden_flipbook_files/figure-html/the_chunk_auto_18_output-1.png" height="20%" />
]

---
count: false

.panel1-the_chunk-auto[

``` r
library(tidyverse)

spending_2021 %>%
  ggplot() +
  labs(title = "Spending Breakdown") +
  aes(area = price, id = vegetable) +
  ggcirclepack::geom_circlepack(linewidth = .15) +
  coord_equal() +
  aes(fill = I("lightsteelblue")) +
  ggcirclepack::geom_circlepack_text(show.legend = F) +
  ggstamp::theme_void_fill(fill = "whitesmoke") +
  theme(text = element_text(color = "grey25"))  +
  aes(label = after_stat(paste0(id, "\n$", area))) +
  aes(color = I("grey25")) ->
spending_by_veg

last_plot() +
  aes(id = "All") +
* labs(title = "Total Spending")
```
]
 
.panel2-the_chunk-auto[
<img src="garden_flipbook_files/figure-html/the_chunk_auto_19_output-1.png" height="20%" />
]

---
count: false

.panel1-the_chunk-auto[

``` r
library(tidyverse)

spending_2021 %>%
  ggplot() +
  labs(title = "Spending Breakdown") +
  aes(area = price, id = vegetable) +
  ggcirclepack::geom_circlepack(linewidth = .15) +
  coord_equal() +
  aes(fill = I("lightsteelblue")) +
  ggcirclepack::geom_circlepack_text(show.legend = F) +
  ggstamp::theme_void_fill(fill = "whitesmoke") +
  theme(text = element_text(color = "grey25"))  +
  aes(label = after_stat(paste0(id, "\n$", area))) +
  aes(color = I("grey25")) ->
spending_by_veg

last_plot() +
  aes(id = "All") +
  labs(title = "Total Spending") ->
*spending_all
```
]
 
.panel2-the_chunk-auto[

]

---
count: false

.panel1-the_chunk-auto[

``` r
library(tidyverse)

spending_2021 %>%
  ggplot() +
  labs(title = "Spending Breakdown") +
  aes(area = price, id = vegetable) +
  ggcirclepack::geom_circlepack(linewidth = .15) +
  coord_equal() +
  aes(fill = I("lightsteelblue")) +
  ggcirclepack::geom_circlepack_text(show.legend = F) +
  ggstamp::theme_void_fill(fill = "whitesmoke") +
  theme(text = element_text(color = "grey25"))  +
  aes(label = after_stat(paste0(id, "\n$", area))) +
  aes(color = I("grey25")) ->
spending_by_veg

last_plot() +
  aes(id = "All") +
  labs(title = "Total Spending") ->
spending_all

*last_plot() %+% harvest_2021 + aes(area = weight)
```
]
 
.panel2-the_chunk-auto[
<img src="garden_flipbook_files/figure-html/the_chunk_auto_21_output-1.png" height="20%" />
]

---
count: false

.panel1-the_chunk-auto[

``` r
library(tidyverse)

spending_2021 %>%
  ggplot() +
  labs(title = "Spending Breakdown") +
  aes(area = price, id = vegetable) +
  ggcirclepack::geom_circlepack(linewidth = .15) +
  coord_equal() +
  aes(fill = I("lightsteelblue")) +
  ggcirclepack::geom_circlepack_text(show.legend = F) +
  ggstamp::theme_void_fill(fill = "whitesmoke") +
  theme(text = element_text(color = "grey25"))  +
  aes(label = after_stat(paste0(id, "\n$", area))) +
  aes(color = I("grey25")) ->
spending_by_veg

last_plot() +
  aes(id = "All") +
  labs(title = "Total Spending") ->
spending_all

last_plot() %+% harvest_2021 + aes(area = weight) +
* aes(fill = I("rosybrown3"))
```
]
 
.panel2-the_chunk-auto[
<img src="garden_flipbook_files/figure-html/the_chunk_auto_22_output-1.png" height="20%" />
]

---
count: false

.panel1-the_chunk-auto[

``` r
library(tidyverse)

spending_2021 %>%
  ggplot() +
  labs(title = "Spending Breakdown") +
  aes(area = price, id = vegetable) +
  ggcirclepack::geom_circlepack(linewidth = .15) +
  coord_equal() +
  aes(fill = I("lightsteelblue")) +
  ggcirclepack::geom_circlepack_text(show.legend = F) +
  ggstamp::theme_void_fill(fill = "whitesmoke") +
  theme(text = element_text(color = "grey25"))  +
  aes(label = after_stat(paste0(id, "\n$", area))) +
  aes(color = I("grey25")) ->
spending_by_veg

last_plot() +
  aes(id = "All") +
  labs(title = "Total Spending") ->
spending_all

last_plot() %+% harvest_2021 + aes(area = weight) +
  aes(fill = I("rosybrown3")) +
* aes(label = after_stat(
*   paste0(id, "\n",
*          round(area/1000), "kg")))
```
]
 
.panel2-the_chunk-auto[
<img src="garden_flipbook_files/figure-html/the_chunk_auto_23_output-1.png" height="20%" />
]

---
count: false

.panel1-the_chunk-auto[

``` r
library(tidyverse)

spending_2021 %>%
  ggplot() +
  labs(title = "Spending Breakdown") +
  aes(area = price, id = vegetable) +
  ggcirclepack::geom_circlepack(linewidth = .15) +
  coord_equal() +
  aes(fill = I("lightsteelblue")) +
  ggcirclepack::geom_circlepack_text(show.legend = F) +
  ggstamp::theme_void_fill(fill = "whitesmoke") +
  theme(text = element_text(color = "grey25"))  +
  aes(label = after_stat(paste0(id, "\n$", area))) +
  aes(color = I("grey25")) ->
spending_by_veg

last_plot() +
  aes(id = "All") +
  labs(title = "Total Spending") ->
spending_all

last_plot() %+% harvest_2021 + aes(area = weight) +
  aes(fill = I("rosybrown3")) +
  aes(label = after_stat(
    paste0(id, "\n",
           round(area/1000), "kg"))) +
* labs(title = "Total Harvest")
```
]
 
.panel2-the_chunk-auto[
<img src="garden_flipbook_files/figure-html/the_chunk_auto_24_output-1.png" height="20%" />
]

---
count: false

.panel1-the_chunk-auto[

``` r
library(tidyverse)

spending_2021 %>%
  ggplot() +
  labs(title = "Spending Breakdown") +
  aes(area = price, id = vegetable) +
  ggcirclepack::geom_circlepack(linewidth = .15) +
  coord_equal() +
  aes(fill = I("lightsteelblue")) +
  ggcirclepack::geom_circlepack_text(show.legend = F) +
  ggstamp::theme_void_fill(fill = "whitesmoke") +
  theme(text = element_text(color = "grey25"))  +
  aes(label = after_stat(paste0(id, "\n$", area))) +
  aes(color = I("grey25")) ->
spending_by_veg

last_plot() +
  aes(id = "All") +
  labs(title = "Total Spending") ->
spending_all

last_plot() %+% harvest_2021 + aes(area = weight) +
  aes(fill = I("rosybrown3")) +
  aes(label = after_stat(
    paste0(id, "\n",
           round(area/1000), "kg"))) +
  labs(title = "Total Harvest") ->
*harvest_all
```
]
 
.panel2-the_chunk-auto[

]

---
count: false

.panel1-the_chunk-auto[

``` r
library(tidyverse)

spending_2021 %>%
  ggplot() +
  labs(title = "Spending Breakdown") +
  aes(area = price, id = vegetable) +
  ggcirclepack::geom_circlepack(linewidth = .15) +
  coord_equal() +
  aes(fill = I("lightsteelblue")) +
  ggcirclepack::geom_circlepack_text(show.legend = F) +
  ggstamp::theme_void_fill(fill = "whitesmoke") +
  theme(text = element_text(color = "grey25"))  +
  aes(label = after_stat(paste0(id, "\n$", area))) +
  aes(color = I("grey25")) ->
spending_by_veg

last_plot() +
  aes(id = "All") +
  labs(title = "Total Spending") ->
spending_all

*last_plot()
```
]
 
.panel2-the_chunk-auto[
<img src="garden_flipbook_files/figure-html/the_chunk_auto_26_output-1.png" height="20%" />
]

---
count: false

.panel1-the_chunk-auto[

``` r
library(tidyverse)

spending_2021 %>%
  ggplot() +
  labs(title = "Spending Breakdown") +
  aes(area = price, id = vegetable) +
  ggcirclepack::geom_circlepack(linewidth = .15) +
  coord_equal() +
  aes(fill = I("lightsteelblue")) +
  ggcirclepack::geom_circlepack_text(show.legend = F) +
  ggstamp::theme_void_fill(fill = "whitesmoke") +
  theme(text = element_text(color = "grey25"))  +
  aes(label = after_stat(paste0(id, "\n$", area))) +
  aes(color = I("grey25")) ->
spending_by_veg

last_plot() +
  aes(id = "All") +
  labs(title = "Total Spending") ->
spending_all

last_plot() +
* aes(id = vegetable)
```
]
 
.panel2-the_chunk-auto[
<img src="garden_flipbook_files/figure-html/the_chunk_auto_27_output-1.png" height="20%" />
]

---
count: false

.panel1-the_chunk-auto[

``` r
library(tidyverse)

spending_2021 %>%
  ggplot() +
  labs(title = "Spending Breakdown") +
  aes(area = price, id = vegetable) +
  ggcirclepack::geom_circlepack(linewidth = .15) +
  coord_equal() +
  aes(fill = I("lightsteelblue")) +
  ggcirclepack::geom_circlepack_text(show.legend = F) +
  ggstamp::theme_void_fill(fill = "whitesmoke") +
  theme(text = element_text(color = "grey25"))  +
  aes(label = after_stat(paste0(id, "\n$", area))) +
  aes(color = I("grey25")) ->
spending_by_veg

last_plot() +
  aes(id = "All") +
  labs(title = "Total Spending") ->
spending_all

last_plot() +
  aes(id = vegetable) +
* labs(title = "Harvest Breakdown")
```
]
 
.panel2-the_chunk-auto[
<img src="garden_flipbook_files/figure-html/the_chunk_auto_28_output-1.png" height="20%" />
]

---
count: false

.panel1-the_chunk-auto[

``` r
library(tidyverse)

spending_2021 %>%
  ggplot() +
  labs(title = "Spending Breakdown") +
  aes(area = price, id = vegetable) +
  ggcirclepack::geom_circlepack(linewidth = .15) +
  coord_equal() +
  aes(fill = I("lightsteelblue")) +
  ggcirclepack::geom_circlepack_text(show.legend = F) +
  ggstamp::theme_void_fill(fill = "whitesmoke") +
  theme(text = element_text(color = "grey25"))  +
  aes(label = after_stat(paste0(id, "\n$", area))) +
  aes(color = I("grey25")) ->
spending_by_veg

last_plot() +
  aes(id = "All") +
  labs(title = "Total Spending") ->
spending_all

last_plot() +
  aes(id = vegetable) +
  labs(title = "Harvest Breakdown") ->
*harvest_by_veg
```
]
 
.panel2-the_chunk-auto[

]

---
count: false

.panel1-the_chunk-auto[

``` r
library(tidyverse)

spending_2021 %>%
  ggplot() +
  labs(title = "Spending Breakdown") +
  aes(area = price, id = vegetable) +
  ggcirclepack::geom_circlepack(linewidth = .15) +
  coord_equal() +
  aes(fill = I("lightsteelblue")) +
  ggcirclepack::geom_circlepack_text(show.legend = F) +
  ggstamp::theme_void_fill(fill = "whitesmoke") +
  theme(text = element_text(color = "grey25"))  +
  aes(label = after_stat(paste0(id, "\n$", area))) +
  aes(color = I("grey25")) ->
spending_by_veg

last_plot() +
  aes(id = "All") +
  labs(title = "Total Spending") ->
spending_all

last_plot() +
  aes(id = vegetable) +
  labs(title = "Harvest Breakdown") ->
harvest_by_veg

*library(patchwork)
```
]
 
.panel2-the_chunk-auto[

]

---
count: false

.panel1-the_chunk-auto[

``` r
library(tidyverse)

spending_2021 %>%
  ggplot() +
  labs(title = "Spending Breakdown") +
  aes(area = price, id = vegetable) +
  ggcirclepack::geom_circlepack(linewidth = .15) +
  coord_equal() +
  aes(fill = I("lightsteelblue")) +
  ggcirclepack::geom_circlepack_text(show.legend = F) +
  ggstamp::theme_void_fill(fill = "whitesmoke") +
  theme(text = element_text(color = "grey25"))  +
  aes(label = after_stat(paste0(id, "\n$", area))) +
  aes(color = I("grey25")) ->
spending_by_veg

last_plot() +
  aes(id = "All") +
  labs(title = "Total Spending") ->
spending_all

last_plot() +
  aes(id = vegetable) +
  labs(title = "Harvest Breakdown") ->
harvest_by_veg

library(patchwork)
*(spending_all + harvest_all +
*   spending_by_veg + harvest_by_veg)
```
]
 
.panel2-the_chunk-auto[
<img src="garden_flipbook_files/figure-html/the_chunk_auto_31_output-1.png" height="20%" />
]

---
count: false

.panel1-the_chunk-auto[

``` r
library(tidyverse)

spending_2021 %>%
  ggplot() +
  labs(title = "Spending Breakdown") +
  aes(area = price, id = vegetable) +
  ggcirclepack::geom_circlepack(linewidth = .15) +
  coord_equal() +
  aes(fill = I("lightsteelblue")) +
  ggcirclepack::geom_circlepack_text(show.legend = F) +
  ggstamp::theme_void_fill(fill = "whitesmoke") +
  theme(text = element_text(color = "grey25"))  +
  aes(label = after_stat(paste0(id, "\n$", area))) +
  aes(color = I("grey25")) ->
spending_by_veg

last_plot() +
  aes(id = "All") +
  labs(title = "Total Spending") ->
spending_all

last_plot() +
  aes(id = vegetable) +
  labs(title = "Harvest Breakdown") ->
harvest_by_veg

library(patchwork)
(spending_all + harvest_all +
    spending_by_veg + harvest_by_veg) &
* plot_annotation(
*   title = "Lisa's Garden Spending and Harvest 2021",
*   theme = theme(
*     text = element_text(color = "grey25"),
*     plot.background = element_rect(fill = "whitesmoke"))
*   )
```
]
 
.panel2-the_chunk-auto[
<img src="garden_flipbook_files/figure-html/the_chunk_auto_32_output-1.png" height="20%" />
]

---
count: false

.panel1-the_chunk-auto[

``` r
library(tidyverse)

spending_2021 %>%
  ggplot() +
  labs(title = "Spending Breakdown") +
  aes(area = price, id = vegetable) +
  ggcirclepack::geom_circlepack(linewidth = .15) +
  coord_equal() +
  aes(fill = I("lightsteelblue")) +
  ggcirclepack::geom_circlepack_text(show.legend = F) +
  ggstamp::theme_void_fill(fill = "whitesmoke") +
  theme(text = element_text(color = "grey25"))  +
  aes(label = after_stat(paste0(id, "\n$", area))) +
  aes(color = I("grey25")) ->
spending_by_veg

last_plot() +
  aes(id = "All") +
  labs(title = "Total Spending") ->
spending_all

last_plot() +
  aes(id = vegetable) +
  labs(title = "Harvest Breakdown") ->
harvest_by_veg

library(patchwork)
(spending_all + harvest_all +
    spending_by_veg + harvest_by_veg) &
  plot_annotation(
    title = "Lisa's Garden Spending and Harvest 2021",
    theme = theme(
      text = element_text(color = "grey25"),
      plot.background = element_rect(fill = "whitesmoke"))
    )
```
]
 
.panel2-the_chunk-auto[
<img src="garden_flipbook_files/figure-html/the_chunk_auto_33_output-1.png" height="20%" />
]

---

count: false

.panel1-the_chunk2-auto[

``` r
*spending_2021
```
]
 
.panel2-the_chunk2-auto[

---
count: false

.panel1-the_chunk2-auto[

``` r
spending_2021 %>%
* ggplot()
```
]
 
.panel2-the_chunk2-auto[
<img src="garden_flipbook_files/figure-html/the_chunk2_auto_02_output-1.png" height="20%" />
]

---
count: false

.panel1-the_chunk2-auto[

``` r
spending_2021 %>%
  ggplot() +
* labs(title = "Spending Breakdown")
```
]
 
.panel2-the_chunk2-auto[
<img src="garden_flipbook_files/figure-html/the_chunk2_auto_03_output-1.png" height="20%" />
]

---
count: false

.panel1-the_chunk2-auto[

``` r
spending_2021 %>%
  ggplot() +
  labs(title = "Spending Breakdown") +
* aes(weight = price)
```
]
 
.panel2-the_chunk2-auto[
<img src="garden_flipbook_files/figure-html/the_chunk2_auto_04_output-1.png" height="20%" />
]

---
count: false

.panel1-the_chunk2-auto[

``` r
spending_2021 %>%
  ggplot() +
  labs(title = "Spending Breakdown") +
  aes(weight = price) +
* aes(y = fct_reorder(vegetable, price, .fun = sum))
```
]
 
.panel2-the_chunk2-auto[
<img src="garden_flipbook_files/figure-html/the_chunk2_auto_05_output-1.png" height="20%" />
]

---
count: false

.panel1-the_chunk2-auto[

``` r
spending_2021 %>%
  ggplot() +
  labs(title = "Spending Breakdown") +
  aes(weight = price) +
  aes(y = fct_reorder(vegetable, price, .fun = sum)) +
* geom_bar(linewidth = .15)
```
]
 
.panel2-the_chunk2-auto[
<img src="garden_flipbook_files/figure-html/the_chunk2_auto_06_output-1.png" height="20%" />
]

---
count: false

.panel1-the_chunk2-auto[

``` r
spending_2021 %>%
  ggplot() +
  labs(title = "Spending Breakdown") +
  aes(weight = price) +
  aes(y = fct_reorder(vegetable, price, .fun = sum)) +
  geom_bar(linewidth = .15) +
* labs(x = NULL, y = NULL)
```
]
 
.panel2-the_chunk2-auto[
<img src="garden_flipbook_files/figure-html/the_chunk2_auto_07_output-1.png" height="20%" />
]

---
count: false

.panel1-the_chunk2-auto[

``` r
spending_2021 %>%
  ggplot() +
  labs(title = "Spending Breakdown") +
  aes(weight = price) +
  aes(y = fct_reorder(vegetable, price, .fun = sum)) +
  geom_bar(linewidth = .15) +
  labs(x = NULL, y = NULL) +
* aes(fill = I("lightsteelblue"))
```
]
 
.panel2-the_chunk2-auto[
<img src="garden_flipbook_files/figure-html/the_chunk2_auto_08_output-1.png" height="20%" />
]

---
count: false

.panel1-the_chunk2-auto[

---
count: false

.panel1-the_chunk2-auto[

---
count: false

.panel1-the_chunk2-auto[

---
count: false

.panel1-the_chunk2-auto[

``` r
spending_2021 %>%
  ggplot() +
  labs(title = "Spending Breakdown") +
  aes(weight = price) +
  aes(y = fct_reorder(vegetable, price, .fun = sum)) +
  geom_bar(linewidth = .15) +
  labs(x = NULL, y = NULL) +
  aes(fill = I("lightsteelblue")) +
  aes(label = after_stat(paste0("$", count))) +
  stat_count(geom = "label",
             alpha = 0,
             label.size = 0) +
  aes(hjust = 1) +
* ggstamp::theme_void_fill(fill = "whitesmoke")
```
]
 
.panel2-the_chunk2-auto[
<img src="garden_flipbook_files/figure-html/the_chunk2_auto_12_output-1.png" height="20%" />
]

---
count: false

.panel1-the_chunk2-auto[

``` r
spending_2021 %>%
  ggplot() +
  labs(title = "Spending Breakdown") +
  aes(weight = price) +
  aes(y = fct_reorder(vegetable, price, .fun = sum)) +
  geom_bar(linewidth = .15) +
  labs(x = NULL, y = NULL) +
  aes(fill = I("lightsteelblue")) +
  aes(label = after_stat(paste0("$", count))) +
  stat_count(geom = "label",
             alpha = 0,
             label.size = 0) +
  aes(hjust = 1) +
  ggstamp::theme_void_fill(fill = "whitesmoke") +
* theme(axis.text.y = element_text(hjust = 1),
*   text = element_text(color = "grey25"))
```
]
 
.panel2-the_chunk2-auto[
<img src="garden_flipbook_files/figure-html/the_chunk2_auto_13_output-1.png" height="20%" />
]

---
count: false

.panel1-the_chunk2-auto[

``` r
spending_2021 %>%
  ggplot() +
  labs(title = "Spending Breakdown") +
  aes(weight = price) +
  aes(y = fct_reorder(vegetable, price, .fun = sum)) +
  geom_bar(linewidth = .15) +
  labs(x = NULL, y = NULL) +
  aes(fill = I("lightsteelblue")) +
  aes(label = after_stat(paste0("$", count))) +
  stat_count(geom = "label",
             alpha = 0,
             label.size = 0) +
  aes(hjust = 1) +
  ggstamp::theme_void_fill(fill = "whitesmoke") +
  theme(axis.text.y = element_text(hjust = 1),
    text = element_text(color = "grey25")) +
* aes(hjust = after_stat(count > quantile(count, .55)))
```
]
 
.panel2-the_chunk2-auto[
<img src="garden_flipbook_files/figure-html/the_chunk2_auto_14_output-1.png" height="20%" />
]

---
count: false

.panel1-the_chunk2-auto[

``` r
spending_2021 %>%
  ggplot() +
  labs(title = "Spending Breakdown") +
  aes(weight = price) +
  aes(y = fct_reorder(vegetable, price, .fun = sum)) +
  geom_bar(linewidth = .15) +
  labs(x = NULL, y = NULL) +
  aes(fill = I("lightsteelblue")) +
  aes(label = after_stat(paste0("$", count))) +
  stat_count(geom = "label",
             alpha = 0,
             label.size = 0) +
  aes(hjust = 1) +
  ggstamp::theme_void_fill(fill = "whitesmoke") +
  theme(axis.text.y = element_text(hjust = 1),
    text = element_text(color = "grey25")) +
  aes(hjust = after_stat(count > quantile(count, .55))) +
* aes(color = I("grey25"))
```
]
 
.panel2-the_chunk2-auto[
<img src="garden_flipbook_files/figure-html/the_chunk2_auto_15_output-1.png" height="20%" />
]

---
count: false

.panel1-the_chunk2-auto[

``` r
spending_2021 %>%
  ggplot() +
  labs(title = "Spending Breakdown") +
  aes(weight = price) +
  aes(y = fct_reorder(vegetable, price, .fun = sum)) +
  geom_bar(linewidth = .15) +
  labs(x = NULL, y = NULL) +
  aes(fill = I("lightsteelblue")) +
  aes(label = after_stat(paste0("$", count))) +
  stat_count(geom = "label",
             alpha = 0,
             label.size = 0) +
  aes(hjust = 1) +
  ggstamp::theme_void_fill(fill = "whitesmoke") +
  theme(axis.text.y = element_text(hjust = 1),
    text = element_text(color = "grey25")) +
  aes(hjust = after_stat(count > quantile(count, .55))) +
  aes(color = I("grey25")) ->
*spending_by_veg
```
]
 
.panel2-the_chunk2-auto[

]

---
count: false

.panel1-the_chunk2-auto[

``` r
spending_2021 %>%
  ggplot() +
  labs(title = "Spending Breakdown") +
  aes(weight = price) +
  aes(y = fct_reorder(vegetable, price, .fun = sum)) +
  geom_bar(linewidth = .15) +
  labs(x = NULL, y = NULL) +
  aes(fill = I("lightsteelblue")) +
  aes(label = after_stat(paste0("$", count))) +
  stat_count(geom = "label",
             alpha = 0,
             label.size = 0) +
  aes(hjust = 1) +
  ggstamp::theme_void_fill(fill = "whitesmoke") +
  theme(axis.text.y = element_text(hjust = 1),
    text = element_text(color = "grey25")) +
  aes(hjust = after_stat(count > quantile(count, .55))) +
  aes(color = I("grey25")) ->
spending_by_veg

*last_plot()
```
]
 
.panel2-the_chunk2-auto[
<img src="garden_flipbook_files/figure-html/the_chunk2_auto_17_output-1.png" height="20%" />
]

---
count: false

.panel1-the_chunk2-auto[

``` r
spending_2021 %>%
  ggplot() +
  labs(title = "Spending Breakdown") +
  aes(weight = price) +
  aes(y = fct_reorder(vegetable, price, .fun = sum)) +
  geom_bar(linewidth = .15) +
  labs(x = NULL, y = NULL) +
  aes(fill = I("lightsteelblue")) +
  aes(label = after_stat(paste0("$", count))) +
  stat_count(geom = "label",
             alpha = 0,
             label.size = 0) +
  aes(hjust = 1) +
  ggstamp::theme_void_fill(fill = "whitesmoke") +
  theme(axis.text.y = element_text(hjust = 1),
    text = element_text(color = "grey25")) +
  aes(hjust = after_stat(count > quantile(count, .55))) +
  aes(color = I("grey25")) ->
spending_by_veg

last_plot() +
* aes(y = "All")
```
]
 
.panel2-the_chunk2-auto[
<img src="garden_flipbook_files/figure-html/the_chunk2_auto_18_output-1.png" height="20%" />
]

---
count: false

.panel1-the_chunk2-auto[

``` r
spending_2021 %>%
  ggplot() +
  labs(title = "Spending Breakdown") +
  aes(weight = price) +
  aes(y = fct_reorder(vegetable, price, .fun = sum)) +
  geom_bar(linewidth = .15) +
  labs(x = NULL, y = NULL) +
  aes(fill = I("lightsteelblue")) +
  aes(label = after_stat(paste0("$", count))) +
  stat_count(geom = "label",
             alpha = 0,
             label.size = 0) +
  aes(hjust = 1) +
  ggstamp::theme_void_fill(fill = "whitesmoke") +
  theme(axis.text.y = element_text(hjust = 1),
    text = element_text(color = "grey25")) +
  aes(hjust = after_stat(count > quantile(count, .55))) +
  aes(color = I("grey25")) ->
spending_by_veg

last_plot() +
  aes(y = "All")  +
* aes(hjust = 1)
```
]
 
.panel2-the_chunk2-auto[
<img src="garden_flipbook_files/figure-html/the_chunk2_auto_19_output-1.png" height="20%" />
]

---
count: false

.panel1-the_chunk2-auto[

``` r
spending_2021 %>%
  ggplot() +
  labs(title = "Spending Breakdown") +
  aes(weight = price) +
  aes(y = fct_reorder(vegetable, price, .fun = sum)) +
  geom_bar(linewidth = .15) +
  labs(x = NULL, y = NULL) +
  aes(fill = I("lightsteelblue")) +
  aes(label = after_stat(paste0("$", count))) +
  stat_count(geom = "label",
             alpha = 0,
             label.size = 0) +
  aes(hjust = 1) +
  ggstamp::theme_void_fill(fill = "whitesmoke") +
  theme(axis.text.y = element_text(hjust = 1),
    text = element_text(color = "grey25")) +
  aes(hjust = after_stat(count > quantile(count, .55))) +
  aes(color = I("grey25")) ->
spending_by_veg

last_plot() +
  aes(y = "All")  +
  aes(hjust = 1) +
* labs(title = "Total Spending")
```
]
 
.panel2-the_chunk2-auto[
<img src="garden_flipbook_files/figure-html/the_chunk2_auto_20_output-1.png" height="20%" />
]

---
count: false

.panel1-the_chunk2-auto[

``` r
spending_2021 %>%
  ggplot() +
  labs(title = "Spending Breakdown") +
  aes(weight = price) +
  aes(y = fct_reorder(vegetable, price, .fun = sum)) +
  geom_bar(linewidth = .15) +
  labs(x = NULL, y = NULL) +
  aes(fill = I("lightsteelblue")) +
  aes(label = after_stat(paste0("$", count))) +
  stat_count(geom = "label",
             alpha = 0,
             label.size = 0) +
  aes(hjust = 1) +
  ggstamp::theme_void_fill(fill = "whitesmoke") +
  theme(axis.text.y = element_text(hjust = 1),
    text = element_text(color = "grey25")) +
  aes(hjust = after_stat(count > quantile(count, .55))) +
  aes(color = I("grey25")) ->
spending_by_veg

last_plot() +
  aes(y = "All")  +
  aes(hjust = 1) +
  labs(title = "Total Spending")  ->
*spending_all
```
]
 
.panel2-the_chunk2-auto[

]

---
count: false

.panel1-the_chunk2-auto[

``` r
spending_2021 %>%
  ggplot() +
  labs(title = "Spending Breakdown") +
  aes(weight = price) +
  aes(y = fct_reorder(vegetable, price, .fun = sum)) +
  geom_bar(linewidth = .15) +
  labs(x = NULL, y = NULL) +
  aes(fill = I("lightsteelblue")) +
  aes(label = after_stat(paste0("$", count))) +
  stat_count(geom = "label",
             alpha = 0,
             label.size = 0) +
  aes(hjust = 1) +
  ggstamp::theme_void_fill(fill = "whitesmoke") +
  theme(axis.text.y = element_text(hjust = 1),
    text = element_text(color = "grey25")) +
  aes(hjust = after_stat(count > quantile(count, .55))) +
  aes(color = I("grey25")) ->
spending_by_veg

last_plot() +
  aes(y = "All")  +
  aes(hjust = 1) +
  labs(title = "Total Spending")  ->
spending_all

*last_plot()
```
]
 
.panel2-the_chunk2-auto[
<img src="garden_flipbook_files/figure-html/the_chunk2_auto_22_output-1.png" height="20%" />
]

---
count: false

.panel1-the_chunk2-auto[

``` r
spending_2021 %>%
  ggplot() +
  labs(title = "Spending Breakdown") +
  aes(weight = price) +
  aes(y = fct_reorder(vegetable, price, .fun = sum)) +
  geom_bar(linewidth = .15) +
  labs(x = NULL, y = NULL) +
  aes(fill = I("lightsteelblue")) +
  aes(label = after_stat(paste0("$", count))) +
  stat_count(geom = "label",
             alpha = 0,
             label.size = 0) +
  aes(hjust = 1) +
  ggstamp::theme_void_fill(fill = "whitesmoke") +
  theme(axis.text.y = element_text(hjust = 1),
    text = element_text(color = "grey25")) +
  aes(hjust = after_stat(count > quantile(count, .55))) +
  aes(color = I("grey25")) ->
spending_by_veg

last_plot() +
  aes(y = "All")  +
  aes(hjust = 1) +
  labs(title = "Total Spending")  ->
spending_all

last_plot() %+%
* harvest_2021 + aes(weight = weight)
```
]
 
.panel2-the_chunk2-auto[
<img src="garden_flipbook_files/figure-html/the_chunk2_auto_23_output-1.png" height="20%" />
]

---
count: false

.panel1-the_chunk2-auto[

``` r
spending_2021 %>%
  ggplot() +
  labs(title = "Spending Breakdown") +
  aes(weight = price) +
  aes(y = fct_reorder(vegetable, price, .fun = sum)) +
  geom_bar(linewidth = .15) +
  labs(x = NULL, y = NULL) +
  aes(fill = I("lightsteelblue")) +
  aes(label = after_stat(paste0("$", count))) +
  stat_count(geom = "label",
             alpha = 0,
             label.size = 0) +
  aes(hjust = 1) +
  ggstamp::theme_void_fill(fill = "whitesmoke") +
  theme(axis.text.y = element_text(hjust = 1),
    text = element_text(color = "grey25")) +
  aes(hjust = after_stat(count > quantile(count, .55))) +
  aes(color = I("grey25")) ->
spending_by_veg

last_plot() +
  aes(y = "All")  +
  aes(hjust = 1) +
  labs(title = "Total Spending")  ->
spending_all

last_plot() %+%
  harvest_2021 + aes(weight = weight) +
* aes(fill = I("rosybrown3"))
```
]
 
.panel2-the_chunk2-auto[
<img src="garden_flipbook_files/figure-html/the_chunk2_auto_24_output-1.png" height="20%" />
]

---
count: false

.panel1-the_chunk2-auto[

``` r
spending_2021 %>%
  ggplot() +
  labs(title = "Spending Breakdown") +
  aes(weight = price) +
  aes(y = fct_reorder(vegetable, price, .fun = sum)) +
  geom_bar(linewidth = .15) +
  labs(x = NULL, y = NULL) +
  aes(fill = I("lightsteelblue")) +
  aes(label = after_stat(paste0("$", count))) +
  stat_count(geom = "label",
             alpha = 0,
             label.size = 0) +
  aes(hjust = 1) +
  ggstamp::theme_void_fill(fill = "whitesmoke") +
  theme(axis.text.y = element_text(hjust = 1),
    text = element_text(color = "grey25")) +
  aes(hjust = after_stat(count > quantile(count, .55))) +
  aes(color = I("grey25")) ->
spending_by_veg

last_plot() +
  aes(y = "All")  +
  aes(hjust = 1) +
  labs(title = "Total Spending")  ->
spending_all

last_plot() %+%
  harvest_2021 + aes(weight = weight) +
  aes(fill = I("rosybrown3")) +
* aes(label = after_stat(paste0(round(count/1000), "kg")))
```
]
 
.panel2-the_chunk2-auto[
<img src="garden_flipbook_files/figure-html/the_chunk2_auto_25_output-1.png" height="20%" />
]

---
count: false

.panel1-the_chunk2-auto[

``` r
spending_2021 %>%
  ggplot() +
  labs(title = "Spending Breakdown") +
  aes(weight = price) +
  aes(y = fct_reorder(vegetable, price, .fun = sum)) +
  geom_bar(linewidth = .15) +
  labs(x = NULL, y = NULL) +
  aes(fill = I("lightsteelblue")) +
  aes(label = after_stat(paste0("$", count))) +
  stat_count(geom = "label",
             alpha = 0,
             label.size = 0) +
  aes(hjust = 1) +
  ggstamp::theme_void_fill(fill = "whitesmoke") +
  theme(axis.text.y = element_text(hjust = 1),
    text = element_text(color = "grey25")) +
  aes(hjust = after_stat(count > quantile(count, .55))) +
  aes(color = I("grey25")) ->
spending_by_veg

last_plot() +
  aes(y = "All")  +
  aes(hjust = 1) +
  labs(title = "Total Spending")  ->
spending_all

last_plot() %+%
  harvest_2021 + aes(weight = weight) +
  aes(fill = I("rosybrown3")) +
  aes(label = after_stat(paste0(round(count/1000), "kg"))) +
* labs(title = "Total Harvest")
```
]
 
.panel2-the_chunk2-auto[
<img src="garden_flipbook_files/figure-html/the_chunk2_auto_26_output-1.png" height="20%" />
]

---
count: false

.panel1-the_chunk2-auto[

``` r
spending_2021 %>%
  ggplot() +
  labs(title = "Spending Breakdown") +
  aes(weight = price) +
  aes(y = fct_reorder(vegetable, price, .fun = sum)) +
  geom_bar(linewidth = .15) +
  labs(x = NULL, y = NULL) +
  aes(fill = I("lightsteelblue")) +
  aes(label = after_stat(paste0("$", count))) +
  stat_count(geom = "label",
             alpha = 0,
             label.size = 0) +
  aes(hjust = 1) +
  ggstamp::theme_void_fill(fill = "whitesmoke") +
  theme(axis.text.y = element_text(hjust = 1),
    text = element_text(color = "grey25")) +
  aes(hjust = after_stat(count > quantile(count, .55))) +
  aes(color = I("grey25")) ->
spending_by_veg

last_plot() +
  aes(y = "All")  +
  aes(hjust = 1) +
  labs(title = "Total Spending")  ->
spending_all

last_plot() %+%
  harvest_2021 + aes(weight = weight) +
  aes(fill = I("rosybrown3")) +
  aes(label = after_stat(paste0(round(count/1000), "kg"))) +
  labs(title = "Total Harvest") ->
*harvest_all
```
]
 
.panel2-the_chunk2-auto[

]

---
count: false

.panel1-the_chunk2-auto[

``` r
spending_2021 %>%
  ggplot() +
  labs(title = "Spending Breakdown") +
  aes(weight = price) +
  aes(y = fct_reorder(vegetable, price, .fun = sum)) +
  geom_bar(linewidth = .15) +
  labs(x = NULL, y = NULL) +
  aes(fill = I("lightsteelblue")) +
  aes(label = after_stat(paste0("$", count))) +
  stat_count(geom = "label",
             alpha = 0,
             label.size = 0) +
  aes(hjust = 1) +
  ggstamp::theme_void_fill(fill = "whitesmoke") +
  theme(axis.text.y = element_text(hjust = 1),
    text = element_text(color = "grey25")) +
  aes(hjust = after_stat(count > quantile(count, .55))) +
  aes(color = I("grey25")) ->
spending_by_veg

last_plot() +
  aes(y = "All")  +
  aes(hjust = 1) +
  labs(title = "Total Spending")  ->
spending_all

last_plot() %+%
  harvest_2021 + aes(weight = weight) +
  aes(fill = I("rosybrown3")) +
  aes(label = after_stat(paste0(round(count/1000), "kg"))) +
  labs(title = "Total Harvest") ->
harvest_all

*last_plot()
```
]
 
.panel2-the_chunk2-auto[
<img src="garden_flipbook_files/figure-html/the_chunk2_auto_28_output-1.png" height="20%" />
]

---
count: false

.panel1-the_chunk2-auto[

``` r
spending_2021 %>%
  ggplot() +
  labs(title = "Spending Breakdown") +
  aes(weight = price) +
  aes(y = fct_reorder(vegetable, price, .fun = sum)) +
  geom_bar(linewidth = .15) +
  labs(x = NULL, y = NULL) +
  aes(fill = I("lightsteelblue")) +
  aes(label = after_stat(paste0("$", count))) +
  stat_count(geom = "label",
             alpha = 0,
             label.size = 0) +
  aes(hjust = 1) +
  ggstamp::theme_void_fill(fill = "whitesmoke") +
  theme(axis.text.y = element_text(hjust = 1),
    text = element_text(color = "grey25")) +
  aes(hjust = after_stat(count > quantile(count, .55))) +
  aes(color = I("grey25")) ->
spending_by_veg

last_plot() +
  aes(y = "All")  +
  aes(hjust = 1) +
  labs(title = "Total Spending")  ->
spending_all

last_plot() %+%
  harvest_2021 + aes(weight = weight) +
  aes(fill = I("rosybrown3")) +
  aes(label = after_stat(paste0(round(count/1000), "kg"))) +
  labs(title = "Total Harvest") ->
harvest_all

last_plot() +
* aes(y = fct_reorder(vegetable, weight, .fun = sum))
```
]
 
.panel2-the_chunk2-auto[
<img src="garden_flipbook_files/figure-html/the_chunk2_auto_29_output-1.png" height="20%" />
]

---
count: false

.panel1-the_chunk2-auto[

``` r
spending_2021 %>%
  ggplot() +
  labs(title = "Spending Breakdown") +
  aes(weight = price) +
  aes(y = fct_reorder(vegetable, price, .fun = sum)) +
  geom_bar(linewidth = .15) +
  labs(x = NULL, y = NULL) +
  aes(fill = I("lightsteelblue")) +
  aes(label = after_stat(paste0("$", count))) +
  stat_count(geom = "label",
             alpha = 0,
             label.size = 0) +
  aes(hjust = 1) +
  ggstamp::theme_void_fill(fill = "whitesmoke") +
  theme(axis.text.y = element_text(hjust = 1),
    text = element_text(color = "grey25")) +
  aes(hjust = after_stat(count > quantile(count, .55))) +
  aes(color = I("grey25")) ->
spending_by_veg

last_plot() +
  aes(y = "All")  +
  aes(hjust = 1) +
  labs(title = "Total Spending")  ->
spending_all

last_plot() %+%
  harvest_2021 + aes(weight = weight) +
  aes(fill = I("rosybrown3")) +
  aes(label = after_stat(paste0(round(count/1000), "kg"))) +
  labs(title = "Total Harvest") ->
harvest_all

last_plot() +
  aes(y = fct_reorder(vegetable, weight, .fun = sum)) +
* aes(hjust = after_stat(count > quantile(count, .85)))
```
]
 
.panel2-the_chunk2-auto[
<img src="garden_flipbook_files/figure-html/the_chunk2_auto_30_output-1.png" height="20%" />
]

---
count: false

.panel1-the_chunk2-auto[

``` r
spending_2021 %>%
  ggplot() +
  labs(title = "Spending Breakdown") +
  aes(weight = price) +
  aes(y = fct_reorder(vegetable, price, .fun = sum)) +
  geom_bar(linewidth = .15) +
  labs(x = NULL, y = NULL) +
  aes(fill = I("lightsteelblue")) +
  aes(label = after_stat(paste0("$", count))) +
  stat_count(geom = "label",
             alpha = 0,
             label.size = 0) +
  aes(hjust = 1) +
  ggstamp::theme_void_fill(fill = "whitesmoke") +
  theme(axis.text.y = element_text(hjust = 1),
    text = element_text(color = "grey25")) +
  aes(hjust = after_stat(count > quantile(count, .55))) +
  aes(color = I("grey25")) ->
spending_by_veg

last_plot() +
  aes(y = "All")  +
  aes(hjust = 1) +
  labs(title = "Total Spending")  ->
spending_all

last_plot() %+%
  harvest_2021 + aes(weight = weight) +
  aes(fill = I("rosybrown3")) +
  aes(label = after_stat(paste0(round(count/1000), "kg"))) +
  labs(title = "Total Harvest") ->
harvest_all

last_plot() +
  aes(y = fct_reorder(vegetable, weight, .fun = sum)) +
  aes(hjust = after_stat(count > quantile(count, .85))) +
* labs(title = "Harvest Breakdown")
```
]
 
.panel2-the_chunk2-auto[
<img src="garden_flipbook_files/figure-html/the_chunk2_auto_31_output-1.png" height="20%" />
]

---
count: false

.panel1-the_chunk2-auto[

``` r
spending_2021 %>%
  ggplot() +
  labs(title = "Spending Breakdown") +
  aes(weight = price) +
  aes(y = fct_reorder(vegetable, price, .fun = sum)) +
  geom_bar(linewidth = .15) +
  labs(x = NULL, y = NULL) +
  aes(fill = I("lightsteelblue")) +
  aes(label = after_stat(paste0("$", count))) +
  stat_count(geom = "label",
             alpha = 0,
             label.size = 0) +
  aes(hjust = 1) +
  ggstamp::theme_void_fill(fill = "whitesmoke") +
  theme(axis.text.y = element_text(hjust = 1),
    text = element_text(color = "grey25")) +
  aes(hjust = after_stat(count > quantile(count, .55))) +
  aes(color = I("grey25")) ->
spending_by_veg

last_plot() +
  aes(y = "All")  +
  aes(hjust = 1) +
  labs(title = "Total Spending")  ->
spending_all

last_plot() %+%
  harvest_2021 + aes(weight = weight) +
  aes(fill = I("rosybrown3")) +
  aes(label = after_stat(paste0(round(count/1000), "kg"))) +
  labs(title = "Total Harvest") ->
harvest_all

last_plot() +
  aes(y = fct_reorder(vegetable, weight, .fun = sum)) +
  aes(hjust = after_stat(count > quantile(count, .85))) +
  labs(title = "Harvest Breakdown") ->
*harvest_by_veg
```
]
 
.panel2-the_chunk2-auto[

]

---
count: false

.panel1-the_chunk2-auto[

``` r
spending_2021 %>%
  ggplot() +
  labs(title = "Spending Breakdown") +
  aes(weight = price) +
  aes(y = fct_reorder(vegetable, price, .fun = sum)) +
  geom_bar(linewidth = .15) +
  labs(x = NULL, y = NULL) +
  aes(fill = I("lightsteelblue")) +
  aes(label = after_stat(paste0("$", count))) +
  stat_count(geom = "label",
             alpha = 0,
             label.size = 0) +
  aes(hjust = 1) +
  ggstamp::theme_void_fill(fill = "whitesmoke") +
  theme(axis.text.y = element_text(hjust = 1),
    text = element_text(color = "grey25")) +
  aes(hjust = after_stat(count > quantile(count, .55))) +
  aes(color = I("grey25")) ->
spending_by_veg

last_plot() +
  aes(y = "All")  +
  aes(hjust = 1) +
  labs(title = "Total Spending")  ->
spending_all

last_plot() %+%
  harvest_2021 + aes(weight = weight) +
  aes(fill = I("rosybrown3")) +
  aes(label = after_stat(paste0(round(count/1000), "kg"))) +
  labs(title = "Total Harvest") ->
harvest_all

last_plot() +
  aes(y = fct_reorder(vegetable, weight, .fun = sum)) +
  aes(hjust = after_stat(count > quantile(count, .85))) +
  labs(title = "Harvest Breakdown") ->
harvest_by_veg

*library(patchwork)
```
]
 
.panel2-the_chunk2-auto[

]

---
count: false

.panel1-the_chunk2-auto[

``` r
spending_2021 %>%
  ggplot() +
  labs(title = "Spending Breakdown") +
  aes(weight = price) +
  aes(y = fct_reorder(vegetable, price, .fun = sum)) +
  geom_bar(linewidth = .15) +
  labs(x = NULL, y = NULL) +
  aes(fill = I("lightsteelblue")) +
  aes(label = after_stat(paste0("$", count))) +
  stat_count(geom = "label",
             alpha = 0,
             label.size = 0) +
  aes(hjust = 1) +
  ggstamp::theme_void_fill(fill = "whitesmoke") +
  theme(axis.text.y = element_text(hjust = 1),
    text = element_text(color = "grey25")) +
  aes(hjust = after_stat(count > quantile(count, .55))) +
  aes(color = I("grey25")) ->
spending_by_veg

last_plot() +
  aes(y = "All")  +
  aes(hjust = 1) +
  labs(title = "Total Spending")  ->
spending_all

last_plot() %+%
  harvest_2021 + aes(weight = weight) +
  aes(fill = I("rosybrown3")) +
  aes(label = after_stat(paste0(round(count/1000), "kg"))) +
  labs(title = "Total Harvest") ->
harvest_all

last_plot() +
  aes(y = fct_reorder(vegetable, weight, .fun = sum)) +
  aes(hjust = after_stat(count > quantile(count, .85))) +
  labs(title = "Harvest Breakdown") ->
harvest_by_veg

library(patchwork)
*(spending_all + harvest_all +
*   spending_by_veg + (harvest_by_veg + aes(size = I(2)) +
*      theme(axis.text.y = element_text(size = 7))))
```
]
 
.panel2-the_chunk2-auto[
<img src="garden_flipbook_files/figure-html/the_chunk2_auto_34_output-1.png" height="20%" />
]

---
count: false

.panel1-the_chunk2-auto[

``` r
spending_2021 %>%
  ggplot() +
  labs(title = "Spending Breakdown") +
  aes(weight = price) +
  aes(y = fct_reorder(vegetable, price, .fun = sum)) +
  geom_bar(linewidth = .15) +
  labs(x = NULL, y = NULL) +
  aes(fill = I("lightsteelblue")) +
  aes(label = after_stat(paste0("$", count))) +
  stat_count(geom = "label",
             alpha = 0,
             label.size = 0) +
  aes(hjust = 1) +
  ggstamp::theme_void_fill(fill = "whitesmoke") +
  theme(axis.text.y = element_text(hjust = 1),
    text = element_text(color = "grey25")) +
  aes(hjust = after_stat(count > quantile(count, .55))) +
  aes(color = I("grey25")) ->
spending_by_veg

last_plot() +
  aes(y = "All")  +
  aes(hjust = 1) +
  labs(title = "Total Spending")  ->
spending_all

last_plot() %+%
  harvest_2021 + aes(weight = weight) +
  aes(fill = I("rosybrown3")) +
  aes(label = after_stat(paste0(round(count/1000), "kg"))) +
  labs(title = "Total Harvest") ->
harvest_all

last_plot() +
  aes(y = fct_reorder(vegetable, weight, .fun = sum)) +
  aes(hjust = after_stat(count > quantile(count, .85))) +
  labs(title = "Harvest Breakdown") ->
harvest_by_veg

library(patchwork)
(spending_all + harvest_all +
    spending_by_veg + (harvest_by_veg + aes(size = I(2)) +
       theme(axis.text.y = element_text(size = 7)))) +
* plot_layout(heights = c(1, 3))
```
]
 
.panel2-the_chunk2-auto[
<img src="garden_flipbook_files/figure-html/the_chunk2_auto_35_output-1.png" height="20%" />
]

---
count: false

.panel1-the_chunk2-auto[

``` r
spending_2021 %>%
  ggplot() +
  labs(title = "Spending Breakdown") +
  aes(weight = price) +
  aes(y = fct_reorder(vegetable, price, .fun = sum)) +
  geom_bar(linewidth = .15) +
  labs(x = NULL, y = NULL) +
  aes(fill = I("lightsteelblue")) +
  aes(label = after_stat(paste0("$", count))) +
  stat_count(geom = "label",
             alpha = 0,
             label.size = 0) +
  aes(hjust = 1) +
  ggstamp::theme_void_fill(fill = "whitesmoke") +
  theme(axis.text.y = element_text(hjust = 1),
    text = element_text(color = "grey25")) +
  aes(hjust = after_stat(count > quantile(count, .55))) +
  aes(color = I("grey25")) ->
spending_by_veg

last_plot() +
  aes(y = "All")  +
  aes(hjust = 1) +
  labs(title = "Total Spending")  ->
spending_all

last_plot() %+%
  harvest_2021 + aes(weight = weight) +
  aes(fill = I("rosybrown3")) +
  aes(label = after_stat(paste0(round(count/1000), "kg"))) +
  labs(title = "Total Harvest") ->
harvest_all

last_plot() +
  aes(y = fct_reorder(vegetable, weight, .fun = sum)) +
  aes(hjust = after_stat(count > quantile(count, .85))) +
  labs(title = "Harvest Breakdown") ->
harvest_by_veg

library(patchwork)
(spending_all + harvest_all +
    spending_by_veg + (harvest_by_veg + aes(size = I(2)) +
       theme(axis.text.y = element_text(size = 7)))) +
  plot_layout(heights = c(1, 3)) &
* plot_annotation(
*   title = "Lisa's Garden Spending and Harvest 2021",
*   theme = theme(
*     text = element_text(color = "grey25"),
*     plot.background = element_rect(fill = "whitesmoke"))
* )
```
]
 
.panel2-the_chunk2-auto[
<img src="garden_flipbook_files/figure-html/the_chunk2_auto_36_output-1.png" height="20%" />
]

---
count: false

.panel1-the_chunk2-auto[

``` r
spending_2021 %>%
  ggplot() +
  labs(title = "Spending Breakdown") +
  aes(weight = price) +
  aes(y = fct_reorder(vegetable, price, .fun = sum)) +
  geom_bar(linewidth = .15) +
  labs(x = NULL, y = NULL) +
  aes(fill = I("lightsteelblue")) +
  aes(label = after_stat(paste0("$", count))) +
  stat_count(geom = "label",
             alpha = 0,
             label.size = 0) +
  aes(hjust = 1) +
  ggstamp::theme_void_fill(fill = "whitesmoke") +
  theme(axis.text.y = element_text(hjust = 1),
    text = element_text(color = "grey25")) +
  aes(hjust = after_stat(count > quantile(count, .55))) +
  aes(color = I("grey25")) ->
spending_by_veg

last_plot() +
  aes(y = "All")  +
  aes(hjust = 1) +
  labs(title = "Total Spending")  ->
spending_all

last_plot() %+%
  harvest_2021 + aes(weight = weight) +
  aes(fill = I("rosybrown3")) +
  aes(label = after_stat(paste0(round(count/1000), "kg"))) +
  labs(title = "Total Harvest") ->
harvest_all

last_plot() +
  aes(y = fct_reorder(vegetable, weight, .fun = sum)) +
  aes(hjust = after_stat(count > quantile(count, .85))) +
  labs(title = "Harvest Breakdown") ->
harvest_by_veg

library(patchwork)
(spending_all + harvest_all +
    spending_by_veg + (harvest_by_veg + aes(size = I(2)) +
       theme(axis.text.y = element_text(size = 7)))) +
  plot_layout(heights = c(1, 3)) &
  plot_annotation(
    title = "Lisa's Garden Spending and Harvest 2021",
    theme = theme(
      text = element_text(color = "grey25"),
      plot.background = element_rect(fill = "whitesmoke"))
  )
```
]
 
.panel2-the_chunk2-auto[
<img src="garden_flipbook_files/figure-html/the_chunk2_auto_37_output-1.png" height="20%" />
]

---

@media print {
  .has-continuation {
    display: block;
  }
}

code.r.hljs.remark-code{
  position: relative;
  overflow-x: hidden;
}

code.r.hljs.remark-code:hover{
  overflow-x:visible;
  width: 500px;
  border-style: solid;
}
</style>