Introduction to Quarto

Introduction

Measles (rubeola) is a highly contagious, acute viral respiratory illness caused by a paramyxovirus. It spreads easily through airborne droplets (coughing/sneezing) and remains active in the air or on surfaces for up to two hours, often causing severe complications in young, malnourished children. Initial symptoms include high fever, cough, coryza, conjunctivitis (the “three Cs”), and Koplik spots, followed by a maculopapular rash. While there is no specific antiviral treatment, the disease is preventable with the safe, effective MMR vaccine.

Objectives

General objective

• To assess measles cases
• to identify
• ttt

Specific Objectives

Methds

Results

plot(mtcars$mpg, mtcars$disp)

library(ggplot2)

ggplot(mtcars, aes(x=mpg, y=disp))+
  geom_point()+
  theme_classic()

measles <- read_csv("data/measles.csv", show_col_types = FALSE)

ggplot(measles, aes(x=date, y=measles_total))+
  geom_line(color = "darkblue", linewidth = 1.2)+
  theme_minimal()


#| Improve the plot

measles |>
ggplot(aes(x = date, y = measles_total)) +
geom_line(color = "steelblue", linewidth = 0.9) +
geom_point(color = "steelblue", size = 0.6) +
labs(
 #| title = "Monthly Measles Cases (2012-2024)",
  x = "Date",
  y = "Total cases (monthly)"
) +
scale_x_date(date_breaks = "2 year", date_labels = "%Y") +
theme_minimal(base_size = 14) 

Figure 1: Monthly reported measles cases in Ethiopia, 2012-2024

Figure 2: Monthly reported measles cases in Ethiopia, 2012-2024