#1. Indicador del % total de adultos mayores (>60 a?os) fallecidos en Cali
#(denominador solo Cali).
##Data Frame (Bases de Datos)
require(RSocrata)
## Loading required package: RSocrata
token <- "ew2rEMuESuzWPqMkyPfOSGJgE"
casos_ins <- read.socrata("https://www.datos.gov.co/resource/gt2j-8ykr.json", app_token = token)
sum(casos_ins$edad>60&casos_ins$ciudad_de_ubicaci_n=="Cali"&casos_ins$estado=="Fallecido")
## [1] 1269
ttal=(casos_ins$edad>60&casos_ins$ciudad_de_ubicaci_n=="Cali"&casos_ins$estado=="Fallecido")
n=sum(casos_ins$ciudad_de_ubicaci_n=="Cali")
sum(ttal/n*100)
## [1] 2.68401
#R/= Se realiza la conexi?n a los datos y se procede a crear la la condici?n de edad>60
#en la ciudad de "Cali" y que su estado sea "Fallecido" como resultado se obtiene 913 casos
#adicionalmente se calcula en numero total de casos en Cali para sacar el parcentaje
#finalmente se crean las dos variables y se hace el proceso de regla de 3 y se obtiene
#que el total de adultos mayores > 60 a?os fallecidos en Cali correponde el 2,65% del total
#de casos en Cali que son 34340.
#2. Indicador del % de hombres j?venes (edad entre 18 y 60 a?os)fallecidos en Cali
#(denominados solo hombres en ese rango de edad en Cali).
sum(casos_ins$edad>=18&casos_ins$edad<=60&casos_ins$ciudad_de_ubicaci_n=="Cali"&casos_ins$estado=="Fallecido"&casos_ins$sexo=="M")
## [1] 240
ttal2=(casos_ins$edad>=18&casos_ins$edad<=60&casos_ins$ciudad_de_ubicaci_n=="Cali"&casos_ins$estado=="Fallecido"&casos_ins$sexo=="M")
sum(ttal2/n*100)
## [1] 0.5076142
#Se realiza una doble condici?n de edades y se obtienen 182 casos fallecidos, los cuales
#correspondieron al 0.5299% del total de los casos para Cali
#3. Base de Datos de Cali y algunos Municipios del ?rea metropolitana
#(Cali, Yumbo, Palmira y Jamundi)
subset1=subset(casos_ins, ciudad_de_ubicaci_n== "Cali" | ciudad_de_ubicaci_n=="Palmira" | ciudad_de_ubicaci_n== "Yumbo" | ciudad_de_ubicaci_n== "Jamund?")
#Para hacer un subconjunto de datos se utiliza el comando "subset" y se le indica el frame
#el campo y se utiliza el operador l?gico "or" para sumar cada selecci?n, finalmente la suma
#de los 4 municipios da un total de 37429 contagiados por COVID incliyendo las 21 variables
#cabe reslatar que estos datos son para el 24/08/2020