🔥📈 Прожарка с помощью ИИ графиков из советских учебников

На этой неделе смотрели графики в советских учебниках (раз, два). Конечно, чтобы быть в тренде, т.к. теперь посты без упоминания ИИ просто никто не читает 😂🤖🙈, то делаем ИИ-прожарку графика, который воспроизвели в ggplot2.
Полный текст прожарки от двух LLM по ссылкам (раз и два). Как вам?

PS: если хочется получить доступ к моему приложению Roast My Graph, то напишите в личку — скину ссылку.

#AI #ИИ #графики #визуализация_данных #прожарка_графиков #советские_учебники

💻 Выполнение кода на 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?