在图中标记轴

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。 我不会评论颜色的选择：）