Samp

My Report

Here is my opening Paragraph

1. Numered list

2. Number 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()