如何在 R 中的每日時間序列中顯示實際日期？

Question

我創建了一個每日時間序列。 原始數據：

> head(platinum)
        Date Hong.Kong.8.30
1 2019-12-19            938
2 2019-12-18            929
3 2019-12-17            933
4 2019-12-16            931
5 2019-12-13            947
6 2019-12-12            943

我使用了zoo包，它仍然顯示日期：

> plat2=read.zoo(platinum)
> tail(plat2,30)
2019-11-08 2019-11-11 2019-11-12 2019-11-13 2019-11-14 2019-11-15 
       913        894        880        876        878        885 
2019-11-18 2019-11-19 2019-11-20 2019-11-21 2019-11-22 2019-11-25 
       896        899        915        923        917        897 

但是，在as.ts之后，日期存儲為整數：

> as.ts(plat2)
Time Series:
Start = 8217 
End = 18249 
Frequency = 1 

而且情節也是整數：時間序列圖

我希望 x 軸的間隔為十年。 任何幫助表示贊賞。

Answer 1

您真的需要將其轉換為ts進行繪圖嗎？ 從zoo轉換中繪制它似乎很好。

如果您需要特定的軸，則可以使用axis()函數，如下所示。

# make dummy data
df <- data.frame(date = seq(as.Date("1980-01-01"), 
                            as.Date("2019-01-01"), by = "month"),
                 val = rnorm(469))

# read w/ zoo
df_zoo <- read.zoo(df)

# default plot
plot(df_zoo, main = "zoo plot")

# custom axis plot
plot(df_zoo, xaxt = "n", main = "zoo plot w/ modified axis")

tks <- seq(min(df$date), max(df$date), by = "10 years")
axis(1, at = tks, labels = tks, cex.axis = .7)

情節：