HI~
试看看
x<-read.csv(file.choose())
x<-as.xts(read.zoo(x,header=T))
这样子图就就来
备注 我的.csv 长如此
Date Open High Low Close Volume
2012/1/2 8.81 8.81 8.62 8.67 777
2012/1/3 8.7 8.83 8.7 8.82 1375
2012/1/4 8.89 8.99 8.8 8.87 1661
2012/1/5 8.87 8.96 8.87 8.93 1546
※ 引述《andrew43 (讨厌有好心推文后删文者)》之铭言：
: library(quantmod)
: txt <- "Date Open High Low Close Volume
: 2013/1/2 13257 13289 13162 13194 168353
: 2013/1/3 13195 13198 13055 13055 242457
: 2013/1/4 13050 13100 13005 13079 256215
: 2013/1/7 13085 13128 13025 13126 228488
: "
: dat <- read.table(textConnection(txt), header=T, sep=" ", row.names="Date")
: ## 关键是 barChart() 要喂食一个 xts 物件
: ## 参考 ?xts 及 ?sample_matrix
: ## 以下是想办法生成 xts 物件的过程
: dat.xts <- as.xts(as.matrix(dat))
: ## 画画看吧。结果对或错都请推个文告诉我一声。
: barChart(dat.xts)
: ※ 引述《psinqoo (零度空间)》之铭言：
: : 问题 图跑不出
: : [问题类型]:
: : 程式咨询
: : [软件熟悉度]:
: : 入门
: : [问题叙述]:
: : 是不是资料格式错误? 还是其他方面有问题?
: : barChart 画不出来 其他的也无法画出
: : 底下是资料格式
: : 读入 .csv
: : 资料格式 如下
: : Date Open High Low Close Volume
: : 2013/1/2 13257 13289 13162 13194 168353
: : 2013/1/3 13195 13198 13055 13055 242457
: : 2013/1/4 13050 13100 13005 13079 256215
: : 2013/1/7 13085 13128 13025 13126 228488
: : [程式范例]:
: : euo=read.csv(file.choose())
: : head(euo)
: : library(quantmod)
: : barChart(euo)
: : 出现
: : Error in try.xts(x, error = "chartSeries requires an xtsible object") :
: : chartSeries requires an xtsible object
: : quantmod
: : xts