Plot von Frequenzen mit Zählungen in R

Question

Die Häufigkeitsplot, die ich versuche zu tun ist,

• BarPlot mit Zählungen über jedem Balken
• Relative Häufigkeit in der linken Seite
• Kumulative Frequenz auf der rechten Seite

Der Datensatz ist

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) 

Die Verteilung der Frequenzen

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

die relativen Häufigkeiten

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 

EDIT sind: Wie in dem unten angezeigten Bild, aber mit kumulativer Häufigkeit in der rechten Seite, relativer Häufigkeit in den linken und den Stäben mit Zählungen

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