我正在尝试在 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")
这确实行不通。我试图得到类似于下图的东西:
它完全按照您要求函数执行的操作。
三个月,三刻。
> 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
.
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)