ACTIVIDAD 1 (15%)

-El siguiente gráfico cumple con la característica de ser engañoso, los dos ejes en una misma visualización, aunque son comunes, no son recomendados.

- creamos una base de datos en excel con valores parecidos y la importamos a R.

library(tidyverse)
library(readxl)
library(janitor)

pib <- read_xlsx("grafico_pib_comas.xlsx")

pib <- clean_names(dat = pib)
pib

grafico pib alemania

library(hrbrthemes)
pib %>% 
  ggplot(mapping = aes(x= ano, y=  alemania_pib))+
  geom_line( color="grey") +
    geom_point(shape=21, color="black", fill="#69b3a2", size=6) +
    theme_ipsum() +
    ggtitle("pib alemania")

## grafico pib mundial

pib %>% 
  ggplot(mapping = aes(x= ano, y= global_pib))+
   geom_line( color="grey") +
    geom_point(shape=21, color="black", fill="#69b3a2", size=6) +
    theme_ipsum() +
    ggtitle("pib mundial")