superb包，给图形添加统计信息---误差线

采用ggplot2绘制误差线需要对数据转换求得mean和sd（或se等），可以通过superb包superbPlot函数一步到位法，下面以ToothGrowth数据集进行演示，ToothGrowth数据为维生素C对60只豚鼠牙齿生长影响的实验结果，其中supp指给药方法，dose指给药剂量，len指牙齿生长的长度。

superbPlot(ToothGrowth,

          BSFactors = c("dose", "supp"),

          variables = "len",

          plotStyle = "raincloud")

superbPlot(ToothGrowth,

          BSFactors = c("dose", "supp"),

          variables = "len")

superbPlot(ToothGrowth,

          BSFactors = c("dose", "supp"),

          variables = "len",

          plotStyle = "line")

最后设置主题，可以直接使用ggplot的主题，如下：

superbPlot(ToothGrowth, BSFactors = c("dose", "supp"),   variables = "len", plotStyle = "raincloud")  +theme_classic()+  theme(axis.text =element_text(colour = "black"), title = element_text(colour = "black",face = "bold"), text = element_text(family = "serif"), legend.title  = element_blank(),legend.text = element_text(colour = "black",face = "bold"), legend.position = "bottom" ,legend.box = "horizontal")

本文仅供学习交流所用,均来源于网络及日常用到内容摘录或记录。部分资料来源网络,可能疏忽未注明来源,如果原作者有疑义或者认为侵犯了版权,请尽快联系本人,将尽快删除，部分资料和理解来自个人整理,请谨慎使用,本人不保证所有代码在各个平台上的通用性,也不保证兼容性.如果您对本文有什么意见,欢迎与我联系

1. superb帮助文件