绘图中的标注轴

Question

如何在x轴下方标记每个小节，例如，如果每个小节代表一个月，如何在每个小节下面获得第一个月，第二个月，第三个月等。

conditiongood <- c(50,65,60,65,59) 
conditionpoor <- c(61,46,51,46,52) 
condition <- rbind(conditiongood,conditionpoor) 

layout(matrix(1:1,1,1)) 

barplot(as.matrix(condition), 
     col=c("darkblue","red"), 
     xlab="month", 
     ylab="subject count", 
     main="Monthly condition", 
     ylim=c(0, 140)) 

legend(5.25,140.1, 
     c("good","poor"), 
     fill=c("darkblue","red"), 
     title="condition") 

Answer 1

你的意思是这样的吗？ 这是根据this post。 有可能更复杂的方法来做到这一点。

# Barplot 
bp<-barplot(as.matrix(condition), 
     col=c("darkblue","red"), 
     xlab="month", 
     ylab="subject count", 
     main="Monthly condition", 
     ylim=c(0, 140)) 

# x-axis labels 
axis(1, at = bp, 
    labels=c("month 1", "month 2", "month 3", "month 4", "month 5"), 
    cex.axis=1.2) 

# Add legend 
legend(5.25,140.1, 
     c("good","poor"), 
     fill=c("darkblue","red"), 
     title="condition") 

哪位能给：

你可能想要做的事对你图例的位置，我不认为指定xlab是必要的，如果你要分别标记每个小节。 我不会评论颜色的选择:)