sample

My report

Here is an opening paragraph.

1. numbered item 1

2. numbered item 2

library(tidyverse)
library(gapminder)
gapminder |>
  filter(year == 2007) |>
  ggplot(aes(x = gdpPercap, y = lifeExp)) +
  geom_point(aes(color = continent)) +
  labs(title = "Life Expectancy and GDP per Capita in 2007",
       x = "GDP per Capita",
       y = "Life Expectancy") +
  theme_minimal()