# comment your code well
# week 1 thurs.

# how to take quick look at data
penguins |> glimpse()

# extra credit: 
# submit an R-script that produces your figure required in
# assignment 1

# 1
ggplot(gapminder, 
       aes(x=gdpPercap,y=lifeExp,color = continent))  +   
        geom_point() + 
        geom_smooth() +
        labs(title = "my plot",
             x = "GDP")