💀 Оценка кандидатов в президенты

В датавиз-чатике скинули пример эмодзи инфографики. Конечно, такое можно воспроизвести с помощью ggplot2 и немного улучшить:

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) 

#ggplot2 #R #эмодзи #датавиз #dataviz

🎨 Цветовые палитры для R, вдохновленные сериалом Severance

📊 Пакет severance для R от Isabella Velásquez — находка для фанатов сериала Severance! Он предлагает стильные цветовые палитры, вдохновлённые сценами сериала, включая цветодружелюбные (Jazz02, TheYouYouAre, Hell) и более яркие (Half, Jazz01). Идеально для создания выразительных графиков в ggplot2!

Установить просто:

devtools::install_github("ivelasq/severance")

Пример с данными TidyTuesday показывает, как палитры оживляют визуализации гендерного неравенства в зарплатах. Код доступен на GitHub. Хотите добавить атмосферу Severance в свои графики? Пробуйте!

🔗 https://github.com/ivelasq/severance

#R #ggplot2 #DataViz #Severance #ВизуализацияДанных #палитры