给直方图和线图添加误差棒 准备数据
这里使用ToothGrowth 数据集。它描述了维他命C对Guinea猪牙齿的生长影响。包含了三种不同的剂量(Vitamin C (0.5, 1, and 2 mg))和相应的两种不同使用方法( [orange juice (OJ) or ascorbic acid (VC)])。
library(ggplot2) df <- ToothGrowth df$dose <- as.factor(df$dose) head(df) ## len supp dose ## 1 4.2 VC 0.5 ## 2 11.5 VC 0.5 ## 3 7.3 VC 0.5 ## 4 5.8 VC 0.5 ## 5 6.4 VC 0.5 ## 6 10.0 VC 0.5 len :牙齿长度 dose : 剂量 (0.5, 1, 2) 单位是毫克 supp : 支持类型 (VC or OJ)
在下面的例子中,我们将绘制每组中牙齿长度的均值。标准差用来绘制图形中的误差棒。
首先,下面的帮助函数会用来计算每组中兴趣变量的均值和标准差:
#+++++++++++++++++++++++++ # Function to calculate the mean and the standard deviation # for each group #++++++++++++++++&