#R #ggplot2 #визуализация_данных #конкурсы Пришёл приз как одному из 5 победителей конкурса Росстата #ЖиваяСтатистика -- Российский статистический сборник. 700 страниц, вес сборника 1.7 кг, тираж всего 520 экз. Часть информации дублируется на английском языке. В сборнике представлены статистические данные о социально-экономическом положении России.
Моя конкурсная работа – плиточная карта России "Автомобилизация и ДТП с пострадавшими по регионам России". Предобработка данных и визуализация с помощью R.

​​#пятничное #дашборд #визуализация #R #ggplot2 #shiny
В рубрике "Пятничное" размещаются юмористические посты и посты про визуализацию разнообразных данных. Мне нравится анализировать и визуализировать данные, а также всё то, что связано с космонавтикой и астрономией. В этот раз делаем статичный мини-дашборд в R c параметрами полёта телескопа.
25 декабря 2021 года с космодрома Куру во Французской Гвиане стартовала ракета-носитель Ariane 5, которая вывела в космос телескоп "Джеймс Уэбб" стоимостью 10 миллиардов долларов -- самая сложная и дорогая космическая обсерватория в истории (для справки: это около 27% годового бюджета Москвы). В удивительное время мы живём. Запуск можно было смотреть в прямом эфире, а 29 декабря NASA открыло для всех доступ к текущим усредненным показаниям с 4 датчиков температуры на горячей и холодной сторонах телескопа, данным о параметрах полёта телескопа: крейсерской скорости, расстоянии от Земли, расстоянии до конечной точки L2. Если есть данные, то можно пробовать их собирать и визуализировать. Я написал простой скрипт на R, который скачивает данные о текущем статусе телескопа с помощью открытого публичного неофициального API и визуализирует основные метрики на мини-дашборде в виде статичной картинки или обновляемой картинки в приложении на shiny (для обновления показателей нажмите F5 на ПК).

​​#визуализация_данных #опросы #оплата_труда #гендерное_равенство #R #ggplot2
Гендерный разрыв в оплате труда
«В России мы сегодня уверенно разворачиваемся в сторону русского средневековья с его порядками «домостроя». Женщины, составляющие бóльшую часть населения, непропорционально представлены в управлении страной даже несмотря на то, что в среднем они более образованны, чем мужчины (24,8% россиянок в возрасте 15 лет и более имеют высшее образование против 21,7% граждан мужского пола). В нынешнем составе Государственной думы женщин 16,7% (да и то хорошо — в предыдущем было всего 4,6%), в то время как в германском Бундестаге — 31,2%, в норвежском Стортинге — 41,4%. Женщина никогда не была в России премьер-министром (в странах ЕС за последние 30 лет 27 женщин занимали такой пост) и женщины никогда не получали на президентских выборах более 5% голосов. Средняя зарплата женщин в России ниже зарплаты мужчин на 27,4%» цит. по 1.
Гендерный разрыв в оплате труда представляет собой различие средней оплаты труда женщин и мужчин. Частично такой разрыв объясняется различными уровнями оплаты труда в традиционно женских и мужских профессиях, частично уровнем образования, занимаемыми должностями и т.д. Но остается и необъяснимая часть различия зарплат женщин и мужчин при прочих равных характеристиках работников, которая традиционно определяет уровень гендерной дискриминации. Гендерный разрыв в заработных платах существует во всех странах мира. Согласно проводимым Международной организацией труда (МОТ) исследованиям в данной области, с течением времени данный разрыв снижается.
На днях нашёл интересную визуализацию Johnny Lillis 2 данных опроса «How much money do you make?» проекта «Аsk a manager» 3, участие в котором приняли 24 тыс. человек. Хороший пример сочетания визуализации распределения заработной платы (distribution plots) и сравнения медиан с помощью гантелек (dumbbell plots) в разрезе нескольких группирующих признаков. Как всегда, доступен исходник кода на R 4.
Источники:
1. Иноземцев В.Л. Несовременная страна: Россия в мире XXI века: Альпина Паблишер; Москва; 2018.
2. https://twitter.com/johnny_c_lillis/status/1411388723988733953
3. https://www.askamanager.org/2021/05/look-at-24000-peoples-real-life-salaries.html
4. https://github.com/j-lillis/Tidy-Tuesday/blob/main/Ask A Manager survey (18-05-2021)/askamanager.R

