ggplot2 中的绘图线

Question

是否可以使用ggplot制作此图，按变量“t”以升序对图进行排序，根据状态区分每个“t”（黑色或白色圆圈，它可以是另一个标记......），如果可能的话纵坐标轴上的变量“id”。

Id<- c(1,2,3,4)
t<- c(10,5,20,15)
status<- c(0,1,0,1)
df<- data.frame(Id, t, status)

Answer 1

也许你想要这样的东西，使用geom_segment和geom_vline作为垂直线。 使用shape和fill美学来填充每个状态的“黑色”和“白色”点。 您可以使用以下代码：

Id<- c(1,2,3,4)
t<- c(10,5,20,15)
status<- c(0,1,0,1)
df<- data.frame(Id, t, status)

library(ggplot2)
library(dplyr)
library(forcats)
df %>%
  mutate(Id = as.factor(Id),
         status = as.factor(status)) %>%
  ggplot(aes(x = t, y = fct_reorder(Id, t, .desc = TRUE), shape = status, fill = status)) +
  geom_point() +
  geom_segment(aes(x = 0, xend = t, y = Id, yend = Id)) +
  geom_vline(xintercept=c(t),linetype="dotted", alpha = 0.4) +
  scale_shape_manual(values=c(21, 21), name = "shapes!") +
  scale_fill_manual(values=c("black", "white")) +
  scale_x_continuous(expand = c(0, 0), limits = c(0, 25)) + 
  labs(x = "", y = "Id") +
  theme_bw() +
  theme(panel.grid.major = element_blank(), 
        panel.grid.minor = element_blank(),
        legend.position = "none",
        axis.title.y = element_text(angle=0)) 

^{由代表 package (v2.0.1) 于 2022 年 7 月 25 日创建}