Penguin Mass and Flipper Length

author: Your Name date: November 2026

A Shiny app for exploring how penguin body mass relates to flipper length

What the App Does

• Plots penguin body mass vs. flipper length
• Color shows species, point shape shows sex
• Checkboxes filter the data
• Brush (click and drag) a region to fit a linear model to just those points

How It Works

The app fits a simple linear model to the brushed points:

d <- na.omit(penguins[, c("species", "body_mass", "flipper_len")])
m <- lm(flipper_len ~ body_mass, data = d)
round(coef(m), 4)

## (Intercept)   body_mass 
##    136.7296      0.0153

Example Output

Try It Yourself

• App: https://aj21122112.shinyapps.io/data_products_final/
• Code: https://github.com/aj21122112/Data-Products-Final-Code
• Data: Palmer Penguins