построение графика с датой на оси x в R

Я пытаюсь построить график с датой по оси 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")

Это не совсем работает. Я пытаюсь получить что-то похожее на следующий график: