geom_rect 如何对离散型变量添加阴影

目标：画散点图并给某一个值添加隐影。

• 数据：

  
  image.png

• 代码

setwd("C:/Users/Administrator/Desktop")
data=read.table(file="He.txt",header = T)
library(ggplot2)
data$x=factor(data$x,levels=data$x) 
ggplot()+geom_rect(data=data,aes(x=x,y=y),xmin =as.numeric(data$x[4])-0.4,xmax =as.numeric(data$x[4])+0.4, ymin=-Inf,ymax=Inf,fill="gray",alpha=0.2)+geom_point(aes(x=x,y=y),data=data,color="red",size=3)+theme_bw()+theme(panel.grid.major = element_blank(),panel.grid.minor = element_blank())+labs(x="",y="")+theme(axis.text.x = element_text(angle = 270,size = 8,face="bold"),axis.text.y = element_text(size = 8,face="bold"))+scale_y_continuous(breaks=seq(0,8,2),limits=c(0,8),expand = c(0.03,0))+geom_boxplot(aes(x=x,y=y),data=data,color="red",size=0.1)

• 结果

  
  image.png