Appendix B | Ciencia de Datos con R

Ejercicios para las funciones de transformaciones 2

Seleccione los siguientes datos sobre COVID en PR

LEEN bien lo que estoy pidiendo. El nombre de las columnas pueden engañar!!!

El código lee los datos con fread() desde una URL de GitHub, por lo que necesitas conexión a internet para ejecutarlo.

library(tidyverse)
library(data.table)
url_COVID_PR=fread("https://raw.githubusercontent.com/rafalab/pr-covid/master/dashboard/data/DatosMortalidad.csv")

library(gt)
Covid=url_COVID_PR
gt(tail(Covid, n=2))

Fecha	Muertes	IncrementoMuertes	CasosPCR_Salud	IncCasosPCR_Salud	CasosSaludNuevo	IncCasosSaludNuevo	HospitCOV19	CamasICU	CamasICU_disp	Ventiladores	MuertesSalud	IncMueSalud	VacDoses	VacAdm	N1MoreDoses	N2Doses
10/18/21	3209	2	151033	6	151089	11	78	28	189	17	3212	2	4972170	4848929	2578407	2306058
10/19/21	3213	4	151089	56	NA	NA	82	22	193	16	3213	1	NA	NA	NA	NA

1. Calcular el promedio de Muertes por día de nuevos muertos desde el comienzo hasta el último día del archivo

2. ¿Cuál es el máximo de nuevos casos en un día

3. ¿Calcular la cantidad cumulativa de número de camas CamasICU

Enseñe solamente las últimas 4 filas

4. Haz una gráfica de la varianza y como cambia a través del tiempo.

usa puntos para cada fecha
añade una regresión LOESS
cambia los nombres de los ejes para algo más claro
los colores de los puntos
cambia el color de la linea