鍦≧璇█涓紝鍙互浣跨敤ts()鍑芥暟鏉ュ垱寤烘椂闂村簭鍒椼€?code>ts()鍑芥暟鐨勮娉曞涓嬶細

ts(data, start, end, frequency)

鍏朵腑锛?code>data鏄竴涓悜閲忔垨鐭╅樀锛岃〃绀烘椂闂村簭鍒楃殑鏁版嵁锛?code>start琛ㄧず鏃堕棿搴忓垪鐨勮捣濮嬫椂闂达紱end琛ㄧず鏃堕棿搴忓垪鐨勭粨鏉熸椂闂达紱frequency琛ㄧず鏃堕棿搴忓垪鐨勯鐜囥€?/p>

浠ヤ笅鏄竴涓垱寤烘椂闂村簭鍒楃殑绀轰緥锛?/p>

# 鍒涘缓涓€涓寘鍚瘡鏈堥攢鍞鐨勬椂闂村簭鍒?/span>
sales <- c(120, 150, 180, 140, 160, 200, 180, 190, 210, 220, 230, 250)
start_date <- as.Date("2020-01-01")
end_date <- as.Date("2020-12-01")
frequency <- 12

# 浣跨敤ts()鍑芥暟鍒涘缓鏃堕棿搴忓垪
ts_sales <- ts(sales, start = c(year(start_date), month(start_date)), end = c(year(end_date), month(end_date)), frequency = frequency)

涓婅堪浠ｇ爜涓紝棣栧厛瀹氫箟浜嗕竴涓寘鍚瘡鏈堥攢鍞鐨勫悜閲?code>sales锛岀劧鍚庝娇鐢?code>as.Date()鍑芥暟灏嗚捣濮嬪拰缁撴潫鏃堕棿杞崲涓烘棩鏈熸牸寮忋€傛帴涓嬫潵锛屼娇鐢?code>ts()鍑芥暟鍒涘缓浜嗗悕涓?code>ts_sales鐨勬椂闂村簭鍒楋紝璧峰鏃堕棿涓?020骞?鏈堬紝缁撴潫鏃堕棿涓?020骞?2鏈堬紝棰戠巼涓?2锛屽嵆姣忓勾12涓湀銆?/p>