在R中用x轴绘制日期图

Question

我试图在x轴上做一个带有日期的图,间隔为1个月,为了清晰起见,旋转了日期值.

r=runif(100)
d <- as.Date("2001/1/1") + 70*sort(r)
plot(d,r,type="l",xaxt="n")
axis.Date(1, at=seq(d[1],d[100],"month"), format="%m/%d/%Y")

这不起作用.我想尝试类似下图:

Answer 1

它完全符合您要求的功能.

三个月,三个蜱虫.

> d[1]
[1] "2001-01-01"
> d[100]
[1] "2001-03-11"

试试这个.

r=runif(100)
d <- as.Date("2001/1/1") + 70*sort(r)
plot(d,r,type="l",xaxt="n")
axis.Date(1, at = seq(d[1], d[100], length.out=25),
        labels = seq(d[1], d[100], length.out=25),
        format= "%m/%d/%Y", las = 2)

它应该很容易调整到周/月/年.您可以自己使用mar参数?par.