Geom_bar изменяет поведение, когда переменная является фактором

Построение гистограммы для фрейма данных с двумя столбцами работает просто отлично:

library(tidyverse)
tibble(.group = c("A","B","A","B","B","A","A","A","A") %>% factor,
       .value = c( 1L, 1L, 3L, 3L, 2L, 2L, 3L, 3L, 1L)) %>%
ggplot() +
  geom_bar(aes(x=.value, y=..prop.., fill=.group), position = "dodge")

Однако, когда переменная объявлена как фактор, geom_bar дает бессмысленные результаты. Что происходит в данном конкретном случае?

library(tidyverse)
tibble(.group = c("A","B","A","B","B","A","A","A","A") %>% factor,
       .value = c( 1L, 1L, 3L, 3L, 2L, 2L, 3L, 3L, 1L) %>% factor) %>%
ggplot() +
  geom_bar(aes(x=.value, y=..prop.., fill=.group), position = "dodge")

Geom_bar изменяет поведение, когда переменная является фактором

Хотя факторы выглядят как символы, на самом деле они закодированы как целые числа с соответствующим текстом. Что-то, имеющее отношение к этим отношениям, происходит здесь. Прочтите это для меня: r4ds.had.co.nz/factors.html

— 29.05.2019 14:51

r ggplot2

29.05.2019 14:14

Стоит ли изучать PHP в 2023-2024 годах?

Привет всем, сегодня я хочу высказать свои соображения по поводу вопроса, который я уже много раз получал в своем сообществе: "Стоит ли изучать PHP в...

Поведение ключевого слова "this" в стрелочной функции в сравнении с нормальной функцией

В JavaScript одним из самых запутанных понятий является поведение ключевого слова "this" в стрелочной и обычной функциях.

Приемы CSS-макетирования - floats и Flexbox

Здравствуйте, друзья-студенты! Готовы совершенствовать свои навыки веб-дизайна? Сегодня в нашем путешествии мы рассмотрим приемы CSS-верстки - в...

Тестирование функциональных ngrx-эффектов в Angular 16 с помощью Jest

В системе управления состояниями ngrx, совместимой с Angular 16, появились функциональные эффекты. Это здорово и делает код определенно легче для...

Концепция локализации и ее применение в приложениях React ⚡️

Локализация - это процесс адаптации приложения к различным языкам и культурным требованиям. Это позволяет пользователям получить опыт, соответствующий...

Пользовательский скаляр GraphQL

Листовые узлы системы типов GraphQL называются скалярами. Достигнув скалярного типа, невозможно спуститься дальше по иерархии типов. Скалярный тип...

323

Перейти к ответу Данный вопрос помечен как решенный

Ответы 1

Ответ принят как подходящий

Когда переменная x является числовой, geom_bar вычисляет пропорцию относительно всех значений переменной x. Когда переменная x является категориальной (символ или факторный класс), geom_bar вычисляет пропорцию в пределах для каждого значения переменной x. Вы можете переопределить это поведение, добавив эстетику group, чтобы заставить geom_bar вычислять пропорцию относительно всех значений x. Например:

dat = tibble(.group = c("A","B","A","B","B","A","A","A","A") %>% factor,
             .value = c( 1L, 1L, 3L, 3L, 2L, 2L, 3L, 3L, 1L))

# .value is integer
ggplot(dat) +
  geom_bar(aes(x=.value, y=..prop.., fill=.group), position = "dodge")

# .value is factor
ggplot(dat %>% mutate(.value=factor(.value))) +
  geom_bar(aes(x=.value, y=..prop.., fill=.group), position = "dodge")

ggplot(dat %>% mutate(.value=factor(.value))) +
  geom_bar(aes(x=.value, y=..prop.., fill=.group, group=.group), position = "dodge")

# .value is character
ggplot(dat %>% mutate(.value=as.character(.value))) +
  geom_bar(aes(x=.value, y=..prop.., fill=.group), position = "dodge")

ggplot(dat %>% mutate(.value=as.character(.value))) +
  geom_bar(aes(x=.value, y=..prop.., fill=.group, group=.group), position = "dodge")

geom_line ведет себя аналогичным образом, когда переменная x является категориальной. Например:

set.seed(3)
dat = data.frame(x=rep(paste0(2010:2015, "-", substr(2011:2016,3,4)), 2),
                 y=cumsum(rnorm(12)),
                 group=rep(LETTERS[1:2], each=6))

ggplot(dat, aes(x=x, y=y, colour=group)) +
  geom_point() +
  geom_line()

ggplot(dat, aes(x=x, y=y, colour=group, group=group)) +
  geom_point() +
  geom_line()

29.05.2019 15:27

Другие вопросы по теме

Как добавить легенду в ggplot к моему графику

Как добавить метки в столбцы гистограммы с помощью ggplot2 в R?

Вопрос о том, как нарисовать график вплотную, используя R и ggplot2

Ggplot2 возвращает пустой график после поворота x-labels

Наложение каждого столбца гистограммы с накоплением ggplot2 с линией

Есть ли способ использовать векторы для определения порядка меток оси x и цветов графика при использовании facet_wrap в ggplot2?

Добавление самодельных уровней факторов в легенды ggplot

Ggpairs в r: как (1) настроить значения оси и (2) разделить длинные имена переменных на две (или более строки)

Ggplot2: добавить вторичную метку x (год ниже месяцев)

Линейная диаграмма данных временных рядов с ежемесячными метками на оси X и ежедневными данными на оси Y

Geom_bar изменяет поведение, когда переменная является фактором

Ответы 1

Другие вопросы по теме

Похожие вопросы