#Usaremos la Base de datos que nos proporciona la librería babynames
library(ggplot2) #USO PARA LOS GRÁFICOS
library(dplyr) #USO PARA FILTROS
library(babynames) #BASE DE DATOS
#Filtraremos una cantidad de 4 nombres femeninos
bbnm<-babynames %>%
filter(name %in% c("Mary", "Helen", "Linda","Emma")) %>%
filter(sex=="F")
#Seleccionaremos los ejes, color y grupo de datos
bbnms1<-bbnm %>%
ggplot(aes(x=year,y=n, group=name, color=name)) +
geom_line(size = 1)
bbnms1
bbnms2<-bbnm %>% ggplot(aes(x=year,y=n, group=name, color=name)) +
#Tipo de delineado
geom_line(size = 1) +
#Título y nombres de los ejes
labs(title = 'Popularidad de los Nombres 1880-2017',
x = 'Años',
y = 'Número de Bebes') +
scale_color_viridis_d() +
#Tema del gráfico
theme_minimal() +
#Separar por nombre(name)
facet_wrap(~name)
bbnms2
library(plotly)
bbnms3<-bbnm %>% ggplot(aes(x=year,y=n, color=name)) +
geom_line(size = 1) +
labs(title = 'Popularidad de los Nombres 1880-2017',
x = 'Años',
y = 'Número de Bebes') +
scale_color_viridis_d() +
theme_minimal()
#Para que el gráfico presente información de la coordenada
ggplotly(bbnms3)
bbnms3<-bbnm %>% ggplot(aes(x=year,y=n, color=name)) +
geom_line(size = 1) +
labs(title = 'Popularidad de los Nombres 1880-2017',
x = 'Años',
y = 'Número de Bebes') +
scale_color_viridis_d() +
theme_minimal() +
facet_wrap(~name)
ggplotly(bbnms3)
library(gganimate) #USO GRÁFICOS ANIMADOS
bbnms4<-bbnm %>% ggplot(aes(x=year,y=n, group=name, color=name)) +
geom_line(size = 1) +
geom_point(size = 3) +
labs(title = 'Popularidad de los Nombres en {trunc(frame_along)}',
x = 'Años',
y = 'Número de Bebes') +
scale_color_viridis_d() +
theme_minimal() +
#El gráfico avanza de forma animada según la variable año(year)
transition_reveal(year)
bbnms4
bbnms5<-bbnm %>% ggplot(aes(x=year, y=n, group=name, color=name)) +
geom_line(size = 1) +
geom_point(size = 3) +
labs(title = 'Popularidad de los Nombres en {trunc(frame_along)}',
x = 'Años',
y = 'Número de Bebes') +
scale_color_viridis_d() +
theme_minimal() +
transition_reveal(year) +
facet_wrap(~name)
bbnms5
Datanovia Datanovia https://www.datanovia.com/
Data Carpentry contributors Data visualization with ggplot2 https://datacarpentry.org/R-ecology-lesson/04-visualization-ggplot2.html
En cours de rédaction :
JMU2017 Advanced Data Visualization with ggplot2 https://4va.github.io/biodatasci/r-viz-gapminder.html