同一圖中不同季節的時間序列圖

Question

我想在同一圖中繪制一年中不同季節（分為冷或熱）的時間序列數據，並確定兩個時期。 我怎樣才能做到這一點？

可復制的數據如下：

library(gamair) 
data(chicago) 
chicago$date<-seq(from=as.Date("1987-01-01"), to=as.Date("2000-12-31"),length=5114)
data.cold <- subset(chicago, quarters(date) %in% c("Q1", "Q4"))
data.warm <- subset(chicago, quarters(date) %in% c("Q2", "Q3"))

以下這些代碼將為兩個期間創建兩個單獨的圖：

with(data.cold,plot(date,death,pch=".", ylab= expression("Mortality Count"), main = "Daily Mortality in cold season"))
with(data.warm ,plot(date,death,pch=".", ylab= expression("Mortality Count"), main = "Daily Mortality in warm season"))

下面的代碼創建了一個圖，但是沒有明確划分兩個時期。 我的願望是在一個圖中創建兩個時期的可識別圖。

with(chicago,plot(date,death,pch=".", ylab= expression("Mortality Count"), main = "Daily Mortality from  1987-2000"))

Answer 1

看一下?points ：

with(data.cold,plot(date,death,pch=".", ylab= expression("Mortality Count"), main = "Daily Mortality in cold season"))
with(data.warm ,points(date,death,pch=".", ylab= expression("Mortality Count"), main = "Daily Mortality in warm season", col="red"))
legend("topright", c("cold", "warm"), fill=c("black", "red"))

那對你有用嗎？