如何根据ggplot2或highcharter绘制具有类别的垂直李克特折线图？

# 安装并加载ggplot2包
install.packages("ggplot2")
library(ggplot2)

# 准备数据集
data <- data.frame(Category = c("A", "B", "C", "D"),
                   Value1 = c(10, 15, 8, 12),
                   Value2 = c(5, 7, 9, 6))

# 创建基础图层
p <- ggplot(data, aes(x = Category))

# 添加折线图层
p <- p + geom_line(aes(y = Value1, color = "Value1"))
p <- p + geom_line(aes(y = Value2, color = "Value2"))

# 添加类别分面
p <- p + facet_wrap(~ Category)

# 添加标题和轴标签
p <- p + labs(title = "Vertical Lickert Line Chart",
              x = "Category",
              y = "Value")

# 自定义外观
p <- p + theme(plot.background = element_rect(fill = "white"),
               panel.background = element_rect(fill = "white"),
               panel.grid.major = element_line(color = "gray"),
               panel.grid.minor = element_blank())

# 打印图表
print(p)

# 安装并加载highcharter包
install.packages("highcharter")
library(highcharter)

# 准备数据集
data <- data.frame(Category = c("A", "B", "C", "D"),
                   Value1 = c(10, 15, 8, 12),
                   Value2 = c(5, 7, 9, 6))

# 创建基础图表
h <- hchart(data, "line", hcaes(x = Category))

# 添加折线图层
h <- h %>% hc_add_series(data$Value1, name = "Value1")
h <- h %>% hc_add_series(data$Value2, name = "Value2")

# 自定义X轴和Y轴
h <- h %>% hc_xAxis(title = list(text = "Category"))
h <- h %>% hc_yAxis(title = list(text = "Value"))

# 添加标题和副标题
h <- h %>% hc_title(text = "Vertical Lickert Line Chart")
h <- h %>% hc_subtitle(text = "Using highcharter")

# 自定义图例
h <- h %>% hc_legend(layout = "vertical", align = "right", verticalAlign = "middle")

# 自定义外观
h <- h %>% hc_plotOptions(line = list(color = "#7cb5ec", lineWidth = 2))

# 打印图表
h