Wie man Gitternetzlinien hinter Boxplot in ein pdf steckt

Question

Ich möchte Gitternetzlinien hinter meinem Boxplot setzen und als pdf speichern. Wie macht man das? kann ich die boxplot gut mit Linien erzeugen hinten, aber wenn es als pdf exportiert die Linien

vor dem Grundstück sind

Einige Daten

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 Code

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

die aussieht wie dieser

(obwohl beachten Sie, dass dies ein Bildschirm Clipping ist kein PDF, da ich nicht sicher war, wie es geht das)

Dies scheint wie etwas Einfaches, aber wie man den pdf Teil zum Arbeiten bringt?

Answer 1

eine Füllfarbe auf den zweiten boxplot Anruf hinzufügen:

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