R時間序列plot.ts（）

Question

我正在嘗試閱讀時間序列並執行plot.ts（），但是結果卻很奇怪。 也許我做錯了。 我嘗試包括開始和結束日期，但輸出仍然錯誤。 任何幫助表示贊賞。 謝謝。

這是代碼和輸出：

sales1 <- read.csv("TimeS.csv",header=TRUE)
sales1

salesT <- ts(sales1)
salesT
plot.ts(salesT)

output:
> sales1 <- read.csv("TimeS.csv",header=TRUE)
> sales1

  year  q1  q2  q3  q4
1 1991 4.8 4.1 6.0 6.5
2 1992 5.8 5.2 6.8 7.4
3 1993 6.0 5.6 7.5 7.8
4 1994 6.3 5.9 8.0 8.4

> salesT <- ts(sales1)
> salesT

Time Series:
Start = 1 
End = 4 
Frequency = 1 
  year  q1  q2  q3  q4
1 1991 4.8 4.1 6.0 6.5
2 1992 5.8 5.2 6.8 7.4
3 1993 6.0 5.6 7.5 7.8
4 1994 6.3 5.9 8.0 8.4

> plot.ts(salesT)

 It looks like I can't paste the plot.  instead of 1 graph it has 5 separate    
 plots stacked onto each other.

Answer 1

嘗試這個

salesT<-ts(unlist(t(sales1[,-1])),start=c(1991,1),freq=4)

Answer 2

這條線使時間成為不可能的系列之一：

> salesT <- ts(sales1)

我們需要對數據幀進行轉置，以使其跨行而不是向下讀取，並且我們使用c將所得矩陣轉換為形成序列數據部分的向量。 （續圖）

# create sales1
Lines <- "year  q1  q2  q3  q4
1 1991 4.8 4.1 6.0 6.5
2 1992 5.8 5.2 6.8 7.4
3 1993 6.0 5.6 7.5 7.8
4 1994 6.3 5.9 8.0 8.4"
sales1 <- read.table(text = Lines, header = TRUE)

# convert to ts and plot
salesT <- ts(c(t(sales1[-1])), start = sales1[1, 1], freq = 4)
plot(salesT)

關於注釋，如果數據看起來像這樣，那就更直接了，下面的線將產生上面的圖。 我們假設數據已排序並從一年的開頭開始，所以我們不需要使用第二列：

Lines2 <- "year qtr sales
1  1991  q1   4.8
2  1991  q2   4.1
3  1991  q3   6.0
4  1991  q4   6.5
5  1992  q1   5.8
6  1992  q2   5.2
7  1992  q3   6.8
8  1992  q4   7.4
9  1993  q1   6.0
10 1993  q2   5.6
11 1993  q3   7.5
12 1993  q4   7.8
13 1994  q1   6.3
14 1994  q2   5.9
15 1994  q3   8.0
16 1994  q4   8.4"
sales2 <- read.table(text = Lines2, header = TRUE)

salesT2 <- ts(sales2$sales, start = sales2$year[1], freq = 4)
plot(salesT2)

更新固定。 添加了對評論的回復。

Answer 3

在這里，我認為您需要正確設置其格式，請嘗試以下操作：

salesT <- ts(sales1)

ts.plot(salesT, frequency = 4, start = c(1991, 1), end = c(1994, 4)))

Answer 4

原始數據的格式很難直接用於時間序列。 您可以嘗試以下方法：

sales1 <- t(sales1[,-1])
sales1 <- as.vector(sales1)
my_ts <- ts(sales1, frequency = 4, start=c(1991,1))
plot.ts(my_ts)