updated index

reuning · Feb 22, 2024 · 5b26e08 · 5b26e08
1 parent 855210c
commit 5b26e08
Show file tree

Hide file tree

Showing 121 changed files with 1,039 additions and 726 deletions.
diff --git a/data/states/alabama/index.qmd b/data/states/alabama/index.qmd
@@ -74,7 +74,10 @@ plot_data <- data |>
 
 curr_quarter <- floor_date(today(), unit="quarter")
 
-unit_data <- plot_data |> group_by(Tally_Quarter, Union_Cer) |> 
+unit_data <- plot_data |> 
+    mutate(Union_Cer=factor(Union_Cer, levels=c("Yes", "No", "Other", 
+    "Still Open"))) |> 
+    group_by(Tally_Quarter, Union_Cer) |> 
     summarize(n=n()) |> ungroup() |> 
     complete(Tally_Quarter=seq(start_quarter, curr_quarter, "quarter"),
     Union_Cer, fill=list("n"=0)) |> 
@@ -85,17 +88,16 @@ y_max <- unit_data |>
     summarize(out=sum(n)) |> 
     pull(out) 
 
+color_pal <- viridis::viridis_pal(begin=.15, end=.85)(4)
 ggplot(unit_data, aes(x=Tally_Quarter,
                     fill=Union_Cer, y=n)) +
     geom_col(position=position_stack(reverse=T), 
         color="black", size=.2, width=80) +
     scale_y_continuous(labels=scales::label_comma()) +
     annotate("text", x=curr_quarter,
             y=ifelse(y_max == 0, 1, y_max*1.10),label="*") +
-    scale_fill_viridis_d("Voted for Union?",
-                        direction = -1,
-                        begin = .15,
-                        end=.85) +
+    scale_fill_manual("Voted for Union?",
+        values=color_pal[c(4,1,2,3)]) +
     theme(legend.position = "bottom",
         text = element_text(size=15, lineheight=.3)) +
     ggtitle("Number of Union Elections in a Quarter by Outcome") +
@@ -205,7 +207,7 @@ table_out <- unit_data |>
 
 gt(table_out) |> 
   fmt_integer(columns=`Unionized`:`Covered`) |> 
-  tab_spanner( "By Unit", columns=c(Unionized, `Voted Against`)) |> 
+  tab_spanner( "By Unit", columns=Unionized:`Still Open`) |> 
   tab_spanner("By Worker", columns=`Votes For`:`Covered`)
     
 

diff --git a/data/states/alaska/index.qmd b/data/states/alaska/index.qmd
@@ -74,7 +74,10 @@ plot_data <- data |>
 
 curr_quarter <- floor_date(today(), unit="quarter")
 
-unit_data <- plot_data |> group_by(Tally_Quarter, Union_Cer) |> 
+unit_data <- plot_data |> 
+    mutate(Union_Cer=factor(Union_Cer, levels=c("Yes", "No", "Other", 
+    "Still Open"))) |> 
+    group_by(Tally_Quarter, Union_Cer) |> 
     summarize(n=n()) |> ungroup() |> 
     complete(Tally_Quarter=seq(start_quarter, curr_quarter, "quarter"),
     Union_Cer, fill=list("n"=0)) |> 
@@ -85,17 +88,16 @@ y_max <- unit_data |>
     summarize(out=sum(n)) |> 
     pull(out) 
 
+color_pal <- viridis::viridis_pal(begin=.15, end=.85)(4)
 ggplot(unit_data, aes(x=Tally_Quarter,
                     fill=Union_Cer, y=n)) +
     geom_col(position=position_stack(reverse=T), 
         color="black", size=.2, width=80) +
     scale_y_continuous(labels=scales::label_comma()) +
     annotate("text", x=curr_quarter,
             y=ifelse(y_max == 0, 1, y_max*1.10),label="*") +
-    scale_fill_viridis_d("Voted for Union?",
-                        direction = -1,
-                        begin = .15,
-                        end=.85) +
+    scale_fill_manual("Voted for Union?",
+        values=color_pal[c(4,1,2,3)]) +
     theme(legend.position = "bottom",
         text = element_text(size=15, lineheight=.3)) +
     ggtitle("Number of Union Elections in a Quarter by Outcome") +
