Tengo la siguiente distribución de frecuencia:
El código que elaboré para elaborar el histograma es:
library(dplyr)
library(ggplot2)
midf <- data.frame("x" = c(rep(1975,1), rep(1985,6), rep(1995,17), rep(2005,24), rep(2015,1)))
g1 <- ggplot(midf)
g1 <- g1 + aes ( x = x)
g1 <- g1 + geom_histogram () + geom_histogram(bins=5, position = 'identity', alpha = 0.8)
g1 <- g1 + xlab ("Años de Antiguedad")
g1 <- g1 + ylab ("Cantidad de Objetos")
g1 <- g1 + ggtitle ("Trabajo de Aplicación", subtitle = "Antiguedad de Objetos Encontrados en Océano")
g1 <- g1 + coord_cartesian(ylim=c(-2,26), xlim=c(1970,2020))
g1
Sin embargo no me logra quedar un histograma (las columnas juntas y centradas en la marca de clase), mas bien es un gráfico de barras y se trata de una distribución cuantitativa. Alguien sabe como puedo construir adecuadamente el histograma?
Este es el gráfico que me queda: