RECREACION DE LOS GRAFICOS
install.packages("tidyverse")## Installing package into '/home/rstudio-user/R/x86_64-pc-linux-gnu-library/4.0'
## (as 'lib' is unspecified)library(tidyverse)## ── Attaching packages ──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────── tidyverse 1.3.0 ──## ✓ ggplot2 3.3.2 ✓ purrr 0.3.4
## ✓ tibble 3.0.1 ✓ dplyr 1.0.0
## ✓ tidyr 1.1.0 ✓ stringr 1.4.0
## ✓ readr 1.3.1 ✓ forcats 0.5.0## ── Conflicts ─────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────── tidyverse_conflicts() ──
## x dplyr::filter() masks stats::filter()
## x dplyr::lag() masks stats::lag()Cuadro 1
Paises <- c("Argentina","Bolivia","Brazil","Chile","Colombia","Costa Rica","Ecuador","Mexico","Panama","Peru","Uruguay")
Totaldeaxmill <- c(18.431,52.343,203.858,173.832,32.762,2.356,220.823,132.945,101.28,202.84,6.621)
Dateaea <- c("2020.Junio.15","2020.Junio.15","2020.Junio.15","2020.Junio.15","2020.Junio.15","2020.Junio.15","2020.Junio.15","2020.Junio.15","2020.Junio.15","2020.Junio.15","2020.Junio.15")
Varia_neg <- c(-7.3,-5.9,-8.0,-4.3,-4.9,-3.3,-7.4,-7.5,-2.0,-12.0,-3.7)
datacuadro1 <- data.frame(Paises,Totaldeaxmill,Dateaea,Varia_neg)
datacuadro1## Paises Totaldeaxmill Dateaea Varia_neg
## 1 Argentina 18.431 2020.Junio.15 -7.3
## 2 Bolivia 52.343 2020.Junio.15 -5.9
## 3 Brazil 203.858 2020.Junio.15 -8.0
## 4 Chile 173.832 2020.Junio.15 -4.3
## 5 Colombia 32.762 2020.Junio.15 -4.9
## 6 Costa Rica 2.356 2020.Junio.15 -3.3
## 7 Ecuador 220.823 2020.Junio.15 -7.4
## 8 Mexico 132.945 2020.Junio.15 -7.5
## 9 Panama 101.280 2020.Junio.15 -2.0
## 10 Peru 202.840 2020.Junio.15 -12.0
## 11 Uruguay 6.621 2020.Junio.15 -3.7str(datacuadro1)## 'data.frame': 11 obs. of 4 variables:
## $ Paises : chr "Argentina" "Bolivia" "Brazil" "Chile" ...
## $ Totaldeaxmill: num 18.4 52.3 203.9 173.8 32.8 ...
## $ Dateaea : chr "2020.Junio.15" "2020.Junio.15" "2020.Junio.15" "2020.Junio.15" ...
## $ Varia_neg : num -7.3 -5.9 -8 -4.3 -4.9 -3.3 -7.4 -7.5 -2 -12 ...ggplot(datacuadro1, aes(-Varia_neg, Totaldeaxmill))+geom_jitter(aes(color=Paises),alpha=5)
Cuadro 2
link6="https://docs.google.com/spreadsheets/d/e/2PACX-1vR5Xki_2EhVvqPwCubS-ZEqxSKyLrMXV6Sr2zkloJhfVrR9UGpj_pCoyU9hly8baQ/pub?output=csv"
datacuadro22 <- read.csv(link6, stringsAsFactors = T)
str(datacuadro22)## 'data.frame': 78 obs. of 3 variables:
## $ Year : Factor w/ 6 levels "yr2000","yr2010",..: 1 2 3 4 5 6 1 2 3 4 ...
## $ Country: Factor w/ 13 levels "Argentina","Bolivia",..: 1 1 1 1 1 1 12 12 12 12 ...
## $ nunber : num 8.47 8.61 8.4 8.79 7.54 ...ggplot(datacuadro22,aes(Country,nunber,fill=Year))+geom_bar(stat="identity", position="dodge")