Jak narysować obramowanie wokół siatki w R w ten sam sposób, w jaki obrysowuje się pole na plote na pudełku

Question

Próbuję uzyskać ten sam efekt izolacji działki z baronem w taki sam sposób, w jaki R izoluje pudełko z ramką domyślnie. Innymi słowy, chcę granica, która pojawia się w pierwszym wykresie poniżej, aby pojawić się w drugiej działki:

par(mfrow=c(2,1)) 

## boxplot on a formula: 
boxplot(count ~ spray, data = InsectSprays, col = "lightgray") 
# *add* notches (somewhat funny here): 
boxplot(count ~ spray, data = InsectSprays, 
     notch = TRUE, add = TRUE, col = "blue") 


require(grDevices) # for colours 
tN <- table(Ni <- stats::rpois(100, lambda=5)) 
r <- barplot(tN, col=rainbow(20)) 
#- type = "h" plotting *is* 'bar'plot 
lines(r, tN, type='h', col='red', lwd=2) 

Answer 1

Wystarczy dodać box() na końcu kodu barplot.

par(mfrow=c(2,1)) 
boxplot(count ~ spray, data = InsectSprays, col = "lightgray") 
boxplot(count ~ spray, data = InsectSprays, 
     notch = TRUE, add = TRUE, col = "blue") 
require(grDevices) # for colours 
tN <- table(Ni <- stats::rpois(100, lambda=5)) 
r <- barplot(tN, col=rainbow(20)) 
box() 
lines(r, tN, type='h', col='red', lwd=2)