同一系列的兩條趨勢線

Question

你好，我有一個從 1950 年到 2017 年人均 GDP 的年度序列，我想在同一個散點圖上繪制不同時期的兩條趨勢線以顯示平衡增長路徑的變化，一條趨勢線將是 1950 年到 1977 年另一個是從 1995 年到 2016 年。這可能嗎？

 gdp_mex_ts<-ts(data$log_pib_mex, start = 1950, end =2017 ) trend<-lm(data$log_pib_mex~data$ï..Year) plot(gdp_mex_ts,type= "o") abline(trend)

我想在散點圖上添加兩條不同的趨勢線（1950 年到 1977 年和 1995 年到 2016 年）來比較它們。

這是數據的示例：

head(data)

 ï..Year log_pib_us log_pib_mex
1    1950   10.49388    9.699450
2    1951   10.52621    9.766078
3    1952   10.55047    9.802166
4    1953   10.58458    9.764262
5    1954   10.59741    9.858383
6    1955   10.64326    9.926464

Answer 1

我使用下一個代碼解決了它：

gdp_mex_ts<-ts(data$log_pib_mex, start = 1950, end =2017 )
df1<-subset(data, date <= 1977)
trend1<-lm(df1$log_pib_mex~df1$date)
df2<-subset(data, date>=1995)
trend2<-lm(df2$log_pib_mex~df2$date)

plot(gdp_mex_ts,type= "o", xaxt = "n")
axis(1, at = seq(1950, 2017, by = 5), las=2)
abline(trend1, col="red")
abline(trend2, col="blue")

在此處輸入圖片說明