如何通过 ggplot2 或 highcharter 绘制带类别的垂直李克特折线图?

how to plot a Vertical Likert Line Chart with Categories by ggplot2 or highcharter?

我想做一个垂直李克特折线图,有没有ggplot2或者highcharter绘制的?

示例图表如下:

数据示例:

value1 <- abs(rnorm(26))*2
data <- data.frame(
  x=LETTERS[1:26], 
  value1=value1, 
  value2=value1+1+rnorm(26, sd=1) 
)
library(tidyverse)
data %>%
  pivot_longer(-x) %>%
  ggplot(aes(x, value, color = name, group = name)) +
  geom_line() +
  geom_point() +
  coord_flip()

P.S。 --- 从 2020 年 3 月的 ggplot2 3.3.0 开始,您可以跳过“coord_flip”步骤并直接按照您想要的方向描述坐标轴,但是 geom_line 步骤仍然需要微调才能显示正确:

...
ggplot(aes(value, x, color = name, group = name)) +
  geom_line(orientation = "y") +
  geom_point()