我正在使用qplot,但是在向y轴添加标签时遇到了困难。我正在使用+ ylab(“我的y标签”)到我的qplot函数的末尾。它不会导致错误。生成绘图,但无法看到y标签。
这是玩具数据:
x=c(1,2,3,4,5)
y=c(7,2,6,3,9)
xstart=c(5,2,7,3,6)
ystart=c(1,4,5,8,2)
xend=c(4,7,2,7,3)
yend=c(4,6,8,3,8)
diagx=c(1,-1,1,-1,1)
diagy=c(-1,1,-1,1,-1)
myLab=as.factor(c("text1","text2","text3","text4","text5"))
df=data.frame(x,y,xstart,ystart,xend,yend,diagx,diagy,myLab)
我的代码生成情节(注意最后一行):
myPlot = ggplot2::qplot(data=df, x=x, y=y, label=myLab, geom="text", vjust=-.25, hjust=.5) +
ggplot2::geom_segment(ggplot2::aes(x=xstart, y=ystart, xend=xend, yend=yend),inherit.aes=F) +
# Draw the underline of the variety
ggplot2::geom_segment(ggplot2::aes(x=xend, y=yend, xend=diagx, yend=diagy),inherit.aes=F) +
#ggplot2::facet_wrap(~variety, scales="free", ncol=2) +
ggplot2::scale_size_continuous(range=c(3,3),guide="none") +
ggplot2::scale_colour_identity() +
ggplot2::theme_bw() +
ggplot2::theme(axis.title=ggplot2::element_blank(),
axis.text=ggplot2::element_blank(),
axis.ticks=ggplot2::element_blank()) +
ggplot2::scale_x_continuous(expand = c(.1, 1.075)) +
ggplot2::scale_y_continuous(expand = c(.1, 1.075)) +
ggplot2::ylab("My y label")
如果您有任何建议,请告诉我!感谢。