Probando Thebelab
¿Qué tal si pudieramos crear código en páginas estaticas de HTML?
if(!require(pacman))install.packages("pacman") pacman::p_load('dplyr', 'tidyr', 'gapminder', 'ggplot2', 'ggalt', 'forcats', 'R.utils', 'png', 'grid', 'ggpubr', 'scales', 'bbplot') #Datos de gapminder line_df <- gapminder %>% filter(country == "Malawi") #crea el grafico line <- ggplot(line_df, aes(x = year, y = lifeExp)) + geom_line(colour = "#1380A1", size = 1) + geom_hline(yintercept = 0, size = 1, colour="#333333") + bbc_style() + labs(title="Living longer", subtitle = "Life expectancy in Malawi 1952-2007") line
Otro ejemplo
library("ggalt") library("tidyr") #Prepare data dumbbell_df <- gapminder %>% filter(year == 1967 | year == 2007) %>% select(country, year, lifeExp) %>% spread(year, lifeExp) %>% mutate(gap = `2007` - `1967`) %>% arrange(desc(gap)) %>% head(10) #Make plot ggplot(dumbbell_df, aes(x = `1967`, xend = `2007`, y = reorder(country, gap), group = country)) + geom_dumbbell(colour = "#dddddd", size = 3, colour_x = "#FAAB18", colour_xend = "#1380A1") + bbc_style() + labs(title="We're living longer", subtitle="Biggest life expectancy rise, 1967-2007")
#Prepare data facet <- gapminder %>% filter(continent != "Americas") %>% group_by(continent, year) %>% summarise(pop = sum(as.numeric(pop))) #Make plot facet_plot <- ggplot() + geom_area(data = facet, aes(x = year, y = pop, fill = continent)) + scale_fill_manual(values = c("#FAAB18", "#1380A1","#990000", "#588300")) + facet_wrap( ~ continent, ncol = 5) + scale_y_continuous(breaks = c(0, 2000000000, 4000000000), labels = c(0, "2bn", "4bn")) + bbc_style() + geom_hline(yintercept = 0, size = 1, colour = "#333333") + theme(legend.position = "none", axis.text.x = element_blank()) + labs(title = "Asia's rapid growth", subtitle = "Population growth by continent, 1952-2007") facet_plot
#Make plot facet_plot_free <- ggplot() + geom_area(data = facet, aes(x = year, y = pop, fill = continent)) + facet_wrap(~ continent, scales = "free") + bbc_style() + scale_fill_manual(values = c("#FAAB18", "#1380A1","#990000", "#588300")) + geom_hline(yintercept = 0, size = 1, colour = "#333333") + theme(legend.position = "none", axis.text.x = element_blank(), axis.text.y = element_blank()) + labs(title = "It's all relative", subtitle = "Relative population growth by continent,1952-2007") facet_plot_free
Subscríbete a 🌮 tacos de datos | Aprende visualización de datos en español.
Recibe las mejores publicaciones directamente a tu caja de entrada