Shiny

Slide 2

library(highcharter)
library(shiny)

selectInput(
  "species",
  "Species",
  choices = c(
    "Adelie",
    "Chinstrap",
    "Gentoo"
  ),
  multiple = TRUE,
  selected = c(
    "Adelie",
    "Chinstrap",
    "Gentoo"
  ),
  width = "100%"
)

# 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)

hchart(
  penguins, "scatter", 
  hcaes(x = flipper_length_mm, y = bill_length_mm, group = species)
) %>%
  hc_yAxis(title = list(text = "Bill Length (mm)")) %>%
  hc_xAxis(title = list(text = "Flipper Length (mm)")) 

The End



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