library(tidyverse)
data <- tibble(
  rating = factor(c(0, 1, 2, 4, 7), levels = 0:7),
  candidates = c(
    "        Skala: 💀⬛️🟫🟥🟧🟨🟩",
    "Braun, Mentzen, Woch",
    "Holownia, Jakubiak, Stanowski, Trzaskowski",
    "Biejat, Nawrocki, Szumlewicz",
    "Zandberg"
  ),
  color = c("white", "black", "brown", "orange", "green")
)
ggplot(data, aes(x = 0.05, y = rating)) +
  geom_point(
    data = filter(data, rating != 0),
    aes(color = color), shape = 15, size = 7, 
    position = position_nudge(x = -0.1)) +
  geom_text(
    aes(label = candidates), size = 5, hjust = 0, nudge_x = 0) +
  scale_color_manual(
    values = c(
      "black" = "black",
      "brown" = "#A56953",
      "orange" = "#FF6723",
      "green" = "#00D26A",
      "white" = "white"
    )) +
  labs(title = "Ocena kandydatów na prezydenta") +
  theme_void() +
  theme(
    plot.margin = margin(15, 15, 10, 15),
    plot.title = element_text(hjust = 0, size = 18, face = "bold"),
    legend.position = "none"
  ) +
  xlim(-0.05, 2.5) 

devtools::install_github("ivelasq/severance")