#визуализация_данных #heatmap #ggplot2 #R #пятничное
В рубрике "Пятничное" размещаются юмористические посты и посты про визуализацию разнообразных данных. Визуализируем с помощью тепловой карты ЧСС (частоту сердечных сокращений) на основе выгрузки данных из приложения SamsungHealth умных часов Samsung. Код на R доступен в моём профиле Github. Тепловая карта (англ. heatmap) — графическое представление данных, где индивидуальные значения в таблице отображаются при помощи цвета. Термин "heatmap" изначально был придуман и официально зарегистрирован как товарный знак разработчиком программного обеспечения Кормаком Кинни в 1991 году. В основе тепловой карты лежит идея окрашивания таблицы с данными, которй больше ста лет. Пример можно найти в статистическом атласе населения Парижа Туссена Луа, изданном в 1873 году, где интенсивностью цвета показаны частоты встречаемости характеристик (национальность, профессия, возраст и т. п.) в 20 районах Парижа.

Аналитика для хантинга аналитиков
#аналитика #зарплаты #дашборд #визуализация_данных #рынок_кандидатов #it #ggplot2 #r
Ранее я уже писал об интерактивном дашборде "Анализ рынка вакансий аналитики и BI". Не так давно я нашёл исследование "Аналитика для хантинга аналитиков (продуктовых, маркетинговых и data scientists)" от команды хантинг-агентства NEWHR. Читать далее »

👨‍🎓 Визуализация рейтинга кандидатов

Один из самых популярных постов на моём канале People Analytics (8К+ просмотров) – Визуализация рейтинга кандидатов. Попробуем представить результаты конкурсных испытаний по одному из произвольных направлений магистратуры в виде точечного графика — графика-«улей» (bee swarm plot). График-улей позволяет нам сосредоточиться на индивидуальности, когда мы видим каждого человека, а не объединяем людей в столбики или линии, показывая, например, 5-числовую сводку Тьюки. Наша визуализация в первую очередь рассказывает о людях, а не о данных.

#beeswarm_plot #R #ggplot2 #визуализация_данных #рейтинги #точечные_графики #график_улей

✅ Все хэштеги канала

Решил проанализировать, какие и как часто использовал хэштеги для постов канала. Вывод: необходимо унифицировать хэштеги, а то только people analytics встречается в 4-х вариантах написания – #people_analytics #People_analytics #people_anaytics #peopleanalytics #PeopleAnalytics

