怎么能让一个plot的x轴刻度成一定的角度？

januslian

因为x轴的刻度日期，格式“20050607”这样的，所以，需要让其与坐标轴成一定的角度，才能放的下。请问用哪个参数能够控制刻度的角度？

bjt

?par

crt

srt

januslian

[quote]引用第1楼bjt于2008-07-29 14:03发表的“”:

?par

crt

srt[/quote]

不太懂，比如：

<br />
library(zoo)<br />
op <- par()<br />
par(crt = 45)<br />
conn <- url("http://ichart.finance.yahoo.com/table.csv?s=000002.SZ&a=00&b=1&c=2008&d=06&e=29&f=2008&g=d&ignore=.csv", open = "r")<br />
price <- read.csv(conn)<br />
close(conn)<br />
<br />
p.zoo <- zoo(price$Close, order.by = price$Date)<br />
plot(p.zoo)<br />
par(op)<br />

这样做出来的plot，其x轴的日期还是水平排列的，就像 2008-01-01 2008-02-18

而不是与坐标轴呈一定角度

januslian

<br />
library(zoo)<br />
conn <- url("http://ichart.finance.yahoo.com/table.csv?s=000002.SZ&a=00&b=1&c=2008&d=06&e=29&f=2008&g=d&ignore=.csv", open = "r") <br />
data <- read.csv(conn)<br />
close(conn)<br />
p <- data[,c("Date", "Close")]<br />
p$Date <- as.Date(as.character(p$Date))<br />
p.zoo <- zoo(p$Close, order.by = p$Date)<br />
plot(p.zoo, xaxt = "n")<br />
label <- seq(as.Date("2008-01-01"), as.Date("2008-07-25"), by="15 days")<br />
axis(1, at = label, labels = F)<br />
text(label, par("usr")[3] - 0.5,labels=as.character(format(label, "%Y%m%d")), srt = 45, adj = 1, xpd = T)<br />
<br />