以R为单位的频率图

Question

我想做的频率图是

• 条形图，每个条形以上
• 左侧相对频率
• 右侧累计频率

数据集是

dput(x2)
c(1L, 5L, 3L, 3L, 5L, 3L, 4L, 1L, 2L, 2L, 7L, 3L, 2L, 2L, 3L, 
3L, 2L, 1L, 5L, 4L, 4L, 3L, 5L, 2L, 6L, 2L, 1L, 2L, 5L, 5L, 5L, 
3L, 6L, 4L, 5L, 4L, 6L, 7L)

频率分布是

table(x2)
x2
1 2 3 4 5 6 7 
4 8 8 5 8 3 2 

相对频率是

prop.table(table(x2))
x2
         1          2          3          4          5          6          7 
0.10526316 0.21052632 0.21052632 0.13157895 0.21052632 0.07894737 0.05263158 

编辑：如下图所示，但累积频率在右侧，相对频率在左侧，带计数的条形图

Answer 1

library(tidyverse)
library(broom)

table(x2) %>% 
  tidy() %>%
  mutate(rel_freq = Freq/sum(Freq), sum = sum(Freq)) %>%
  ggplot(aes(reorder(x2, Freq), rel_freq)) + 
  geom_col() + 
  geom_text(aes(label = Freq), vjust = -.5) +
  scale_y_continuous(sec.axis = sec_axis(~.*length(x2)))