Laboratorio para crear función de sumatoria

Ejemplo de RMarkdown

Esta es una prueba de cómo utilizar un archivo RMarkdown

#Crear una función que sume tres valores
suma_tres_valores<-function(x,y,z){
  resultado<-x+y+z
  resultado
}

suma_tres_valores(10,10,10)
## [1] 30

Laboratorio para analizar datos COVID

Ejemplo de datos COVID

Esta es una prueba de cómo utilizar un archivo de datos de COVID

# Cargar las librerías necesarias
library(ggplot2)
library(dplyr)

# Asegúrate de que FECHA_INGRESO es de tipo Date
datosCOVID$FECHA_INGRESO <- as.Date(datosCOVID$FECHA_INGRESO)

# Filtrar solo los casos positivos
datosCOVID_positivos <- datosCOVID %>% 
  filter(RESULTADO_LAB == 1)

# Crear una secuencia de fechas para los breaks del eje X
fechas_inicio <- min(datosCOVID_positivos$FECHA_INGRESO)
fechas_fin <- max(datosCOVID_positivos$FECHA_INGRESO)
breaks_fechas <- seq(from = as.Date(format(fechas_inicio, "%Y-%m-01")), 
                     to = as.Date(format(fechas_fin, "%Y-%m-01")), 
                     by = "month")

# Crear el gráfico
ggplot(datosCOVID_positivos, aes(x = FECHA_INGRESO)) +
  geom_bar(stat = "count", fill = "#69b3a2", color = "#43978d") +
  labs(title = "Positivos COVID a lo largo del tiempo",
       x = "Fecha de ingreso",
       y = "Número de casos positivos") +
  theme_minimal() +
  theme(axis.text.x = element_text(angle = 45, hjust = 1)) +
  scale_x_date(breaks = breaks_fechas, date_labels = "%Y-%m-%d") # Formato de fecha ajustable