@@ -205,7 +207,7 @@ table_out <- unit_data |>
 
 gt(table_out) |> 
   fmt_integer(columns=`Unionized`:`Covered`) |> 
-  tab_spanner( "By Unit", columns=c(Unionized, `Voted Against`)) |> 
+  tab_spanner( "By Unit", columns=Unionized:`Still Open`) |> 
   tab_spanner("By Worker", columns=`Votes For`:`Covered`)
     
 

diff --git a/data/states/arizona/index.qmd b/data/states/arizona/index.qmd
@@ -74,7 +74,10 @@ plot_data <- data |>
 
 curr_quarter <- floor_date(today(), unit="quarter")
 
-unit_data <- plot_data |> group_by(Tally_Quarter, Union_Cer) |> 
+unit_data <- plot_data |> 
+    mutate(Union_Cer=factor(Union_Cer, levels=c("Yes", "No", "Other", 
+    "Still Open"))) |> 
+    group_by(Tally_Quarter, Union_Cer) |> 
     summarize(n=n()) |> ungroup() |> 
     complete(Tally_Quarter=seq(start_quarter, curr_quarter, "quarter"),
     Union_Cer, fill=list("n"=0)) |> 
@@ -85,17 +88,16 @@ y_max <- unit_data |>
     summarize(out=sum(n)) |> 
     pull(out) 
 
+color_pal <- viridis::viridis_pal(begin=.15, end=.85)(4)
 ggplot(unit_data, aes(x=Tally_Quarter,
                     fill=Union_Cer, y=n)) +
     geom_col(position=position_stack(reverse=T), 
         color="black", size=.2, width=80) +
     scale_y_continuous(labels=scales::label_comma()) +
     annotate("text", x=curr_quarter,
             y=ifelse(y_max == 0, 1, y_max*1.10),label="*") +
-    scale_fill_viridis_d("Voted for Union?",
-                        direction = -1,
-                        begin = .15,
-                        end=.85) +
+    scale_fill_manual("Voted for Union?",
+        values=color_pal[c(4,1,2,3)]) +
     theme(legend.position = "bottom",
         text = element_text(size=15, lineheight=.3)) +
     ggtitle("Number of Union Elections in a Quarter by Outcome") +
@@ -205,7 +207,7 @@ table_out <- unit_data |>
 
 gt(table_out) |> 
   fmt_integer(columns=`Unionized`:`Covered`) |> 
-  tab_spanner( "By Unit", columns=c(Unionized, `Voted Against`)) |> 
+  tab_spanner( "By Unit", columns=Unionized:`Still Open`) |> 
   tab_spanner("By Worker", columns=`Votes For`:`Covered`)
     
 

diff --git a/data/states/arkansas/index.qmd b/data/states/arkansas/index.qmd
@@ -74,7 +74,10 @@ plot_data <- data |>
 
 curr_quarter <- floor_date(today(), unit="quarter")
 
-unit_data <- plot_data |> group_by(Tally_Quarter, Union_Cer) |> 
+unit_data <- plot_data |> 
+    mutate(Union_Cer=factor(Union_Cer, levels=c("Yes", "No", "Other", 
+    "Still Open"))) |> 
+    group_by(Tally_Quarter, Union_Cer) |> 
     summarize(n=n()) |> ungroup() |> 
     complete(Tally_Quarter=seq(start_quarter, curr_quarter, "quarter"),
     Union_Cer, fill=list("n"=0)) |> 
@@ -85,17 +88,16 @@ y_max <- unit_data |>
     summarize(out=sum(n)) |> 
     pull(out) 
 
+color_pal <- viridis::viridis_pal(begin=.15, end=.85)(4)
 ggplot(unit_data, aes(x=Tally_Quarter,
                     fill=Union_Cer, y=n)) +
     geom_col(position=position_stack(reverse=T), 
         color="black", size=.2, width=80) +
     scale_y_continuous(labels=scales::label_comma()) +
     annotate("text", x=curr_quarter,
             y=ifelse(y_max == 0, 1, y_max*1.10),label="*") +
