Làm thế nào để vẽ một đường viền xung quanh một thanh ngang trong R giống như cách một đường viền được vẽ cho một ô vuông

Question

Tôi đang cố gắng để có được hiệu ứng tương tự như cô lập cốt truyện của một thanh ngang giống như cách R cô lập một ô vuông với một đường viền theo mặc định. Nói cách khác, tôi muốn biên giới xuất hiện trong cốt truyện đầu tiên dưới đây xuất hiện trong cốt truyện thứ hai:

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

Bạn chỉ cần thêm box() vào cuối của mã barplot của bạn.

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)