在R中的x轴上绘制带有日期的图形

我尝试在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")

r=runif（100）
d它完全执行您要求函数执行的操作

三个月，三滴答

> 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)

r=runif（100）
这很酷。。我对函数的属性感到困惑。谢谢不过有一个小问题。它隐藏了部分年份标签；我如何增加它下面的边距？还记得
par（mfrow=c（2,2））
mar
的工作方式相同。请参阅
？par
。收到了，谢谢。当前设置可从par（）获得。