# Load libraries
library(ggplot2)
library(lvplot)
library(plotly)

# Sample data
set.seed(123)
data <- data.frame(
  group = rep(LETTERS[1:5], each = 100),
  value = c(rnorm(100, mean = 10), rnorm(100, mean = 15), 
            rnorm(100, mean = 20), rnorm(100, mean = 25), 
            rnorm(100, mean = 30))
)

# Create letter-value plot
p <- ggplot(data, aes(x = group, y = value)) +
  geom_lv() +
  theme_minimal()

# Convert to interactive plot with ggplotly
ggplotly(p)