R 语言 plot图的时候 出现了无数张小图 我想要一张连续趋势的plot

code如下

# read data
cpi <- read.csv(file = 'Desktop/CPI NY monthly.csv',header = TRUE,sep=',',row.names=1)
head(cpi)
plot(cpi)

output：
           Jan   Feb   Mar   Apr   May   Jun   Jul   Aug   Sep   Oct   Nov   Dec
1989 367.2 368.8 372.6 374.3 376.4 377.4 377.5 378.4 382.1 383.8 385.0 385.4
1990 390.5 391.1 395.0 396.9 396.5 396.4 400.0 404.7 407.0 409.2 409.2 409.5
1991 413.3 415.0 414.5 415.3 416.2 418.0 419.7 420.3 421.6 421.1 423.8 423.7
1992 425.9 427.9 431.2 431.2 430.3 432.2 433.4 435.8 437.8 439.7 439.9 439.2
1993 442.2 444.0 445.4 445.3 444.6 445.8 446.1 448.9 448.9 449.6 449.3 449.8
1994 450.9 455.1 456.3 455.8 454.7 456.3 457.3 460.0 459.8 461.2 460.7 459.3


plot之后出现了每个月之间的图，类似于matrix，密集在一张plot里，我需要的是从1989年一月开始一直往后读数据，跑出来一张线性趋势图，求大神解答。

用gather/spread，将宽列表压缩成长列表。

temp = cpi[,-1]              ## 把第一列年份去掉
plot(as.vector(t(temp)))