R Markdown

Este es un archivo de tipo R Markdown (.Rmd), en este tipo de archivos podemos de manera simple intercalar texto con código.

Statewide COVID-19 Vaccines Administered By Demographics, California Health and Human Services Open Data Portal https://data.chhs.ca.gov/

library(readxl) # Library to read data from excel

covid19VaccinesAdministerDemographics <- read_excel("covid19vaccinesadministeredbydemographics.xlsx")

head(covid19VaccinesAdministerDemographics)
library(dplyr) # data management library
library(tidyr) # library for data "shape" modification
# We generate a new data set "covid19VaccinesAdministerDemographicsCuadro" 
covid19VaccinesAdministerDemographicsCuadro <- 
  covid19VaccinesAdministerDemographics %>%
  # we select five variables/columns
  select(administered_date, total_doses, pfizer_doses, moderna_doses,jj_doses) 
covid19VaccinesAdministerDemographicsCuadro

Type of Vaccines applied and total dose

library(dplyr) # 
library(tidyr) # 
# We generate a new data set "covid19VaccinesAdministerDemographicsCuadro2"
covid19VaccinesAdministerDemographicsCuadro2 <- 
  covid19VaccinesAdministerDemographics %>%
  select(total_doses, total_doses, pfizer_doses, moderna_doses,jj_doses)

covid19VaccinesAdministerDemographicsCuadro2

Visualization

Proportion of Pfizer doses with respect to the total doses supplied

library(ggplot2)
ggplot(data = covid19VaccinesAdministerDemographics) +
  geom_point(mapping = aes(x = total_doses, y = pfizer_doses))+
  theme_set(theme_bw())+
  labs(title = "Pfizer Doses",
    x= "Total Doses")

## Proportion of Pfizer doses with respect to the total doses supplied

ggplot(data = covid19VaccinesAdministerDemographics) +
  geom_point(mapping = aes(x = administered_date, y = pfizer_doses, colour = total_doses))+
  theme_set(theme_bw())+
  labs(title = "Administered Date & Pfizer Doses",
    x= "Date")

Proportion of Moderna doses with respect to the total doses supplied

ggplot(data = covid19VaccinesAdministerDemographics) +
  geom_point(mapping = aes(x = administered_date, y = moderna_doses, colour = total_doses))+
  theme_set(theme_bw())+
  labs(title = "Administered Date & Moderna Doses",
    x= "Date")

Proportion of JJ doses with respect to the total doses supplied

ggplot(data = covid19VaccinesAdministerDemographics) +
  geom_point(mapping = aes(x = administered_date, y = jj_doses, colour = total_doses))+
  theme_set(theme_bw())+
  labs(title = "Administered Date & JJ Doses",
    x= "Date")