小编rk1*_*123的帖子

我使用 ggplot 创建了一个图（下面带有 DF1 数据集）。我想在这个情节上添加两点：

1. 基于 DF.SYMBOL 数据集添加符号（在两个 ID 的指定时间：按事件不同的形状和颜色）。
2. 根据 DF.LINE 数据集在条形内添加一条垂直线，并以 CONC 作为图例

我将不胜感激您的建议！

ID<-rep(c(1,2),each=6)
START <- c(0, 42,57,300,520,710, 0,31,56,85,120,300)
END <- c(42,57,300,520,710,711,31,56,85,120,300,301)
TYPE <- c("S","NR","R","NR","R","R","S","R","NR","R","NR","NR")
DF1 <-data.frame(ID,START,END,TYPE)
DF1

# converting ID from numeric to factor 
DF1 %<>% 
  dplyr::mutate(ID = factor(ID)) 

ggplot(DF1,aes(y=ID,yend=ID,x=START,xend=END,color=TYPE))+
  geom_segment(aes(y=ID,yend=ID,x=START,xend=END),size=6,lineend= "butt")

ID<-rep(c(1,2),each=2)
EVENT <- rep(c("TBR","PBR"))
TIME <- c(90, 220,120,200)
DF.SYMBOL<-data.frame(ID,EVENT,TIME)

ID <- c(1,2)
TIME <- c(400, 265)
CONC <- c(23,97)
DF.LINE<-data.frame(ID,TIME, CONC)

这是所需的图（在 powerpoint 上编辑）：基于 DF.SYMBOL …