😘 Чем выше любовь, тем ниже поцелуи

Так получилось, что приходится слушать «Русское радио», где постоянно крутят песню «Поцелуи» группы ВИА Гра.

Код на R:

library(tidyverse)
library(ragg)
library(showtext)
library(xkcd)

font_add_google("Balsamiq Sans", "Balsamiq")
showtext_auto()

df <- tibble(x = 1:100, y = 100:1)

xrange <- c(0, 100)
yrange <- c(0, 100)

ggplot(df, aes(x, y)) +
  geom_line(
    linewidth = 1.5,
    colour = "red",
    position = position_jitter(h = 0.0005)
  ) +
  labs(
    title = "Чем выше любовь, тем ниже поцелуи",
    x = "Любовь",
    y = "Поцелуи",
    caption = "Юрий Тукачев, август 2023\n@weekly_charts"
  ) +
  scale_x_continuous(breaks = c(20, 80),
                     labels = c("ниже", "выше")) +
  scale_y_continuous(breaks = c(20, 80),
                     labels = c("ниже", "выше")) +
  xkcdaxis(xrange, yrange) +
  theme(
    panel.background = element_blank(),
    text = element_text(size = 22, family = "Balsamiq"),
    panel.grid.major = element_blank(),
    panel.grid.minor = element_blank(),
    panel.border = element_blank(),
    axis.ticks = element_blank(),
    plot.title = element_text(hjust = 0),
    plot.caption = element_text(
      margin = margin(t = 10),
      color = "gray80",
      size = 14
    )
  )

ggsave(
  "HigherLove_LowerKisses.png",
  dpi = 150,
  width = 5,
  height = 4,
  device = agg_png
)

#R #ggplot2 #xkcd #week

📈 Психологические профили

Линейные графики (line charts) лучше всего подходят, когда хотим показать, как значение чего-то меняется с течением времени. Считается, что выбор line chart для визуализации категориальных данных – это не лучший выбор. Однако есть исключения. Психологи часто используют линейные графики для визуализации результатов тестирования с помощью многошкальных тестов, чтобы получился т.н. «психологический профиль». В психологию «психологические профили» ввёл Г. И. Россолимо (1910) для обозначения метода наглядного изображения и анализа псих. процессов. Здесь соединение линией всех точек, обозначающих категориальные признаки (псих. процессы, свойства или состояния) является осмысленным. На графике пример такого профиля по методике MMPI. Психологи умеют «читать» такие профили. Код на R.

При этом помните, что использовать line chart для отображения данных о продажах продукции по месяцам можно, а для отображения различий в продажах между категориями продуктов НЕЛЬЗЯ.

#line_chart #R #ggplot2

🤍 в R c помощью ggplot2

library(ggplot2)
set.seed(666)
r <- 0.750
n <- 7000
re <- sqrt(1 - r * r)
x <- rnorm(n)
y <- x * r + rnorm(n) * re
y[x < 0] <- -y[x < 0]
df <- data.frame(x = x, y = y)

ggplot(df, aes(x, y)) +
  geom_point(color = "red",
             size = 3.5,
             alpha = 0.4) +
  scale_x_continuous(limits = c(-4, 4)) +
  scale_y_continuous(limits = c(-3, 4))

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

#R #ggplot2

🤷 Голосование по поправкам

3 года визуализации. Делал в R. Почти 80 тысяч точек, соответствующих УИКам. Только голоса "ДА" (синий) и "НЕТ" (красный). Пунктир: официальные итоговые результаты "ДА" и явка. Этот вариант мне больше нравится за счет того, что видна т.н. "сеточка": люди любят целые проценты явки и голосов за кандидатов, и не умеют генерировать случайную последовательность. PS: Спасибо Шпилькину за выложенные данные, которые он спарсил с официального сайта ЦИК.

#R #ggplot2 #ЦИК #конституция

9 августа -- год на орбите

#разное #choropleth_map #космос #популяризация #datawrapper 9 августа 2022 года первый в истории частный малый космический аппарат Геоскан 3U из Санкт-Петербурга отправился на околоземную орбиту с именами 22 772 участников со всего мира — их нанесли методом ионно-лучевой литографии на кремниевую пластину размером 10х15 мм. На карте можно увидеть распределение «пассажиров» спутника по регионам России.

Теперь американцу, чтобы купить 1 доллар, нужно 98 рублей. А рубли-то все у нас. Бедные американцы!

Проверял только данные по российскому рублю

#разное #datawrapper #за5минут