-    scale_fill_viridis_d("Voted for Union?",
-                        direction = -1,
-                        begin = .15,
-                        end=.85) +
+    scale_fill_manual("Voted for Union?",
+        values=color_pal[c(4,1,2,3)]) +
     theme(legend.position = "bottom",
         text = element_text(size=15, lineheight=.3)) +
     ggtitle("Number of Union Elections in a Quarter by Outcome") +
@@ -205,7 +207,7 @@ table_out <- unit_data |>
 
 gt(table_out) |> 
   fmt_integer(columns=`Unionized`:`Covered`) |> 
-  tab_spanner( "By Unit", columns=c(Unionized, `Voted Against`)) |> 
+  tab_spanner( "By Unit", columns=Unionized:`Still Open`) |> 
   tab_spanner("By Worker", columns=`Votes For`:`Covered`)
     
 

diff --git a/data/states/california/index.qmd b/data/states/california/index.qmd
@@ -74,7 +74,10 @@ plot_data <- data |>
 
 curr_quarter <- floor_date(today(), unit="quarter")
 
-unit_data <- plot_data |> group_by(Tally_Quarter, Union_Cer) |> 
+unit_data <- plot_data |> 
+    mutate(Union_Cer=factor(Union_Cer, levels=c("Yes", "No", "Other", 
+    "Still Open"))) |> 
+    group_by(Tally_Quarter, Union_Cer) |> 
     summarize(n=n()) |> ungroup() |> 
     complete(Tally_Quarter=seq(start_quarter, curr_quarter, "quarter"),
     Union_Cer, fill=list("n"=0)) |> 
@@ -85,17 +88,16 @@ y_max <- unit_data |>
     summarize(out=sum(n)) |> 
     pull(out) 
 
+color_pal <- viridis::viridis_pal(begin=.15, end=.85)(4)
 ggplot(unit_data, aes(x=Tally_Quarter,
                     fill=Union_Cer, y=n)) +
     geom_col(position=position_stack(reverse=T), 
         color="black", size=.2, width=80) +
     scale_y_continuous(labels=scales::label_comma()) +
     annotate("text", x=curr_quarter,
             y=ifelse(y_max == 0, 1, y_max*1.10),label="*") +
-    scale_fill_viridis_d("Voted for Union?",
-                        direction = -1,
-                        begin = .15,
-                        end=.85) +
+    scale_fill_manual("Voted for Union?",
+        values=color_pal[c(4,1,2,3)]) +
     theme(legend.position = "bottom",
         text = element_text(size=15, lineheight=.3)) +
     ggtitle("Number of Union Elections in a Quarter by Outcome") +
@@ -205,7 +207,7 @@ table_out <- unit_data |>
 
 gt(table_out) |> 
   fmt_integer(columns=`Unionized`:`Covered`) |> 
-  tab_spanner( "By Unit", columns=c(Unionized, `Voted Against`)) |> 
+  tab_spanner( "By Unit", columns=Unionized:`Still Open`) |> 
   tab_spanner("By Worker", columns=`Votes For`:`Covered`)
     
 

diff --git a/data/states/colorado/index.qmd b/data/states/colorado/index.qmd
@@ -74,7 +74,10 @@ plot_data <- data |>
 
 curr_quarter <- floor_date(today(), unit="quarter")
 
-unit_data <- plot_data |> group_by(Tally_Quarter, Union_Cer) |> 
+unit_data <- plot_data |> 
+    mutate(Union_Cer=factor(Union_Cer, levels=c("Yes", "No", "Other", 
+    "Still Open"))) |> 
+    group_by(Tally_Quarter, Union_Cer) |> 
     summarize(n=n()) |> ungroup() |> 
     complete(Tally_Quarter=seq(start_quarter, curr_quarter, "quarter"),
     Union_Cer, fill=list("n"=0)) |> 
