Wie man ein Histogramm aus vorhandenen Zählungen mit ungleichmäßigen Behälterbreiten plottet unter Verwendung von ggplot

Question

Ich möchte ein Histogramm aus bereits vorhandenen Klassen erstellen. Ich habe diesen Datensatz:

interval  counts 
0 - 8.50  2577 
8.51 - 10.00 1199 
10.01 - 12.00 1878 
12.01 - 14.00 637 
14.01 - 16.00 369 
16.01 - 18.00 98 
18.00 - 20.00 308 



library(ggplot2) 

plot_tab5_lohn <- ggplot(DS18, aes(x=interval)) + geom_histogram(stat="count") 
return(plot_tab5_lohn)}) 

in diesem Diagramm zur Folge hat:

Ich mag die Zählungen auf der y-Achse sein und die Intervalle haben eine unterschiedliche Breite sein. Wie kann ich das machen?

EDIT: Ich habe es bis hierher geschafft: mit diesem Code

DS18$interval <- factor(DS18$interval, levels = DS18$interval) 
output$DS32 <- renderPlot({ 
plot_tab5_lohn <- ggplot(DS18, aes(x=interval, y = counts)) + 
geom_col() + 
geom_point(color = "red") + 
geom_line(aes(group = 1), color = "red") 
return(plot_tab5_lohn) 
}) 

ich die Stäbe möchten so breit wie das Intervall selbst sein. Und die Dichte sollte auf der Y-Achse sein. Die Summe der Flächen sollte dann 1 (100%) sein. So etwas wie dieses link

Answer 1

Sie die Grenzen extrahieren, dann plotten geom_rect mit:

# Using dt from @www 
library(tidyr) 
dt2 <- separate(dt, interval, c('left', 'right'), sep = ' - ', convert = TRUE) 
ggplot(dt2) + 
    geom_rect(aes(xmin = left, xmax = right, ymin = 0, ymax = counts), 
      col = 1) + 
    geom_line(aes(x = right + (left - right)/2, y = counts), 
      col = 'red') 

Alternativ können Sie zunächst Ihre Daten in einzelne Beobachtungen erweitern, dies auch leicht ermöglicht es Ihnen, die Dichten plotten statt:

library(dplyr) 
library(tidyr) 
dt3 <- dt %>% 
    group_by(interval) %>% 
    do(data.frame(interval = rep.int(.$interval, .$counts), stringsAsFactors = FALSE)) %>% 
    separate(interval, c('left', 'right'), sep = ' - ', convert = TRUE) %>% 
    mutate(value = right + (left - right)/2) 
breaks <- c(0, unique(dt3$right)) 

ggplot(dt3, aes(value)) + 
    geom_histogram(aes(y = ..density..), breaks = breaks, col = 1) + 
    geom_freqpoly(aes(y = ..density..), breaks = breaks, col = 'red') 

Answer 2

Sie stat = "identity" und fügen Sie eine y-ästhetische verwenden können Sie die gewünschte Diagramm erhalten:

ggplot(DS18, aes(x=interval, y = counts)) + 
    geom_histogram(stat="identity") 

, dass Sie dies gibt:

Answer 3

Ich denke, was Sie brauchen, ist kein Histogramm, sondern ein Barplot. Hier habe ich gezeigt, wie man mit geom_col einen Barplot erstellt. Beachten Sie, dass ich factor verwendet habe, um den Balken jeder Klasse vor dem Zeichnen der Daten zu sortieren.

library(ggplot2) 

# Order the bar 
dt$interval <- factor(dt$interval, levels = dt$interval) 
# Create the bar plot 
ggplot(dt, aes(x=interval, y = counts)) + geom_col() 

DATA

dt <- read.table(text = "interval  counts 
'0 - 8.50'  2577 
       '8.51 - 10.00' 1199 
       '10.01 - 12.00' 1878 
       '12.01 - 14.00' 637 
       '14.01 - 16.00' 369 
       '16.01 - 18.00' 98 
       '18.00 - 20.00' 308", 
       header = TRUE, stringsAsFactors = FALSE)