У меня нет данных, поэтому я сделал некоторые из них:
df <- data.frame(x=rnorm(100),y=rnorm(100),z=rep(letters[1:4],each=25))
ggplot(df,aes(x,y))+geom_point()+theme_bw()+facet_wrap(~z)
Чтобы добавить вертикальную линию в x = 1
мы можем использовать geom_vline()
с фреймворком данных, который имеет ту же фасетную переменную (в моем случае z='b'
, но ваш будет levels='major'
):
ggplot(df,aes(x,y))+geom_point()+theme_bw()+facet_wrap(~z)+
geom_vline(data=data.frame(xint=1,z="b"),aes(xintercept=xint),linetype="dotted")