回答編集履歴
1
zoo を xts に変換してなかったのを修正，結果は同じ
test
CHANGED
|
@@ -22,7 +22,9 @@
|
|
|
22
22
|
|
|
23
23
|
x <- read.zoo(read.csv("file.currency.rate"))
|
|
24
24
|
|
|
25
|
+
x.xts <- as.xts(x)
|
|
26
|
+
|
|
25
|
-
x
|
|
27
|
+
x.xts
|
|
26
28
|
|
|
27
29
|
#> USDJPY EURJPY AUDJPY
|
|
28
30
|
|
|
@@ -44,9 +46,9 @@
|
|
|
44
46
|
|
|
45
47
|
#> 2010-08-09 85.42 114.04 78.51
|
|
46
48
|
|
|
47
|
-
str(x)
|
|
49
|
+
str(x.xts)
|
|
48
50
|
|
|
49
|
-
#> '
|
|
51
|
+
#> An 'xts' object on 2010-07-28/2010-08-09 containing:
|
|
50
52
|
|
|
51
53
|
#> Data: num [1:9, 1:3] 85.2 88.1 84.6 86 86.4 ...
|
|
52
54
|
|
|
@@ -56,17 +58,27 @@
|
|
|
56
58
|
|
|
57
59
|
#> ..$ : chr [1:3] "USDJPY" "EURJPY" "AUDJPY"
|
|
58
60
|
|
|
61
|
+
#> Indexed by objects of class: [Date] TZ: UTC
|
|
62
|
+
|
|
63
|
+
#> xts Attributes:
|
|
64
|
+
|
|
65
|
+
#> NULL
|
|
66
|
+
|
|
67
|
+
class(x.xts)
|
|
68
|
+
|
|
59
|
-
#>
|
|
69
|
+
#> [1] "xts" "zoo"
|
|
60
70
|
|
|
61
71
|
|
|
62
72
|
|
|
63
73
|
# xts のままプロット
|
|
64
74
|
|
|
65
|
-
# ggplot(x, aes(Index, USDJPY)) + geom_line()
|
|
75
|
+
# ggplot(x.xts, aes(Index, USDJPY)) + geom_line()
|
|
66
76
|
|
|
67
77
|
|
|
68
78
|
|
|
69
79
|
# data.frame でプロット
|
|
80
|
+
|
|
81
|
+
# as.data.frame(x.xts) でも同じ
|
|
70
82
|
|
|
71
83
|
x.df <- as.data.frame(x) %>%
|
|
72
84
|
|