在coplot()函数中添加boxplots

时间:2016-01-29 23:12:31

标签: r

从“数据集”包中考虑数据集“ToothGrow”:三个变量的60行数据集:“Tooth length”,“Supplement lenght”,“Dose in milligrags per daily”。

                "varying vec2 v_texCoord;                         "
                "uniform sampler2d s_texture;                     "
                "vec4 v_bgr;                                      "
                "void main()                                      "
                "{                                                "
                "    v_bgr = texture2D( s_texture, v_texCoord );  "
                "  gl_FragColor = v_bgr.zyxw;                     "
                "}                                                ";

我使用函数str(ToothGrowth) ## 'data.frame': 60 obs. of 3 variables: ## $ len : num 4.2 11.5 7.3 5.8 6.4 10 11.2 11.2 5.2 7 ... ## $ supp: Factor w/ 2 levels "OJ","VC": 2 2 2 2 2 2 2 2 2 2 ... ## $ dose: num 0.5 0.5 0.5 0.5 0.5 0.5 0.5 0.5 0.5 0.5 ... 来查看变量coplot()dose的每个因子的变量len的影响。

supp

enter image description here

如何使用with(ToothGrowth, coplot(len ~ dose | supp)) 的箱线图创建相同的图,而不是为每个案例设置一个点?

最好使用R基础图形中的len ~ dose函数。

1 个答案:

答案 0 :(得分:1)

试试这个:

library(lattice)
data("ToothGrowth")
ToothGrowth[,3]<-factor(ToothGrowth[,3])
#before
xyplot(len ~ dose | supp, data=ToothGrowth, layout=c(2,1))
#after
bwplot(len ~ dose | supp, data=ToothGrowth, layout=c(2,1))

结果如下:

enter image description here

修改

如果您只想使用R基础包,可以使用以下内容。

coplot(len ~ dose | supp,  data=ToothGrowth, xlim = c(0, 4),
   panel = function(x, y, ...){boxplot(y ~ x, add=TRUE)})

哪个收益率:

enter image description here