Paul Tocto
24/03/2020
For more details of PERU please visit https://en.wikipedia.org/wiki/Peru.
library("tidyr")
library(readxl)
library(dplyr)
datos <- read_excel(path = "BD.xlsx", range = "A2:G26", col_names = c("Department", "Confirmed", "Longitud", "Latitud","Recovered","Deaths","Active"))
dt <- arrange(datos, -Confirmed)
dataset1 <- data.frame(dt[1],dt[2],dt[5],dt[6],dt[7])
Department Confirmed Recovered Deaths
Length:25 Min. : 0.0 Min. :0.00 Min. :0.0
Class :character 1st Qu.: 0.0 1st Qu.:0.00 1st Qu.:0.0
Mode :character Median : 1.0 Median :0.00 Median :0.0
Mean : 15.8 Mean :0.04 Mean :0.2
3rd Qu.: 7.0 3rd Qu.:0.00 3rd Qu.:0.0
Max. :307.0 Max. :1.00 Max. :5.0
Active
Min. : 0.00
1st Qu.: 0.00
Median : 1.00
Mean : 15.56
3rd Qu.: 7.00
Max. :301.00
/