
Lab 13: Visualization
Note
In lab.qmd ## Lab 13 section,
Import the data penguins.csv.
Generate the following
Warning: Removed 2 rows containing non-finite values (`stat_bin()`).

# library(tidyverse)
penguins <- read_csv(__________________)
________ |> ggplot(_______________________) +  ## mapping layer  
    ___________________ +  ## geometry layer
    _____________________________  ## label layer
 
 
________ |> ggplot(______________________________) +  ## mapping layer  
    _______________ +  ## geometry layer
    _______________ +  ## label layer
    ______________________________  +   ## facet layer
    ______________________________      ## theme layer (set legend.position = "none")