箱线图以及小提琴图
一、箱线图ToothGrowth
boxplot(len ~ dose, data = ToothGrowth)
boxplot(len ~ supp, data = ToothGrowth)
boxplot(len ~ dose:supp, data = ToothGrowth)
# boxplot(len ~ dose+supp, data = ToothGrowth)
boxplot(len ~ supp+dose, data = ToothGrowth)
library(RColorBrewer)
brewer.pal(n = 3,name = 'Set2')
boxplot(len ~ supp+dose, data = ToothGrowth,
col = c("#66C2A5","#FC8D62"))
boxplot(len ~ supp+dose, data = ToothGrowth,
col = c("#66C2A5","#FC8D62"),notch=T)#画出凹口，可比较上下数据多少
boxplot(len ~ supp+dose, data = ToothGrowth,
col = c("#66C2A5","#FC8D62"),horizontal = T)
t.test(ToothGrowth$len,
ToothGrowth$len)
带凹口的箱线图
二、小提琴图
library(vioplot)
vioplot(len ~ supp+dose, data = ToothGrowth,
col = c("#66C2A5","#FC8D62"))
vioplot(len ~ supp+dose, data = ToothGrowth,
col = c("#66C2A5","#FC8D62"),
main = 'OJ vs VC',
xlab = 'Supp and Dose',
ylab = 'Tooth Length')
example(vioplot)
par(mfrow=c(1,1))#恢复案例后的绘图区域布局
页:
[1]