R Quantmod chartSeries（）错误

我在尝试对每日外汇数据执行

chartSeries

时遇到以下错误

我认为csv数据集应该井然有序，没有遗漏的字段或中间的无效数据

使用getSymbols（）成功执行的csv数据示例

我甚至添加了以下选项

chartSeries(AUDNZD,type="candlestick",**subset="null",bar.type="olhc", major.ticks="day",plot="true"**) 

对于chartSeries（），则错误变为

Error in if (length(c(year,month,day, hour,min,sec))==6 && c(year,:missing values where TRUE/FALSE needed

看起来时间序列可能是错误的原因毕竟，chartSeries函数试图确定要应用的正确时间序列比例，日期字段最初的格式是字符串格式“yyy-mm-dd”，不知道这是否是正确的格式

有人能帮我解决这些问题吗

谢谢

给你

> aud <- read.csv("c:\\aud.csv")
> aud
        Date   Open   High    Low  Close Volume Adjusted
1 2005-06-13 1.0796 1.0812 1.0749 1.0791   9456        0
2 2005-06-14 1.0792 1.0806 1.0784 1.0793  11229        0
3 2005-06-15 1.0791 1.0799 1.0775 1.0783   9861        0
4 2005-06-16 1.0785 1.0820 1.0776 1.0813  10687        0
5 2005-06-17 1.0815 1.0863 1.0796 1.0843   8829        0
6 2005-06-20 1.0842 1.0864 1.0823 1.0850   8391        0
7 2005-06-21 1.0853 1.0891 1.0836 1.0879   9864        0
> aud.xts <- as.xts(zoo(aud[,2:6],order.by=as.Date(aud$Date)))
> chart_Series(aud.xts)

>澳元澳元
调整日期开盘高收盘低收盘量
1 2005-06-13 1.0796 1.0812 1.0749 1.0791   9456        0
2 2005-06-14 1.0792 1.0806 1.0784 1.0793  11229        0
3 2005-06-15 1.0791 1.0799 1.0775 1.0783   9861        0
4 2005-06-16 1.0785 1.0820 1.0776 1.0813  10687        0
5 2005-06-17 1.0815 1.0863 1.0796 1.0843   8829        0
6 2005-06-20 1.0842 1.0864 1.0823 1.0850   8391        0
7 2005-06-21 1.0853 1.0891 1.0836 1.0879   9864        0
>aud.xts图表\ U系列（aud.xts）

---

你好，哈奇，谢谢，当我执行你的建议时，我只得到了白色背景，如果我改为chartSeries，会出现一个黑色主题，如果有办法将烛台设置为彩色模式？

chartSeries

是

quantmod

的旧版本。我个人使用的新版本是

chart\u系列

。您可以更改图表的主题-阅读。如果我没有弄错的话，在

chart\u系列

中使用用户定义的主题更改背景颜色有一个公开的bug。除此之外……你好，Haki，谢谢，我设法使用chartTheme（）创建了一个主题，我把整个声明都放在社区AUD的利益上

> aud <- read.csv("c:\\aud.csv")
> aud
        Date   Open   High    Low  Close Volume Adjusted
1 2005-06-13 1.0796 1.0812 1.0749 1.0791   9456        0
2 2005-06-14 1.0792 1.0806 1.0784 1.0793  11229        0
3 2005-06-15 1.0791 1.0799 1.0775 1.0783   9861        0
4 2005-06-16 1.0785 1.0820 1.0776 1.0813  10687        0
5 2005-06-17 1.0815 1.0863 1.0796 1.0843   8829        0
6 2005-06-20 1.0842 1.0864 1.0823 1.0850   8391        0
7 2005-06-21 1.0853 1.0891 1.0836 1.0879   9864        0
> aud.xts <- as.xts(zoo(aud[,2:6],order.by=as.Date(aud$Date)))
> chart_Series(aud.xts)