使用多列作为 R 的 ggplot2 中的 x 轴

Question

想要的图

我想获得上面的图表，我尝试使用 ggplot 来获取它。

blue = c(83, 81, 80, 71, 69, 63, 63, 62, 54)
red = c(112, 96, 111, 141, 125, 89, 178, 107, 130)
loc = c("YISHUN", "WOODLANDS", "HOUGANG", "ANG MO KIO"  "TAMPINES", "SENGKANG", "GEYLANG", "BEDOK", "JURONG WEST")
tib = mutate(blue, red, loc)
ggplot(lst_compare, aes(x=c(wet, dry) ,y=loc)) +
  geom_point() + geom_segment(y=loc, x= wet, xend= dry, yend= loc)

我尝试了上述方法，但是，似乎不能简单地将多列包含为 x 值。 有谁知道如何将多列作为 x 轴的一部分？

Answer 1

我修正了你的 reprex 中的错误。 我认为最好在绘图之前对数据进行透视。

library(tidyverse)
blue = c(83, 81, 80, 71, 69, 63, 63, 62, 54)
red = c(112, 96, 111, 141, 125, 89, 178, 107, 130)
loc = c("YISHUN", "WOODLANDS", "HOUGANG", "ANG MO KIO",  "TAMPINES", "SENGKANG", "GEYLANG", "BEDOK", "JURONG WEST")
tib = data.frame(blue, red, loc)

tib %>% 
  pivot_longer(c("blue", "red")) %>% 
  ggplot() +
  geom_point(aes(x = value, y = loc, color = name), size = 2) +
  scale_color_identity() +
  geom_line(aes(x = value, y = loc)) + 
  theme_minimal()

^{由reprex 包(v2.0.1) 于 2021 年 10 月 21 日创建}