情节中的R

Question

，我试图做的频率曲线与计数频率是

• Barplot每栏上方计数左侧
• 相对频率在右侧
• 累积频率

数据集是

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)))