時間序列格式：無法復制時間序列格式

Question

我正在嘗試將數據轉換為特定的時間序列格式。 我嘗試制作數據的格式類似於以下時間序列格式；

library(fpp)
data(ausbeer)

> str(ausbeer)
 Time-Series [1:211] from 1956 to 2008: 284 213 227 308 262 228 236 320 272 233 ...

但是我的數據目前如下；

> str(wide_DF)
 Time-Series [1:5, 1:53] from 1 to 5: 2008 2009 2010 2011 2012 ...
 - attr(*, "dimnames")=List of 2
  ..$ : NULL
  ..$ : chr [1:53] "year" "1" "2" "3" ...

不管我在嘗試什么，我似乎都無法將其轉換為與ausbeer數據相同的格式。

向正確方向的任何推動將不勝感激。

數據：

wide_DF <- structure(c(2008, 2009, 2010, 2011, 2012, 0.149697356812732, 
0.506609550726262, 0.483701772054131, 0.340553948856928, 0.333626779091713, 
0.0244998111324886, 0.112120844942705, 0.0900944558373256, 0, 
0.0415224265012151, 0.0550537737139359, 0.17295508953821, 0.163929433720004, 
0.0576641678554561, 0.0906564289945531, 0.0274508134712055, 0.16192922040378, 
0.142555512496348, 0.0625454708565096, 0.0713307780915137, 0.213984247872558, 
0.388163795230051, 0.164139722545731, 0.0770529539010844, 0.0938540183343052, 
0.0783422018092716, 0.227206496783438, 0.35237013136599, 0.258504104665886, 
0.321155525044278, 0.0310253280164216, 0.145802804370329, 0.235904612124217, 
0.099505662356445, 0.184479613065924, 0.0541816334844162, 0.171606159981382, 
0.115107342701831, 0.0741165588765761, 0.108561719279517, 0.0806492605345567, 
0.154086848847159, 0.128553880389704, 0.0619227096142703, 0.102441840801919, 
0.0877855302949306, 0.210374588670803, 0.168914894757668, 0.0892981276862553, 
0.107796585571731, 0.152766825529036, 0.197064573460434, 0.157147609673816, 
0.0794331221751312, 0.130178451495829, NA, 0.288013610146669, 
0.218033903861127, 0.144165085504355, 0.265694549788369, 0.168423392180753, 
0.220217969236187, 0.192778260148724, 0.0616202640553713, 0.208895233807108, 
0.172908899350928, 0.273558409751774, NA, 0.131826476698887, 
0.214943212753592, 0.185482743591095, NA, 0.264010141661686, 
0.137209722798776, NA, 0.213353668598008, 0.288506341574192, 
0.265934476984103, 0.166437178815794, 0.213012834405297, 0.229097493059307, 
0.326273737259306, 0.209431740094857, NA, 0.240648159088921, 
0.261158363124192, 0.317036580243605, 0.244681209115455, 0.166687664239444, 
0.240465787771525, 0.282936314890266, 0.376241375996475, 0.288711990429523, 
0.218930682309907, 0.294307615813644, 0.340039521860067, 0.381665974567176, 
0.289509990005749, 0.222712288785976, 0.302326040229749, 0.592897079173477, 
0.707453475415865, 0.315092875222347, 0.238746934161925, 0.360467454111782, 
0.437728811188524, 0.485169961326965, 0.686681695697921, 0.513927986995597, 
0.657805801598166, 0.413066850628898, 0.420451063363391, 0.452317417206126, 
0.392680063685442, 0.467494633248041, 0.490885152462683, 0.449702773878119, 
0.374537214449401, 0.314372316775567, 0.352543088557757, 0.456852949424961, 
0.502821656395841, 0.473850571102317, 0.37271347773425, 0.468025614416299, 
0.492964518353547, 0.491841956261615, 0.451832204837682, 0.330054166675406, 
0.452103599554613, 0.972882256833953, 1, 0.836981605987354, 0.735454399633936, 
0.625060089794185, 0.420276672512582, 0.44763479957363, 0.51920428542675, 
0.484249008420553, 0.828415542650317, 0.439876590158875, 0.458798662510525, 
0.446969106246101, 0.329267937698866, 0.402265340895058, 0.443357095278529, 
0.48161107578401, 0.421502554574427, 0.35492302612805, 0.389391661815002, 
0.480802216652516, 0.496614239968388, 0.41709701215027, 0.355395255525041, 
0.427983230181801, 0.426624787626307, 0.47619764751241, 0.390323036410375, 
0.346946500338582, 0.444962482661289, 0.398178487457366, 0.460418831412368, 
0.365705653465875, 0.314414354295281, 0.404995279601097, 0.395484743345358, 
0.447895106385658, 0.333904920716383, 0.315905256117267, 0.38580728350725, 
0.61293865090702, 0.392285202440178, 0.300121453991199, 0.318457847197856, 
0.382196506098525, 0.42777529076777, 0.655937896884758, 0.579486246422688, 
0.512463359506227, 0.601431192394729, 0.283409977946298, 0.430264772601089, 
0.321055545570556, 0.311027552565597, 0.419878449584049, 0.295947790026711, 
0.323869738229137, 0.215519275318642, 0.192393768801782, 0.326484958316528, 
0.317550712975473, 0.303764772399812, 0.215565915142833, 0.177813119709567, 
0.288920671391334, 0.299640010568774, 0.258602815268962, 0.208650826721134, 
0.192887375961921, 0.273866371013686, 0.300719638221296, 0.260930408982457, 
0.214130384575884, 0.20094859121612, 0.262324215127644, 0.291610161608615, 
0.240764266638331, 0.232400949526744, 0.190638711181672, 0.194923630854379, 
0.247095733415861, 0.250696875411684, 0.17072512824086, 0.142654512656176, 
0.221234530015598, 0.336036187889497, 0.337172813493932, 0.241964382857466, 
0.188030459289294, 0.247565234387846, 0.228521023231508, 0.227452403443811, 
0.156667771761189, 0.131392002677444, 0.229392396017928, 0.213955172137217, 
0.229145352317625, 0.145988572682793, 0.1354966579701, 0.164468590746803, 
0.273338090020996, 0.28521986301974, 0.199009246024986, 0.178427989941778, 
0.218632123403024, 0.485758317106326, 0.478231444703654, 0.371723057102618, 
0.358665186970456, 0.437144925882923, 0.143782632825279, 0.132760650342865, 
0.0511910889931185, 0.0421970278185858, 0.0830346125807046, 0.169335703112876, 
0.127452787871597, 0.0947298145120868, 0.0660661513870076, 0.136073219608577, 
0.328666970899003, 0.296331593970631, 0.154669507656273, 0.12819972894051, 
0.134629124753297, 0.491065758190125, 0.47654036029283, 0.357442986752192, 
NA, 0.388556693139287), .Dim = c(5L, 53L), .Dimnames = list(NULL, 
    c("year", "1", "2", "3", "4", "5", "6", "7", "8", "9", "10", 
    "11", "12", "13", "14", "15", "16", "17", "18", "19", "20", 
    "21", "22", "23", "24", "25", "26", "27", "28", "29", "30", 
    "31", "32", "33", "34", "35", "36", "37", "38", "39", "40", 
    "41", "42", "43", "44", "45", "46", "47", "48", "49", "50", 
    "51", "52")), .Tsp = c(1, 5, 1), class = c("mts", "ts", "matrix"
))

