library(tidyverse)
## ── Attaching core tidyverse packages ──────────────────────── tidyverse 2.0.0 ──
## ✔ dplyr     1.1.2     ✔ readr     2.1.4
## ✔ forcats   1.0.0     ✔ stringr   1.5.0
## ✔ ggplot2   3.4.2     ✔ tibble    3.2.1
## ✔ lubridate 1.9.2     ✔ tidyr     1.3.0
## ✔ purrr     1.0.1     
## ── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
## ✖ dplyr::filter() masks stats::filter()
## ✖ dplyr::lag()    masks stats::lag()
## ℹ Use the conflicted package (<http://conflicted.r-lib.org/>) to force all conflicts to become errors
library(moderndive)
datos_america_latina <- read.csv("~/Practica R_Caleri/Datasets - ELAC/datos_america_latina.csv")
summary(datos_america_latina)
##      pais            fertilidad        ind_dem_lib        mort_infantil     
##  Length:20          Length:20          Length:20          Length:20         
##  Class :character   Class :character   Class :character   Class :character  
##  Mode  :character   Mode  :character   Mode  :character   Mode  :character  
##                                                                             
##                                                                             
##                                                                             
##  pbi_per_capita    exp_vida             gini           tasa_migracion_neta
##  Min.   : 2750   Length:20          Length:20          Length:20          
##  1st Qu.: 8470   Class :character   Class :character   Class :character   
##  Median :12800   Mode  :character   Mode  :character   Mode  :character   
##  Mean   :13689                                                            
##  3rd Qu.:19300                                                            
##  Max.   :29100                                                            
##   desempleo        
##  Length:20         
##  Class :character  
##  Mode  :character  
##                    
##                    
##

#Grafico la relación entre cada país y la tasa de fertilidad que posee.

ggplot(data = datos_america_latina) + 
    geom_point(aes(x = pais, y = fertilidad)) +
    labs(title = "Correlación entre pais y fertilidad",
         subtitle = "Nacimientos",
         x = "pais",
         y = "tasa de fertilidad")

#No puedo avanzar para conseguir la LM, hice de todo, probé en varios markdown, seguí la guia, la clase y nada!!! no se como avanzar.

ggplot(data = datos_america_latina) + 
    geom_point(aes(x = pais, y = fertilidad)) +
    labs(title = "Correlación entre pais y fertilidad",
         subtitle = "Nacimientos",
         x = "pais",
         y = "tasa de fertilidad",
         caption = "con línea de regresión") +
    geom_abline(aes(intercept = 0.6, slope = 0.6), color = "green")

#Aca utilice dos valores que se me ocurrieron esto no fue porque haya podido obtener la media.

ggplot(data = datos_america_latina) + 
    geom_point(aes(x = pais, y = fertilidad)) +
    labs(title = "Correlación entre pais y fertilidad",
         subtitle = "Nacimientos",
         x = "pais",
         y = "tasa de fertilidad",
         caption = "con línea de regresión vía geom_smooth()") +
    geom_smooth(aes(x = pais, y = fertilidad), 
                method = "lm")
## `geom_smooth()` using formula = 'y ~ x'

#Es evidente que no puedo avanzar si realmente no obtengo la media que no se por qué no me sale.