h <- read.table(file = "C:/Users/GGBond/Desktop/ZS.csv",sep = ",",header = T) # 转化为时间序列数据 GDP=ts(h$GDP,start = 1978,frequency = 1) # 绘图 plot(GDP)