w

Author: JCfly3000

.DS_Store

@@ -443,12 +443,119 @@ gg
 ggsave("budget_waffle.png", width = 6, height = 6.4)
 ```
 
+
+
+
 ## Resources
 
 -   [Riffomonas Code Club: Waffle Chart](https://riffomonas.org/code_club/2025-05-12-waffle)
 -   [YouTube Tutorial: Creating this chart](https://www.youtube.com/watch?v=vtuyVTXmlPU&t=1s)
 
 
+
+# perceptions of Trump's policies in LA
+
+
+```{r}
+library(tidyverse)
+library(showtext)
+library(ggtext)
+library(glue)
+library(ggimage)
+```
+
+
+
+```{r}
+# Data
+data <- tribble(
+  ~category, ~count, ~color,
+  "Support", 421, "#2ca7c4",
+  "Unsure", 149, "#bfbfbf",
+  "Oppose", 445, "#e87b34"
+) %>%
+  mutate(percentage = paste0(round(count / sum(count) * 100), "%"))
+
+
+cols_per_group <- 18
+group_spacing <- 22
+
+# Dot layout with centered bottom row
+dot_data <- data %>%
+  uncount(weights = count) %>%
+  group_by(category) %>%
+  mutate(dot_id = row_number() - 1,
+         row = dot_id %/% cols_per_group) %>%
+  group_by(category, row) %>%
+  mutate(
+    dots_in_row = n(),
+    start_col = floor((cols_per_group - dots_in_row) / 2),
+    col = start_col + row_number() - 1
+  ) %>%
+  ungroup()
+
+spacing_factor <- 2.1
+
+dot_data <- dot_data %>%
+  mutate(
+    group_index = match(category, unique(data$category)) - 1,
+    x = (col + group_index * group_spacing) * spacing_factor,
+    y = (-row - 6) * spacing_factor
+  )
+
+# Find max y per group (top dot in each group)
+label_y_positions <- dot_data %>%
+  group_by(category) %>%
+  summarize(max_y = max(y)) %>%
+  arrange(match(category, data$category)) %>%
+  pull(max_y)
+
+# Put label slightly above top dot (adjust +3 or so)
+label_y_positions <- label_y_positions + 6
+
+# X positions for labels (centered like before)
+label_x_positions <- c(8.5, 8.5 + group_spacing, 8.5 + group_spacing * 2) * spacing_factor
+
+title_text <- "Do you support or oppose Trump\nsending the National Guard and\nMarines to respond to the L.A. protests?"
+title_x <- mean(range(dot_data$x))
+title_y <- max(dot_data$y) + 25
+```
+
+
+```{r}
+# Plot
+ggplot(dot_data, aes(x = x, y = y)) +
+  geom_point(aes(color = category), size = 2.5) +
+  scale_color_manual(values = setNames(data$color, data$category)) +
+  coord_equal(clip = "off") +
+  theme_void() +
+  theme(
+    legend.position = "none",
+    plot.margin = margin(40, 30, 10, 30)
+  ) +
+  geom_label(aes(x = title_x, y = title_y, label = title_text),
+             size = 6,
+             label.size = 0.8,
+             fill = "white",
+             color = "black",
+             label.r = unit(0.25, "lines"),
+             label.padding = unit(c(0.4, 0.7, 0.4, 0.7), "lines"),
+             fontface = "bold",
+             lineheight = 1.0) +
+annotate("text", x = label_x_positions[1], y = label_y_positions[1], 
+         label = paste0(data$category[1], "\n", data$percentage[1]), size = 5, fontface = "bold", hjust = 0.5) +
+annotate("text", x = label_x_positions[2], y = label_y_positions[2], 
+         label = paste0(data$category[2], "\n", data$percentage[2]), size = 5, fontface = "bold", hjust = 0.5) +
+annotate("text", x = label_x_positions[3], y = label_y_positions[3], 
+         label = paste0(data$category[3], "\n", data$percentage[3]), size = 5, fontface = "bold", hjust = 0.5)
+
+```
+
+
+
+
+
+
 # Resources
 
 -   [Riffomonas Code Club: Multiracial Census Data](https://riffomonas.org/code_club/2021-08-13-multiracial_census_data)