#### Aufgabe 2.5 ###
n_j <- c(5,33,20,32,10)
klassen <- c(0,10,50,100,200,500)
p_j <- prop.table(n_j)
d_j <- c(10,40,50,100,300)
h_j <- p_j/d_j

barplot(h_j,
        width = d_j,
        space = 0,
        main = "Histogramm",
        xlim = c(min(klassen),max(klassen)),
        axisnames = TRUE,
        ylab = "Dichte",
        xlab = "Ausgaben für Fachliteratur",
        col = "white"
        )
axis(1, c(0,100,200,300,400,500), at = c(0,100,200,300,400,500))
axis(2, c(0.2,0.4,0.6,0.8,1), at = c(0.2,0.4,0.6,0.8,1))