Sample

My Report

Here is some text.

We are going over the following

1. Create my first Quarto document

2. Add R code box

3. Add a graph

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 er Capita", 
       y = "Life Expectancy") +
  theme_minimal()