DATE轴下方的中心刻度线

Question

在R中，我创建了每月数据点的直方图。我希望刻度线位于条形图下方，并保留月/年标签。非常感谢任何帮助！

我的代码是：

hist(d$date, "months", freq=TRUE, main="Number of locations by month",  ylim=c(0,8000), xlab="Month", format = "%b %Y", xaxt="n") axis(side=1,at=d$mids, labels=???????????)

Answer 1

听起来你期望hist每月自动突破。情况不一定如此。 hist尝试合理地估算基础密度函数。它不一定用于可视化计数。如果您愿意，可以显式设置breaks=参数。虽然这对我来说听起来更像barplot。这是我如何生成这样的情节

#sample data
d<-data.frame(date=sample(seq.Date(as.Date("2001-01-01"), 
    as.Date("2001-12-31"), length.out=20), 30, replace=T))

#summarize data by months
mybreaks=seq.Date(as.Date("2001-01-01"), as.Date("2002-01-01"), by="month")
tt<-table(cut(d$date, breaks=mybreaks))
names(tt)<-strftime(mybreaks[-length(mybreaks)], format="%b %Y")

#plot results
barplot(tt)