💻 Выполнение кода на R в браузере без установки IDE

В своих постах публикую код графиков на R. Если у вас не установлен R и IDE, то попробовать работу кода проблематично. Можно сделать так — вот ссылка на последний график. Нажмите кнопку "Run" (будьте терпеливы, требуется время для установки и загрузки пакетов) Удобно?

#R #ggplot2 #webr

#пятничное Идёт гроза, а я в валенках, и телефон дома забыла...🤣😂😅

⚪️ Датавиз на странице 404 — 2

Помните, писал о прикольной странице 404 у Datawrapper. На днях Cédric Scherer поделился у себя ещё примером от policyviz.com — за авторством Jonathan Schwabish :)

Мало кто уделяет внимание страницам 404.

#404error #dataviz

🇬🇧 Барчарт с флагами

У настенька и графики увидел приём создания барчарта через таблицу в Excel. Конечно, захотелось воспроизвести аналогичный в R, используя пакет ggflags, о котором писал ранее.

#R #ggplot2 #ggflags #барчарт #bar_plot

Код на R:

library(ggplot2)
library(dplyr)
library(ggflags)
library(forcats)

# Данные о городах
cities_data <- tibble(
  City = c("Bangkok", "Istanbul", "London", "Hong Kong", "Antalya", "Mecca", 
           "Dubai", "Macau", "Paris", "Kuala Lumpur"),
  Arrivals_M = c(32.4, 23, 21.7, 20.5, 19.3, 19.3, 18.2, 18, 17.4, 16.5),
  Country_Code = c("TH", "TR", "GB", "HK", "TR", "SA", "AE", "MO", "FR", "MY")
) %>%
  mutate(
    City = fct_reorder(City, Arrivals_M),
    Country_Code = tolower(Country_Code)
)

ggplot(cities_data, aes(x = Arrivals_M, y = City)) +
  geom_col(fill = "gray90", width = 0.8) +
  geom_flag(aes(x = -10, country = Country_Code), size = 8) +
  geom_text(aes(x = -8.5, label = City), hjust = 0, size = 4) +
  geom_text(aes(x = 0.25, label = Arrivals_M), hjust = 0, size = 4) +
  scale_x_continuous(limits = c(-11, 35), expand = c(0, 0)) +
  labs(
    title = "Most Visited Cities in the World",
    subtitle = "Arrivals, in M",
    x = NULL,
    y = NULL
  ) +
  theme_minimal(base_size = 14) +
  theme(
    plot.title.position = "plot",
    plot.caption.position = "plot",
    panel.grid = element_blank(),
    panel.grid.major.y = element_blank(),
    panel.grid.minor = element_blank(),
    axis.title = element_blank(),
    axis.text.y = element_blank(),
    axis.text.x = element_blank(),
    axis.ticks = element_blank(),
    plot.title = element_text(face = "bold"),
    plot.subtitle = element_text(size = 14, color = "gray40"),
    plot.margin = margin(10, 10, 10, 10)
  )

ggsave("most_visited_cities_ggflags.png", bg = "white", width = 6, height = 6, dpi = 300)

Гугл презентовали новый шрифт Google Sans Code для программистов. Как вам? Я попробовал в RStudio. Кириллицу не поддерживает. А какой шрифт вы используете в своей привычной IDE?

TidyTuesday. Sometimes messy

Rodrigo Barreiro создал небольшую веб-страницу с визуализациями социального проекта TidyTuesday.

В записях микро-блога он пошагово показывает, как создаются графики, начиная от преобразование данных до конечного результата на основе кода на R. Очень симпатичный проект.

📊 ggdiagram: Объектно-ориентированные диаграммы в R с помощью ggplot2

Хочу рассказать о крутом пакете ggdiagram для R, который позволяет создавать объектно-ориентированные диаграммы на базе ggplot2. Этот пакет вдохновлен возможностями TikZ, но адаптирован под удобство и гибкость R. Он построен на системе классов S7 и интегрируется с другими пакетами вроде ggtext, ggforce и ggarrow.

Что он позволяет делать? Вы можете определять визуальные объекты, такие как круги, прямоугольники или другие формы, размещать их относительно друг друга (например, справа, слева, сверху) и соединять стрелками или линиями. С пакетом ggdiagram вы можете рисовать диаграммы путей (path diagrams). Диаграммы путей используются для визуализации и анализа причинно-следственных связей между различными переменными (path analysis), позволяя исследователям выявлять, как независимые переменные влияют на результат, и насколько эти связи опосредованы другими факторами. Путевая модель, отображаемая на такой диаграмме, представляет собой графическое изображение этих отношений.

Вот простой пример кода, чтобы нарисовать круг и прямоугольник, соединенные стрелкой:

library(ggdiagram)
c1 <- ob_circle(radius = 1 / sqrt(pi))
r2 <- ob_rectangle() |>
place(from = c1,
where = "right",
sep = .5)
ggdiagram() +
c1 +
r2 +
connect(c1, r2, resect = 1)

Это создаст базовую диаграмму с кругом слева и прямоугольником справа, соединенными линией. Попробуйте сами и экспериментируйте!

#R #ggplot2 #ggdiagram #DataVisualization #path_analysis #SEM