除了xlab3 x 3 条形图面板之外，我还想包含刻度线。我为单个图形尝试了这个解决方案，但不知何故我无法复制它。这个想法是用从 -3 到 +3 的 d 标记每个条形，并增加一个单位。每个图中的第一个条形表示 -3 的值。我试图用下面的模拟数据来证明我的问题。有任何想法吗？
# Data generation
# Populating a matrix
matrix(rnorm(63, 1:9), nrow=7, byrow=TRUE)
# Labelling the matrix
colnames(mat.s) <- c("Hs", "Sex", "Es", "Bo", "R", "W", "S", "Pri", "Abo")
# Tick mark indicator
d <- seq(-3,3,1)
# Plotting estimates
par(mfrow=c(3,3), mar = c(4,3,3,1))
for(i in 1:9) {
# Bar plot
barplot(mat.s[,i],
# X-label
xlab = colnames(mat.s)[i])
}