Полный список, чтобы быстро найти тематический пост: #визуализация_данных #психометрика #полезное #R #тесты #пятничное #оценка_персонала #дайджест #книги #визуализация #юмор #people_analytics #исследования #дашборд #вебинар #shiny #каналы #статистика #ggplot2 #аналитика #данные #ИИ #опросы #hr_аналитика #tableau #зарплата #компетенции #курсы #аналитики_тоже_шутят #дашборды #монте_карло #размышлизмы #статьи #AI #data_driven #excel #HR_аналитика #hr_метрики #инструменты #книжки #личностные_черты #машинное_обучение #самопознание #ссылки #10_заповедей_аналитика #chatGPT #HR #PeopleAnalytics #валидность #видео #графы #исследование #кейсы #книжная_полка_аналитика #МОНЭКС #обучение #опрос #оценкаперсонала #приглашенный_эксперт #симуляции #стандарты #тесты_знаний #туториалы #факторный_анализ #цитаты #Юнг #BI_инструменты #big_five #Big5 #dataviz #hippo #hr_аналитика_как_она_есть #HR_на_заметку #HRу_на_заметку #IQ #IRT #powerbi #r #анализ_сетей #аналитик_рекомендует #аналитикаVSинтуиция #гендерное_равенство #график_улей #дата_грамотность #датасеты #измерение #карьера #корреляция #Корреляция #нейронные_сети #обзоры #оценка #презентации #профессии #профили #профориентация #психотипы #рейтинги #рынок_труда #социальные_сети #ТЕЗАЛ #точечные_графики #экспертиза #assessment #beeswarm_plot #BI #big5 #books #data #dataart #DataScience #Datawrapper #digital_assessment #download #EdTech #employeesurvey #eNPS #evidence_based_approach #evidence_based_hr #FakeAnswersOnTests #focustime #geospatial #heatmap #HR_data_art #hr_digital #hr_аналитик_рекомендует #hybridwork #io_psychology #IO_psychology #IOP #it #jamovi #machinelearning #MBTI #ML #must_read #networks_analysis #ONA #People_analytics #people_anaytics #peopleanalytics #personality #power_bi #profile #psy #python #remotework #rstats #RWFD #science #weekly_charts #workdata #анализ_данных #аналитика_для_жизни #анонс #астрология #атласы #байес #бизнес_в_России #большая_пятерка #большие_данные #бонусы #будущее #будущее_здесь #будущее_навыков #будущееУЖЕздесь #вакансии #введение_HR_аналитика #величина_эффекта #вовлеченность #гендер #глобальное_потепление #Дайджест #дайджесты #данные_опроса #дата_арт #дата_сторителлинг #дата_феминизм #деньги #дискриминация #до_аналитики #доверительные_интервалы #доказательный_HR #доказательный_подход #доходы #ЖиваяСтатистика #заметки #зарплаты #идеальный_профиль #интерпретация #инфографика #история #КакЭтоРаботает #калькулятор #качество_данных #квалификационные_тесты #Кейрси #китт #КИТТ #книга #кодирование_данных #кому_нужна_математика #конкурс #лекция #меры_сходства #методики #метрики #минутка_юмора #мир_профессий #мои_рекомендации #наблюдение #наука_о_данных #научпоп #не_пятница #нейросети #нейросеть #НЕпопулярная_тестология #несерьезнаяпсихометрика #нетрадиционные #номограмма #обман #оплата_труда #опросники #отчеты #оценика_персонала #оценка_персонала_как_она_есть #поведение_пользователей #подбор #подборка_каналов #подборки #полезные_ресурсы #потенциал #предиктивная_аналитика #принятие_решений #программы #продуктивность #продуктовая_аналитика #производительность_труда #профессии_будущего #профиль #психология #психология_личности #пятница #работа #размышления #распределение_баллов #реальный_профиль #регрессионный_анализ #рекомендации #рынок_кандидатов #скетчинг #скроллтеллинг #собеседование #соционика #ссылка #стандарт_тестирования #стандарт_тестирования_персонала #стереотипы #счастье #текучесть #текучка_кадров #тест_тьюринга #тестирование #тесты_интеллекта #тревожность #удаленная_работа #удовлетворенность_работой #учебная_аналитика #фотографии #хи_квадрат #хи_квадрат_спасет_hr_аналитику #чего_хотят_женщины #человек_как_ценность #ЧТС #шпаргалки #эйчар_аналитическое #эксперимент #экспертныелекции #эмоции #эмоциональный_интеллект

#chatGPT #R #ggplot2 Весь код на R для анализа хэштегов постов был написан полностью chatGPT, как и код для графиков. Я только сделал небольшие правки. Весь процесс занял не более 10 минут. Код на R прикладываю, кому интересно. У меня больше времени ушло на то, чтобы написать/оформить сам пост выше и опубликовать его. Будущее здесь ;) P.S.: картинка к посту Кандинский 2.1

45!

По такому случаю сделал датавиз в R. Такой своеобразный "экватор", если мечтать прожить не менее 90 лет.

#HappyBirthdayToMe #R #ggplot2

📅 My Life in Weeks

Сделал онлайн-приложение. Вводите дату рождения, скачиваете в формате PNG/PDF. Распечатываете 😄 Если дату не менять, то можно скачать пустой бланк, распечатываете, закрашиваете клеточки-недели вручную 😉

