将时间序列对象按列添加到data.frame

时间:2015-07-27 14:43:59

标签: r statistics

我正在尝试添加我的res对象,这是一个时间序列对象列到我的数据框:

> dput(res)
structure(list(oenb_dependent = structure(c(1.02270390000001, 
-5.06831440000002, 0.665771299999989, 3.31613740000003, -2.15867040000001, 
-0.783362300000022, -0.22032089999999, 2.416144, -1.76254059999999, 
-0.156503700000002, -7.9803936, 9.45947149999999, -4.8104584, 
8.48271070000001, -6.18952620000002, 1.42885950000002, 1.4896459, 
-0.419852200000008, -5.1583964, 5.25022940000001, 1.0567102, 
-1.09233420000001, -1.58522979999999, 0.606193599999997, -0.375233499999993, 
2.50086640000001, -1.39997290000002, 2.28021660000002, -2.1468756, 
-1.4890328, -0.792543760000001, 3.21804705000001, -0.944078860000019, 
-0.278023159999989, -0.207530789999993, -1.12610048000001, 2.0883735, 
-0.742485400000007, 0.442037290000002, -1.48905938, 1.39644423999999, 
-3.89173769999999, 11.25665848, -9.22884035, 3.26856762, -0.00179540999998551, 
-2.39664325000003, 4.00455574000001, -5.60891295, 4.6556348, 
-4.40536951, 6.64234497, -7.34787318999999, 7.56303005999999, 
-8.23083674, 4.43247855, 1.31090412), .Tsp = c(2000.75, 2014.75, 
4), class = "ts"), gdp = structure(c(-103.900000000001, -271.599999999999, 
-284.200000000001, 34.2999999999993, -206, -253.099999999999, 
-116.799999999999, -169.900000000001, -63.6000000000004, -174.199999999999, 
-138.200000000001, -171.200000000001, -198.199999999999, -126.200000000001, 
-222.5, -8.19999999999891, -172.5, -169.1, -207.5, -114.6, -182.4, 
-43.7000000000007, 43.5, 166, 293.1, -30, -144.6, 16.8999999999996, 
-115.599999999999, -147.400000000001, -189.099999999999, -166.800000000001, 
-157.9, -108.700000000001, -150.9, -267.299999999999, -176.200000000001, 
-231.299999999999, -160.4, -251.5, -194.5, -186.300000000001, 
-193, -171.6, -191.699999999999, -254.4, -140.6, -126.300000000001, 
-66.6999999999989, -102.300000000001, -100.4, -133.1, -61.7999999999993, 
-1.10000000000036, -130.299999999999, -35.8000000000011, -114.9, 
-79.1000000000004), .Tsp = c(2000.5, 2014.75, 4), class = "ts"), 
    atx = structure(c(43.8598630000001, 296.910157, 22.9699700000001, 
    22.719932, -18.0900489999999, -304.469971, 128.03003, 49.1999900000001, 
    -311.47001, -114.390014, 183.710083, -267.380059, 56.1699759999999, 
    818.880004, 115.449952, 65.0600679999998, -405.610117, -262.829834, 
    355.199951, -138.44, 141.720029, -538.630127, -402.029907, 
    54.2100049999999, 1016.93001, 1175.389892, -177.23999, 747.070087999999, 
    14.3198050000001, 341.959961, -223.759766, -182.03, -595.19998, 
    -122.550049, 394.110107, -472.800078, -209.580049, -407.540039, 
    -417.01001, -201.519902, -388.510005, -53.469971, -122.640014, 
    -321.61001, -193.259985, -46.1800539999999, -142.599976, 
    -13.0599850000001, -79.8400389999999, 172.859985, 46.090054, 
    -148.8, -56.2900539999998, 122.75, -20.2799070000001, -113.240039, 
    87.860034, -31.580078), .Tsp = c(2000.5, 2014.75, 4), class = "ts"), 
    cpi = structure(c(-2.62, 1.16000000000003, -3.26000000000005, 
    0.220000000000027, -3.50999999999999, 0.839999999999975, 
    -2.81, -0.339999999999975, -4.56999999999999, -0.120000000000005, 
    -3.94999999999999, -1.37, -2.73000000000002, 0.350000000000023, 
    -5.38, -4.43000000000001, -3.08000000000004, 0.740000000000009, 
    -3.02999999999997, -1.09000000000003, -2, 0.350000000000023, 
    -1.51999999999998, 1.27999999999997, 0.199999999999989, -0.25, 
    -4.55000000000001, -2.48999999999995, -4.24000000000001, 
    -0.310000000000002, -2.96000000000004, -2.23999999999995, 
    -0.460000000000036, -0.0600000000000023, -2.66999999999996, 
    -1.27000000000004, -1.39999999999998, -0.699999999999989, 
    -0.960000000000036, -2.18000000000001, -2.52999999999997, 
    -0.519999999999982, -1.74000000000001, -2.18000000000001, 
    -1.40000000000003, -0.339999999999975, -0.089999999999975, 
    -1.65000000000003, -1.14999999999998, -0.170000000000016, 
    -2.00999999999999, -1.38, -1.24000000000001, 0.089999999999975, 
    -2.44, -1.91999999999996, -2.61000000000001, -0.340000000000032
    ), .Tsp = c(2000.5, 2014.75, 4), class = "ts"), constrPriceIndex = structure(c(-0.299999999999997, 
    -0.299999999999997, -1.4210854715202e-14, 0.200000000000017, 
    0.499999999999986, -0.699999999999989, 0.299999999999997, 
    -0.100000000000009, 0.300000000000011, -0.900000000000006, 
    -0.100000000000009, 0.800000000000011, -0.200000000000003, 
    -0.200000000000003, -0.299999999999997, 0.200000000000003, 
    -0.100000000000009, -0.0999999999999943, -0.16686, 0.416730000000001, 
    -0.0833399999999926, 0.166689999999988, 0.250039999999998, 
    -0.333389999999994, -0.416730000000001, -0.50009, 0.250039999999998, 
    0.833480000000009, -0.08335000000001, -0.0833399999999926, 
    -0.333400000000012, 0.333390000000009, 1.00000000031741e-05, 
    0.0833399999999926, -0.0833499999999958, 0.41673999999999, 
    0.166690000000017, -0.166690000000017, -0.135139999999993, 
    0.156170000000003, 1.00000000031741e-05, -0.468550000000008, 
    0.156190000000009, 0.54661999999999, 0, -0.234259999999992, 
    0.0780799999999857, 0.0780900000000173, 0.156179999999992, 
    -0.312359999999998, 0.0780999999999921, 0.312350000000009, 
    -0.156180000000006, -0.234269999999995, 0.0780900000000031, 
    9.99999998896328e-06, -0.0780999999999921), .Tsp = c(2000.75, 
    2014.75, 4), class = "ts"), resProp.Dwell2 = structure(c(1.70000000000002, 
    -0.400000000000006, -7.5, -1, -2.40000000000001, 0, 1.2, 
    0.700000000000003, -4.3, 0, 3.3, -18.3, 11.2, -4.90000000000001, 
    4.90000000000001, -0.300000000000011, -1.8, 2.7, 0.900000000000006, 
    -10.8, -2.59999999999999, 6.09999999999999, -0.0999999999999943, 
    -6.3, 1.2, 0.799999999999997, 4.09999999999999, -3.5, 4.60000000000001, 
    -0.200000000000003, -2.7, -15, 8, -0.0999999999999943, -0.100000000000009, 
    0.400000000000006, -4.90000000000001, 0.5, 2.7, -2.5, 1.90000000000001, 
    -4.60000000000001, -1, 8.10000000000001, -4.5, 0.299999999999997, 
    0.700000000000003, 2.19999999999999, -0.5, -3.8, 1.8, -4.69999999999999, 
    5.89999999999999, -2, 2.3, -0.399999999999991, -1.40000000000001, 
    2.3), .Tsp = c(2000.5, 2014.75, 4), class = "ts"), resProp.Dwell3 = structure(c(2.09999999999999, 
    1.29999999999998, -2.5, -4.19999999999999, 5, -2.30000000000001, 
    -1.89999999999998, -3.70000000000002, 1.20000000000002, -1.20000000000002, 
    0.0999999999999943, -9.59999999999999, -4.40000000000001, 
    -5.39999999999999, 3.2, -3.8, -1.5, 0.899999999999991, 0.700000000000003, 
    -6.7, 1.5, -2.19999999999999, 2, -2, -1.80000000000001, -2.69999999999999, 
    0.299999999999997, 2.3, 0.0999999999999943, -1.19999999999999, 
    -2.10000000000001, 1.5, -2.7, 0.700000000000003, -1.3, -0.700000000000003, 
    -2.7, 1, -1, 0.900000000000006, -4.90000000000001, 0.900000000000006, 
    -8.5, 12.7, -4.7, 1.40000000000001, 1.19999999999999, -3.39999999999999, 
    6.09999999999999, -5.39999999999999, 2.39999999999999, -1.2, 
    4, -8.09999999999999, 7.90000000000001, -9.60000000000001, 
    0.600000000000009, 2.39999999999999), .Tsp = c(2000.5, 2014.75, 
    4), class = "ts"), resProp.Dwell5 = structure(c(0.100000000000009, 
    0.899999999999991, -2.89999999999999, 2.7, 13.7, 3, 5.59999999999999, 
    -12, -0.5, -0.200000000000003, 2.5, -12, 6.7, 3.09999999999999, 
    4.7, 0.199999999999989, -3.59999999999999, -0.599999999999994, 
    1.8, -3.59999999999999, 2.59999999999999, -8.2, 3.80000000000001, 
    -4.5, 4.69999999999999, 3.40000000000001, -3.40000000000001, 
    -1.59999999999999, 1.09999999999999, -8.5, 2.40000000000001, 
    -3.8, 1.39999999999999, -7.09999999999999, 3.40000000000001, 
    -7.5, 4.3, 0.299999999999997, 1.90000000000001, -1.80000000000001, 
    0.700000000000003, -8.5, -0.700000000000003, 2.5, 2, 1.40000000000001, 
    2.7, -2.2, -2, 1.7, -2.2, 6.90000000000001, 2.69999999999999, 
    -8.8, 4.40000000000001, -5.40000000000001, 3.8, -5.69999999999999
    ), .Tsp = c(2000.5, 2014.75, 4), class = "ts"), stat.resProp.Dwell.4 = structure(c(0.000887705, 
    0.007954085, -0.025859667, 0.024097552, 0.114052787, 0.023329207, 
    0.042143181, -0.092587287, -0.004050228, -0.001624696, 0.020121403, 
    -0.100502922, 0.057354185, 0.025463388, 0.037409854, 0.001561281, 
    -0.028482938, -0.004827041, 0.014411779, -0.029034298, 0.021053409, 
    -0.067963182, 0.032070259, -0.038091783, 0.039751534, 0.027802281, 
    -0.027802281, -0.013355791, 0.009201236, -0.073403679, 0.021277398, 
    -0.033901552, 0.012624153, -0.065733979, 0.032017801, -0.072042665, 
    0.041936911, 0.002861232, 0.017933468, -0.01698154, 0.006638242, 
    -0.08375153, -0.007220248, 0.0255507, 0.019980685, 0.013752673, 
    0.026000502, -0.021134312, -0.019608471, 0.0166916, -0.021654389, 
    0.066402455, 0.024828862, -0.083302632, 0.042518482, -0.052439198, 
    0.037186281, -0.056311172, -0.012270093), .Tsp = c(2000.25, 
    2014.75, 4), class = "ts"), stat.lohn = structure(c(0, -0.00205138, 
    -0.004210738, 0, 0, -0.002848631, -0.005891227, -0.000983501, 
    0, 0.010805365, 0.022078016, 0.001188077, 0, -0.003245914, 
    -0.006556193, -0.000204576, 0, -0.005675448, -0.011619773, 
    0, 0, -0.000960638999999999, -0.001986805, 0, 0, 0.003386201, 
    0.006977449, 0, 0, -0.00183715, -0.003776571, -0.002818337, 
    0, 0.002773211, 0.005692673, 0.002818337, 0, 0.003090824, 
    0.006288291, 0, 0, -0.006644821, -0.013592439, 0, 0, 0.000586644999999998, 
    0.001211144, 0, 0, -0.001617326, -0.003344299, -0.002017983, 
    -0.007343864, 0.004398871, 0.009057395), .Tsp = c(2001.25, 
    2014.75, 4), class = "ts"), stat.resProp.Dwell.1 = structure(c(0.012777325, 
    -0.002991775, -0.057819571, -0.00796817, -0.019386714, 0, 
    0.009740337, 0.005638356, -0.035148694, 0, 0.027084134, -0.160377856, 
    0.101169235, -0.043007944, 0.043007944, -0.002580647, -0.015625318, 
    0.023347364, 0.007662873, -0.09607383, -0.024575906, 0.056733018, 
    -0.000904568, -0.058703392, 0.011450507, 0.007561473, 0.037879817, 
    -0.032246, 0.042169401, -0.001796946, -0.024580209, -0.148788737, 
    0.082097362, -0.000985707, -0.00098668, 0.003940892, -0.049380309, 
    0.005151995, 0.027371197, -0.025317808, 0.019299736, -0.047382704, 
    -0.010604553, 0.082827084, -0.04516573, 0.003075348, 0.007139245, 
    0.022111454, -0.004982571, -0.038701368, 0.018519048, -0.049096021, 
    0.061254226, -0.020346582, 0.023363175, -0.00402415, -0.014213437, 
    0.023245109, 0.027587957), .Tsp = c(2000.25, 2014.75, 4), class = "ts")), .Names = c("oenb_dependent", 
"gdp", "atx", "cpi", "constrPriceIndex", "resProp.Dwell2", "resProp.Dwell3", 
"resProp.Dwell5", "stat.resProp.Dwell.4", "stat.lohn", "stat.resProp.Dwell.1"
))
> for (i in seq_along(res)) {
+   
+   current <- res[[i]]
+   
+   columnName <- names(res)[i]
+   #convert to data.frame
+   finalDF$columnName <- data.frame(yq = yearqtr(index(current)), 
+                    val = coredata(current))
+ }
Error in finalDF$columnName <- data.frame(yq = yearqtr(index(current)),  : 
  object 'finalDF' not found

我尝试的是取我的res对象的名称并将其按列添加到数据框中,以便它在res对象中具有相同的列名,并且结构相同,但这样做不行。

有任何建议,如何区别对待?

0 个答案:

没有答案