0

x 軸が日付で、y 軸が対応する株価であるグラフをプロットする必要があります。私のデータフレームの日付は数値です。たとえば、1980-01-01 は 3653 です。データをプロットすると、x 軸に年が表示されます。ただし、どの年をそこに置くべきかを指定したいと思います。独自の x 軸を設定するaxis(1, at=c("1980","1985","1990","1995","2000","2005","2010"))と、エラーが発生します。

データを変更する必要がありますか、またはこれを機能させるためのトリックは何ですか?

データは次のようになります。

    > data2
            date    close   change  color
        1   3653    4.668333    NA  NA
        2   3658    4.699753    3.142007e-02    green
        3   3665    4.710161    1.040780e-02    green
        4   3672    4.732772    2.261090e-02    green
        5   3679    4.745975    1.320353e-02    green
        6   3686    4.770261    2.428574e-02    green
        7   3693    4.748491    -2.176980e-02   red
...

これが私がこれまでに持っているものです。あなたが必要tseriesとし、zooパッケージ化します。

data <- get.hist.quote("^GSPC", start = "1980-01-01", compression="w")
data2 <- data.frame( date = as.Date(index(data)), close = data$Close)
data2$close <- log(data2$close)
plot(data2$date, data2$close, type="h", main="S&P 500", ylab="Log Close", xlab="Date",
     axes=F)
axis(2, at=c("5.0","5.5","6.0","6.5","7.0"))
box(which = "plot")
4

2 に答える 2

0

at=... 引数を使用してティックを 1:7 と 1:5 にしたい場所に配置し、引数 labels=... を使用して年を配置する必要があると思います。

例：

plot(1:7,c(1:5,5,5),axes=F,xlab="",ylab="")
axis(1,at=1:7, labels=c("1980","1985","1990","1995","2000","2005","2010"))
axis(2,at=1:5)

これが役立つことを願っています。

于 2013-10-09T12:51:19.553 に答える