Come disegnare un bordo intorno a un barplot in R nello stesso modo in cui viene disegnato un bordo per un grafico a scatole

Question

Sto cercando di ottenere lo stesso effetto di isolare la trama di un barplot nello stesso modo in R isola un grafico a scatole con un bordo per impostazione predefinita. In altre parole, voglio che la frontiera che appare nel primo grafico qui sotto per apparire nella seconda trama:

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

Basta aggiungere box() alla fine del codice 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)