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)"))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.