Hello, Penguins!

Introduction

Data

For this analysis we’ll use the penguins dataset from the palmerpenguins package.

library(tidyverse)
library(ggthemes)
library(palmerpenguins)
library(gt)

Species

The figure below is a bar plot of species of penguins.

ggplot(
  penguins,
  aes(
    x = bill_length_mm, 
    y = bill_depth_mm,
    color = species, 
    shape = species
  )
) +
  geom_point() +
  scale_color_colorblind() +
  labs(
    x = "Bill length (mm)", 
    y = "Bill depth (mm)"
  ) +
  theme_minimal()

Penguins

The table below shows the first 10 penguins from the dataset.

penguins |>
  slice_head(n = 10) |>
  select(species, island, bill_length_mm, bill_depth_mm) |>
  gt()

species	island	bill_length_mm	bill_depth_mm
Adelie	Torgersen	39.1	18.7
Adelie	Torgersen	39.5	17.4
Adelie	Torgersen	40.3	18.0
Adelie	Torgersen	NA	NA
Adelie	Torgersen	36.7	19.3
Adelie	Torgersen	39.3	20.6
Adelie	Torgersen	38.9	17.8
Adelie	Torgersen	39.2	19.6
Adelie	Torgersen	34.1	18.1
Adelie	Torgersen	42.0	20.2

Analysis

Model 1 results

This model is awesome
But has some drawbacks…
And here is one drawback…
This model is awesome
But has some drawbacks…
And here is one drawback…
This model is awesome
But has some drawbacks…
And here is one drawback…

Model 2 results

Column 1 content

blah

item 1
item 2

Column 2 content

blah

Column 3 content

hello

mello

plot(cars)

I define model here

show the output here