在用lattice包画收益率时间序列图，发现图太窄，不好看，没有找到把图画宽一点的参数，高手指点一下
x <- data.frame(time = mydata[2:nrow(mydata),1],cd4 = return.close)
xyplot(cd4 ~ time, data = x,
       aspect = "xy", type = "l",
       xlab = "Time", ylab = "close price",main="i can change time axis",
       scales = list(x  = list(rot = 45, at = seq(1, nrow(mydata), 50)),
                   y  = list(alternating = 1)
                      )
        )
做出的图形如上图，宽度太窄，不好看，通过什么参数可以显示的宽一些？
比如时间序列画图就宽度合适