如何 r 中的 plot 日期（日和月）

Question

我有以下數據（我的部分數據）：

 Date         Cases
   <date>      <dbl>
 1 2020-03-02     3
 2 2020-03-03    12
 3 2020-03-04     2
 4 2020-03-05     4
 5 2020-03-06    19
 6 2020-03-07    19
 7 2020-03-08    21
 8 2020-03-09    49
 9 2020-03-10    36
10 2020-03-11    34

在 x 軸僅顯示日期和月份的情況下，我想 plot 日期。

我試過這個：

plot(Cases~as.Date(Date),type="l",
     xlab="Date",ylab="Cases")

但它只顯示沒有日期的月份。

Answer 1

as.Date(Date)給出了一個 object 和 class "Date" ，因此，調用了一個不同的plot.*方法。 您可以使用xaxt="n"省略 x-axis 並使用axis和mtext重建它。 axTicks function 有助於獲得漂亮的刻度線。

with(dat, plot(Cases ~ as.Date(Date), type="l", xlab="Date", xaxt="n", ylab="Cases"))
at. <- axTicks(1)
axis(1, at=at., labels=F)
mtext(strftime(dat$Date, format="%d.%m.")[match(as.numeric(as.Date(dat$Date)), 
                                                at.)], 1, 1, at=at.)