虽然原PO已经爬文解决问题了,
但是因为原PO的x-座标表示法长度比较长,
这边还是提供一点小建议,
可以用 asp 参数来改座标的表示方向(才不会重叠),
并且可以用 mai 参数来调整图跟边界的距离!
以下为参考的范例程式码:
df <- list()
df$x <- rnorm(1000)
my.at <- c(0:4*200+1) # location(index) where you draw x-label,
# must have same length as date.
date <- c("2012-10-02 19:39:42 CST", "2012-10-02 22:26:22 CST",
"2012-10-03 18:51:35 CST", "2012-10-03 21:38:15 CST",
"2012-10-04 14:15:35 CST" )
op <- par(mfrow=c(1,1), mai = par("mai")+c(1.5,0,0,0))
plot(df$x,col="olivedrab",type='l',lty=1,xaxt="n", xlab="", ylab="" )
axis(1, at=my.at, labels=date, las=2, asp=2 )
par(op)
?plot.default
?par
※ 引述《peiwinds (Macchiato Caramel)》之铭言：
: [问题类型]:
: 程式咨询(我想用R 做某件事情，但是我不知道要怎么用R 写出来)
:
: [软件熟悉度]:
: 入门(写过其他程式，只是对语法不熟悉)
: [问题叙述]:
: http://ppt.cc/bWoC
: 如图，我想将X轴的 0e+00这些红色圈起来的数字
: 置换成我想要的日期
: 我现在已经创造的一个list date里面放了这些日期
: date
: [1] "2012-10-02 19:39:42 CST" "2012-10-02 22:26:22 CST" "2012-10-03 18:51:35
: CST"
: [4] "2012-10-03 21:38:15 CST" "2012-10-04 14:15:35 CST"
: [程式范例]:
: plot(df$x ,col="olivedrab",type="l",lwd=1)
: 之后我开始使用 axis的功能可是一直失败 Orz
: 请帮帮我吧 T_T
: 谢谢