Hola Mundo!
¿De qué depende la felicidad? El PIB y la corrupción parecen separar el nivel de satisfacción de un país.
Comenta una 🍍 en el tweet si aprendiste algo nuevo!
El código para hacer la gráfica!
# Hecho por @GonzalezGouveia con gusto para
# Twitter #DatosDeMiercoles por @R4DS_es
library(tidyverse)
library(ggrepel)
library(plotly)
library(ggthemes)
# si no tienes instalado bbplot ejecuta:
# install.packages('devtools')
# devtools::install_github('bbc/bbplot')
library(bbplot)
library(htmlwidgets)
# leer los datos de internet
felicidad <- read_csv("https://bit.ly/2ZHzRKb")
# filtrar datos para 2018
felicidad_tidy <- felicidad %>%
filter(anio == 2018) %>%
select(pais,
escalera_vida,
log_pib,
percepcion_corrupcion)
# crear la gráfica
p <- felicidad_tidy %>%
ggplot(aes(x = percepcion_corrupcion,
y = log_pib,
color = escalera_vida,
label = pais,
text = paste('=D ',
'\nfelicidad:', round(escalera_vida),
'\npais:', pais) )) +
# geom_point(color = 'black', size = 5) +
geom_point(size = 3) +
bbc_style() +
labs(title = '😄 Felicidad en 2018! 😄', # hay unos emojis!
x = 'Percepción de corrupción',
y = 'Logaritmo de PIB',
color = 'felicidad') +
theme(axis.title = element_text()) +
# geom_text_repel() +
NULL
# hacerla un objeto de plotly
pp <- ggplotly(p, tooltip = "text")
# mirarla en RStudio viewer
pp
# guardar HTML
saveWidget(pp, 'ddm-felicidad.html')