In Tychobra/polished: Authentication and Hosting for 'shiny' Apps

library(ggplot2)
library(knitr)
# install.packages("palmerpenguins")
data(penguins, package = "palmerpenguins")

penguins <- penguins[, c("species", "island", "bill_length_mm", "flipper_length_mm", "body_mass_g")]
penguins <- na.omit(penguins)

Chart

ggplot(
  penguins,
  aes(x = flipper_length_mm, y = bill_length_mm, color = species)
) + 
  geom_point() +
  xlab("Flipper Length (mm)") +
  ylab("Bill Length (mm)") 

Table

knitr::kable(
  penguins[1:50, ],
  row.names = FALSE,
  col.names = c(
    "Species",
    "Island",
    "Bill Length (mm)",
    "Flipper Length (mm)",
    "Body Mass (g)"
  )
)

Tychobra/polished documentation built on April 12, 2025, 5:44 a.m.