绘图导航
  • 基础绘图
  • 高级绘图
  • 微生物
  • 转录组

R语言|绘制蜜蜂图

 二维码 1
作者:图图来源:图图云平台

Beeswarm 蜜蜂图

beeswarm包画蜜蜂图


install.packages("beeswarm")

library(beeswarm)

#beeswarm包的数据集

data(breast)

head(breast)

beeswarm(time_survival ~ ER, data=breast,pch=16, pwcol=1+as.numeric(event_survival),xlab="",ylab="Follow-up time (months)",labels = c("ER neg", "ER pos"))

legend("topright",legend=c("yes","no"),title="Censored",pch=16,col=1:2)

dev.off()



Ggbeeswarm包绘制蜜蜂图


install.packages("ggbeeswarm")

library(ggplot2)

library(ggbeeswarm)

library(beeswarm) #调用数据集

data(breast)

head(breast)

ggplot(breast,aes(x=ER,y=time_survival))+

   geom_beeswarm(aes(color=factor(event_survival)),cex=2, priority = "random")+#cex用于设置点的密集程度;Priority methods"descending", "density", "random" and "none"

   theme_bw()+

   theme(

    legend.position = c("top"),

    panel.grid = element_blank()

   

   )+

   scale_color_manual(values=c("skyblue","orange"),name="Censored",labels=c("Yes","No"))+

   scale_x_discrete(labels=c("ER neg","ER pos"))+

   xlab("")+

   ylab("Follow-up time (months)")




“作图帮”微信公众号同步更新

作图帮二维码.jpg


可添加下方微信进入【生信作图交流群】,群内免费分享绘图代码与示例数据

公司二维码.png


分享到:
推荐使用谷歌浏览器点击下载