Как разместить сетки сетки за рамкой в ​​pdf

Question

Я хотел бы поставить линии сетки позади моего boxplot и сохранить как pdf. Как это сделать? я могу генерировать boxplot штраф с линиями позади, но когда он экспортируется в виде PDF линии находятся в передней части участка

Некоторые данные

box.data <- data.frame(one = runif(6,-0.2,1),two = runif(6,-0.2,1),three = runif(6,-0.2,1),four = runif(6,-0.2,1),five = runif(6,-0.2,1),six = runif(6,-0.2,1),seven = runif(6,-0.2,1),eight = runif(6,-0.2,1), nine = runif(6,-0.2,1)) 

Boxplot код

pdf("BiasBoxPlot.pdf") 
boxplot(box.data, par(cex.axis=0.5),ylim=c(-0.2,1),yaxt = "n") 
axis(2, yaxp=c(-2, 1, 30),cex.axis=0.5) 
abline(h=seq(-0.2,1,0.05),col="grey80", lty="dotted",lwd = 0.4) 
abline(v=seq(1,9),col="grey80", lty="dotted",lwd = 0.4) 
boxplot(box.data,par(cex.axis=0.5),ylim=c(-0.2,1),add = TRUE) 
dev.off() 

который выглядит например

(хотя обратите внимание, что это отсечение экрана не pdf, поскольку я не был уверен, как это сделать что)

Это похоже на что-то прямолинейное, но как положить часть pdf на работу?

Answer 1

Добавьте цвет заливки второй boxplot вызова:

pdf("BiasBoxPlot.pdf") 
boxplot(box.data, par(cex.axis=0.5),ylim=c(-0.2,1),yaxt = "n") 
axis(2, yaxp=c(-2, 1, 30),cex.axis=0.5) 
abline(h=seq(-0.2,1,0.05),col="grey80", lty="dotted",lwd = 0.4) 
abline(v=seq(1,9),col="grey80", lty="dotted",lwd = 0.4) 
boxplot(box.data,par(cex.axis=0.5),ylim=c(-0.2,1),add = TRUE,col="white") 
dev.off()