編輯：

audbeer形狀：

> head(ausbeer, 32)
     Qtr1 Qtr2 Qtr3 Qtr4
1956  284  213  227  308
1957  262  228  236  320
1958  272  233  237  313
1959  261  227  250  314
1960  286  227  260  311
1961  295  233  257  339
1962  279  250  270  346
1963  294  255  278  363

Answer 1

我想我知道您現在要做什么。 讓我們換位，並修復列名。

wide_df2 <- as.data.frame(t(as.data.frame(wide_DF))) 
# we need as.data.frame() twice here to strip the ts class, and then add the data.frame class back after t()

將第一行設置為列名：

names(wide_df2) <- wide_df2[1,]

從數據中刪除列名稱：

wide_df2 <- wide_df2[-1, ]

並轉換回ts ：

wide_df2 <- ts(wide_df2)


         2008      2009       2010       2011       2012
1  0.14969736 0.5066096 0.48370177 0.34055395 0.33362678
2  0.02449981 0.1121208 0.09009446 0.00000000 0.04152243
3  0.05505377 0.1729551 0.16392943 0.05766417 0.09065643
4  0.02745081 0.1619292 0.14255551 0.06254547 0.07133078
5  0.21398425 0.3881638 0.16413972 0.07705295 0.09385402
6  0.07834220 0.2272065 0.35237013 0.25850410 0.32115553
7  0.03102533 0.1458028 0.23590461 0.09950566 0.18447961
8  0.05418163 0.1716062 0.11510734 0.07411656 0.10856172