🙋‍♂️ Мораль: Помните — времени мало. Не тратьте его, чтобы жить чьей-то чужой жизнью. Не слушайте никого. Шум чужих мнений не должен заглушать ваш внутренний голос. Слушайте только свое Сердце и интуицию. Они откуда-то точно знают, кем вам быть и что делать.
А все остальное — не важно, просто не важно…
(С) Стив Джобс

#shiny #R #ggplot2

46!

Год назад сделал приложение на R и Shiny,
Как быстро время летит, словно это было вчера.
Код писал в ночи, сквозь сонные грани,
Искал ошибки, правил строки, искры в глазах.

Проект рос, как весенний цветок, не сразу,
Шаг за шагом, строка за строкой – вперед.
Пусть было трудно, и порой казалось,
Что никогда не найдется верный поворот.

Но вот итог – готовый продукт сияет,
Радует глаз, как солнечный свет в зари.
Год прошел, а я все вспоминаю,
Как сделал я это – приложение на R и Shiny
(С) Чатджипити

#HappyBirthdayToMe #R #ggplot2

🤖📊 Анализ тональности с помощью OpenRouter и пакета tidyprompt в R

Пакет tidyprompt в R упрощает создание промптов и взаимодействие с большими языковыми моделями (LLM). Его можно сравнить с удобством и простотой создания графиков в ggplot2, но для работы с промптами: он вводит "обертки промптов" -- модули, превращающие простые запросы в сложные. Эти обертки не только изменяют текст, но и добавляют функции извлечения и валидации ответов LLM, а также могут отправлять обратную связь модели. С tidyprompt вы можете:
- получать структурированные ответы в нужном формате,
- автоматически отправлять обратную связь LLM для исправления ошибок,
- задавать режимы рассуждений (например, цепочка мыслей или ReAct),
- позволять LLM вызывать функции R или генерировать и выполнять R-код для получения данных или действий.

Оцените краткость кода и удобство работы с LLM. В качестве дополнения к посту:

# install.packages("tidyprompt")
library(tidyprompt)
library(purrr)
library(ggplot2)

# Настройка OpenRouter как LLM провайдера
openrouter <- llm_provider_openrouter(
  parameters = list(
    model = "google/gemini-2.0-flash-lite-preview-02-05:free",  
    stream = FALSE                         
  ),
  verbose = TRUE,                          
  api_key = Sys.getenv("OPENROUTER_API_KEY") 
)

# Создание данных с отзывами сотрудников
reviews_df <- data.frame(
  sentence = c(
    'Работа — как полет на драконе, захватывает дух!',
    'Офис словно темница, где время ползет черепахой.',
    'Коллектив — это банда супергероев, спасающих мой день!',
    'Начальство — как злой волшебник, гасит все идеи.',
    'Начальство — тиран, выжимает все соки.',
    'Техника тут — мечта гиков, хочется обнять сервер!',
    'Рабочий график — это хаос в стиле цирка шапито.',
    'График — как карусель, голова кружится.',
    'Коллектив — как старый свитер, уютно, но не идеал.',
    'Кофе в комнате отдыха спасает, как оазис в пустыне.',
    'Зарплата приходит, как редкий гость, и быстро уходит.',
    'Задачи сыплются, будто камни с горы, без передышки.',
    'Атмосфера тут — как в фильме ужасов, только без попкорна.'
  )
)

# Анализ тональности с помощью gemini-2.0-flash-lite через провайдера OpenRouter
reviews_df$sentiment_score <- map_int(
  reviews_df$sentence,
  function(sentence) {
    paste0(
      'Пожалуйста, оцените по шкале тональность отзыва сотрудника:\n',
      sentence
    ) |>
      answer_as_integer(min = 1, max = 100) |>
      send_prompt(openrouter)
  }
)

ggplot(reviews_df, aes(x = sentiment_score, y = reorder(sentence, sentiment_score))) +
  geom_col(aes(fill = sentiment_score)) +
  scale_fill_viridis_c(option = "plasma", direction = -1) +
  theme_light() + 
  labs(
    title = 'Оценки тональности отзывов сотрудников',
    x = 'Оценка тональности',
    y = 'Отзыв'
  )

#R #ggplot2 #LLM #AIinHR #sentiment_analysis #AI