在图中标注轴

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

你的意思是这样的吗？ 这是基于这篇文章 。 可能有更复杂的方法可以做到这一点。

# 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 。 我不会评论颜色的选择:)