在coplot（）函数中添加boxplots

Question

从“数据集”包中考虑数据集“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

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

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

Answer 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))

结果如下：

修改

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

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

哪个收益率：