210608_tidytuesday_great_lakes_fish.Rmd

---
title: "210504_tidytuesday_great_lakes_fish"
author: "Angela"
date: "8/6/2021"
output: html_document
---

```{r}
knitr::opts_chunk$set(echo = FALSE, messages = FALSE, warnings = FALSE)
```

```{r}
library(tidytuesdayR)
library(tidyverse)
library(plotly)
library(glue)
```


```{r}
# Read in the data from the tidy tuesday library.
tuesdata <- tidytuesdayR::tt_load('2021-06-08')
readme(tuesdata)
```

```{r}
fishing <- tuesdata$fishing
head(fishing)
```


```{r}
# Plotting function
sunburst_plotting_function <- function(lake_name){
  # Selecting the rows that I want
  sb_fish_data <- fishing %>%
  filter(between(year, 2000, 2010),
         lake == lake_name
         ) %>%
  group_by(year, species) %>%
  summarize(total = sum(grand_total, na.rm =TRUE)) %>%
  arrange(-total)

  # Wrangling the data into the lists that I need for plotly
  fish_by_year <- sb_fish_data %>%
    group_by(year) %>%
    summarize(values = sum(total)) %>%
    arrange(-year)

  fish_by_species <- sb_fish_data %>%
    group_by(year, species) %>%
    summarize(values = sum(total)) %>%
  #  filter(values > 0) %>%
    arrange(-year) %>%
    mutate(id = paste(year, species))
  
  fish_labels = c(glue('LAKE\n{toupper(lake_name)}'), fish_by_year$year, fish_by_species$species)
  fish_ids = c(lake_name, fish_by_year$year, fish_by_species$id)
  fish_parents = c("", replicate(length(fish_by_year$year), lake_name), fish_by_species$year)
  fish_values = c(sum(fish_by_year$values), fish_by_year$values, fish_by_species$values)
  
  # Sunburst plot
  sunburst_plot <- plot_ly(
    labels = fish_labels,
    ids = fish_ids,
    parents = fish_parents,
    values = fish_values,
    type = 'sunburst',
    branchvalues = 'total',
    sort = FALSE
    ) %>% 
    layout(font = list(family = "Droid Serif",
                       size = 16, 
                       color = "black")
           )
  
  return(sunburst_plot)}
```


```{r}
all_plots <- lapply(unique(fishing$lake), function(x) sunburst_plotting_function(x))
all_plots
```