KANG1943 可以把标签转 60 度吗?
opar <- par(no.readonly = TRUE)
mydata <- data.frame("District"=c("A district", "B district", "C district", "D district", "E district", "F district", "G district"), "Value"=c(3,4,3,6,8,4,4))
par(mfrow=c(2,3))
for (i in 1:6) {
bp <- barplot(Value~District, data = mydata, axisnames = FALSE)
text(bp, opar$usr[3], labels = mydata$District, srt = 60, adj = c(1.1,1.1), xpd = TRUE, cex = 0.9)
}
par(opar)
你的 x 轴标签已经写了 “District”,所以 x 轴的刻线标记里其实不需要再写 “A district”,直接 “A" 就可以了;不然信息冗余。我比较喜欢这样:
District <- substr(c("A district", "B district", "C district", "D district", "E district", "F district", "G district"), 1, 1)
mydata <- data.frame(District, "Value"=c(3,4,3,6,8,4,4))
par(mfrow=c(2,3))
for (i in 1:6) {
barplot(Value ~ District, data = mydata)
}