如何将数据分组为直方图

Question

我有一个人的出生年份的数据集。 我想绘制一个直方图，但是由于我正在使用相当大的数据集，因此我希望将数据按5类分组。例如，1985年出生的人有30个人，但我希望直方图显示我的频率是6。

到目前为止，这是我的直方图代码。

ggplot(date, aes(date$year)) + 
  geom_histogram(colour = "black") + 
  labs(title = "...", x = "year", y = "frequency")

Answer 1

您可以只更改y轴上的标签以反映所需的变换：

ggplot(date, aes(year)) + 
  geom_histogram(colour = "black") + 
  labs(title = "...", x = "year", y = "frequency") + 
  scale_y_continuous(labels=function(x) x/5)

这是一些伪造数据的示例：

未经转换的原始伪数据的直方图：

完全相同的数据，并添加了scale_y_continuous行：

Answer 2

带条形图：

library(dplyr)
library(ggplot2)

dates_df <- data.frame(year = sample(1950:2018, size = 100000,replace = TRUE)) # randomly generated years

classes <- 5  

dates_df %>% group_by(year) %>% summarise(cnt = n()) %>% 
  ggplot(aes(x= year, y = cnt/classes)) + 
  geom_col(colour = "black") + 
  theme_bw()

Answer 3

您也可以尝试以下操作：

require(data.table)
library(dplyr)
library(ggplot2)

fake_data <- data.table(name = c('John', 'Peter', 'Alan', 'James', 'Jack', 'Elena', 'Maria'),
                        year = c(2018, 2018, 2018, 2017, 2016, 2017, 2018))

fake_data %>%
group_by(year) %>%
summarize(numb_people = length(unique(name)),
        number_people_freq = length(unique(name))/ 5) %>%
as.data.table() %>%
ggplot(., aes(year)) +
        geom_bar(aes(y = number_people_freq), stat = 'identity') +
        labs(title = "...", x = "year", y = "frequency")]