Ejecutamos el código de los apartados importación y manipulación de la entrada anterior y comenzamos a usar ggplot2.
ggplot2
install.packages("ggplot2") # Instalamos ggplot2
library(ggplot2) # Cargamos el paquete
intervalos <- seq(1920, 2020, 10) # Intervalos
# Diagrama de dispersión
ggplot(peliculas, aes(x = year, y = rating))+
geom_point(color = "red", size = 3)+
scale_x_continuous( breaks = seq(0, 3000, 10))+
theme_classic()
# Histograma personalizado
ggplot(peliculas, aes(x = year,y = ..count..))+
geom_histogram(binwidth = 10, colour = "white", fill = "steelblue")+
ylab(NULL) + ylim(c(0, 60))+
scale_x_continuous(breaks = intervalos)+
stat_bin(binwidth = 10, aes(label=..count..), vjust=-0.5, geom = "text")
# Histograma con gradiente de color por nº de películas
ggplot(peliculas, aes(x = year))+
geom_histogram(binwidth = 10, colour = "white", aes(fill = ..count..))+
ylab(NULL) + ylim(c(0, 60))+
scale_x_continuous(breaks = intervalos)
Entradas relacionadas:
No hay comentarios:
Publicar un comentario