@@ -85,17 +88,16 @@ y_max <- unit_data |>
     summarize(out=sum(n)) |> 
     pull(out) 
 
+color_pal <- viridis::viridis_pal(begin=.15, end=.85)(4)
 ggplot(unit_data, aes(x=Tally_Quarter,
                     fill=Union_Cer, y=n)) +
     geom_col(position=position_stack(reverse=T), 
         color="black", size=.2, width=80) +
     scale_y_continuous(labels=scales::label_comma()) +
     annotate("text", x=curr_quarter,
             y=ifelse(y_max == 0, 1, y_max*1.10),label="*") +
-    scale_fill_viridis_d("Voted for Union?",
-                        direction = -1,
-                        begin = .15,
-                        end=.85) +
+    scale_fill_manual("Voted for Union?",
+        values=color_pal[c(4,1,2,3)]) +
     theme(legend.position = "bottom",
         text = element_text(size=15, lineheight=.3)) +
     ggtitle("Number of Union Elections in a Quarter by Outcome") +
@@ -205,7 +207,7 @@ table_out <- unit_data |>
 
 gt(table_out) |> 
   fmt_integer(columns=`Unionized`:`Covered`) |> 
-  tab_spanner( "By Unit", columns=c(Unionized, `Voted Against`)) |> 
+  tab_spanner( "By Unit", columns=Unionized:`Still Open`) |> 
   tab_spanner("By Worker", columns=`Votes For`:`Covered`)
     
 

diff --git a/data/states/connecticut/index.qmd b/data/states/connecticut/index.qmd
@@ -74,7 +74,10 @@ plot_data <- data |>
 
 curr_quarter <- floor_date(today(), unit="quarter")
 
-unit_data <- plot_data |> group_by(Tally_Quarter, Union_Cer) |> 
+unit_data <- plot_data |> 
+    mutate(Union_Cer=factor(Union_Cer, levels=c("Yes", "No", "Other", 
+    "Still Open"))) |> 
+    group_by(Tally_Quarter, Union_Cer) |> 
     summarize(n=n()) |> ungroup() |> 
     complete(Tally_Quarter=seq(start_quarter, curr_quarter, "quarter"),
     Union_Cer, fill=list("n"=0)) |> 
@@ -85,17 +88,16 @@ y_max <- unit_data |>
     summarize(out=sum(n)) |> 
     pull(out) 
 
+color_pal <- viridis::viridis_pal(begin=.15, end=.85)(4)
 ggplot(unit_data, aes(x=Tally_Quarter,
                     fill=Union_Cer, y=n)) +
     geom_col(position=position_stack(reverse=T), 
         color="black", size=.2, width=80) +
     scale_y_continuous(labels=scales::label_comma()) +
     annotate("text", x=curr_quarter,
             y=ifelse(y_max == 0, 1, y_max*1.10),label="*") +
-    scale_fill_viridis_d("Voted for Union?",
-                        direction = -1,
-                        begin = .15,
-                        end=.85) +
+    scale_fill_manual("Voted for Union?",
+        values=color_pal[c(4,1,2,3)]) +
     theme(legend.position = "bottom",
         text = element_text(size=15, lineheight=.3)) +
     ggtitle("Number of Union Elections in a Quarter by Outcome") +
@@ -205,7 +207,7 @@ table_out <- unit_data |>
 
 gt(table_out) |> 
   fmt_integer(columns=`Unionized`:`Covered`) |> 
-  tab_spanner( "By Unit", columns=c(Unionized, `Voted Against`)) |> 
+  tab_spanner( "By Unit", columns=Unionized:`Still Open`) |> 
   tab_spanner("By Worker", columns=`Votes For`:`Covered`)
     
 

diff --git a/data/states/delaware/index.qmd b/data/states/delaware/index.qmd
@@ -74,7 +74,10 @@ plot_data <- data |>
 
 curr_quarter <- floor_date(today(), unit="quarter")
 
-unit_data <- plot_data |> group_by(Tally_Quarter, Union_Cer) |> 
+unit_data <- plot_data |> 
+    mutate(Union_Cer=factor(Union_Cer, levels=c("Yes", "No", "Other", 
+    "Still Open"))) |> 
+    group_by(Tally_Quarter, Union_Cer) |> 
     summarize(n=n()) |> ungroup() |> 
     complete(Tally_Quarter=seq(start_quarter, curr_quarter, "quarter"),
     Union_Cer, fill=list("n"=0)) |> 
@@ -85,17 +88,16 @@ y_max <- unit_data |>
     summarize(out=sum(n)) |> 
     pull(out) 
 
+color_pal <- viridis::viridis_pal(begin=.15, end=.85)(4)
 ggplot(unit_data, aes(x=Tally_Quarter,
                     fill=Union_Cer, y=n)) +
     geom_col(position=position_stack(reverse=T), 
         color="black", size=.2, width=80) +
     scale_y_continuous(labels=scales::label_comma()) +
     annotate("text", x=curr_quarter,
             y=ifelse(y_max == 0, 1, y_max*1.10),label="*") +
-    scale_fill_viridis_d("Voted for Union?",
-                        direction = -1,
-                        begin = .15,
-                        end=.85) +
+    scale_fill_manual("Voted for Union?",
+        values=color_pal[c(4,1,2,3)]) +
     theme(legend.position = "bottom",
         text = element_text(size=15, lineheight=.3)) +
     ggtitle("Number of Union Elections in a Quarter by Outcome") +
@@ -205,7 +207,7 @@ table_out <- unit_data |>
 
 gt(table_out) |> 
   fmt_integer(columns=`Unionized`:`Covered`) |> 
-  tab_spanner( "By Unit", columns=c(Unionized, `Voted Against`)) |> 
+  tab_spanner( "By Unit", columns=Unionized:`Still Open`) |> 
   tab_spanner("By Worker", columns=`Votes For`:`Covered`)
     
 

diff --git a/data/states/florida/index.qmd b/data/states/florida/index.qmd
@@ -74,7 +74,10 @@ plot_data <- data |>
 
 curr_quarter <- floor_date(today(), unit="quarter")
 
-unit_data <- plot_data |> group_by(Tally_Quarter, Union_Cer) |> 
+unit_data <- plot_data |> 
+    mutate(Union_Cer=factor(Union_Cer, levels=c("Yes", "No", "Other", 
+    "Still Open"))) |> 
+    group_by(Tally_Quarter, Union_Cer) |> 
     summarize(n=n()) |> ungroup() |> 
     complete(Tally_Quarter=seq(start_quarter, curr_quarter, "quarter"),
     Union_Cer, fill=list("n"=0)) |> 
@@ -85,17 +88,16 @@ y_max <- unit_data |>
     summarize(out=sum(n)) |> 
     pull(out) 
 
+color_pal <- viridis::viridis_pal(begin=.15, end=.85)(4)
 ggplot(unit_data, aes(x=Tally_Quarter,
                     fill=Union_Cer, y=n)) +
     geom_col(position=position_stack(reverse=T), 
         color="black", size=.2, width=80) +
     scale_y_continuous(labels=scales::label_comma()) +
     annotate("text", x=curr_quarter,
             y=ifelse(y_max == 0, 1, y_max*1.10),label="*") +
-    scale_fill_viridis_d("Voted for Union?",
-                        direction = -1,
-                        begin = .15,
-                        end=.85) +
+    scale_fill_manual("Voted for Union?",
+        values=color_pal[c(4,1,2,3)]) +
     theme(legend.position = "bottom",
         text = element_text(size=15, lineheight=.3)) +
     ggtitle("Number of Union Elections in a Quarter by Outcome") +
@@ -205,7 +207,7 @@ table_out <- unit_data |>
 
 gt(table_out) |> 
   fmt_integer(columns=`Unionized`:`Covered`) |> 
-  tab_spanner( "By Unit", columns=c(Unionized, `Voted Against`)) |> 
+  tab_spanner( "By Unit", columns=Unionized:`Still Open`) |> 
   tab_spanner("By Worker", columns=`Votes For`:`Covered`)