我有一个有两列的R数据框架.var
列包含任何变量,而date
列包含日期的每日序列.我正在try 生成一个条形图,其中变量在Y轴上绘制,日期在X轴上绘制.
因为日期太多了,所以每个月的第一天加起来比较方便.我正在做以下工作:
# Example data
set.seed(1234)
df <- data.frame(
var = runif(n=365, min=1, max=20),
date = seq(from=as.Date('2021-01-01'), to=as.Date('2021-12-31'), by=1)
)
# Plot
barplot(df$var,
col="darkorange", border=NA, las=1, xaxt='n',
main="var: random variable")
dts <- seq(from=as.Date(df$date[1]), to=as.Date(df$date[nrow(df)]), by="months")
ind <- c()
for(d in 1:length(dts)){
m <- match(dts[d], df$date)
ind <- c(ind, m)
}
axis(1, at=ind, labels=df$date[ind])
box()
但是,X轴刻度明显向左移动.如果你看最后一个勾号(代表"2021-12-01"),它应该几乎出现在最后.
我怎么才能解决这个问题呢?