приведенный ниже код предназначен для красной гистограммы
project_completed %>%
select(group_slug,diff_days) %>%
filter(group_slug == "hr") %>%
ggplot(aes(diff_days))+
geom_histogram(color = "white",bins = 30,fill = "red")
Красная гистограмма выше относится к категории "hr". Это та же красная гистограмма на мультигистограмме ниже. Максимальное значение у составляет около 175. Теперь, глядя на красную гистограмму на втором графике, максимальное значение оси Y для красной гистограммы намного больше, чем у первой гистограммы.
Код для многогистограммы
project_comp_times_hist <- project_completed_times %>%
distinct(group_slug,diff_days) %>%
ggplot(aes(x = diff_days, fill = group_slug)) +
geom_histogram(bins = 100, color = "white")+
geom_vline(data = project_completed_avg,
aes(xintercept = avg_time, color = group_slug),
linetype = "dashed")+
labs(
title = "Distribution of time spent on projects in the Group Slug Category",
subtitle = "All Distribution are positively skewed ",
x = "Number of Days on Project(Group Slup)"
) +
theme(
axis.text.x = element_text(face = "bold"),
axis.text.y = element_text(face = "bold")
)
Мой вопрос: почему? Для отдельной красной гистограммы категории «hr» максимальные точки составляют около 175, а ось Y графика мультигистограммы намного выше. Я использовал категорию «hr» в качестве примера, но все категории показывают это расхождение между осями Y. Буду очень признателен, если кто-нибудь сможет это объяснить.