※ 引述《psinqoo (零度空間)》之銘言：
: HI~
: 試看看
: x<-read.csv(file.choose())
: x<-as.xts(read.zoo(x,header=T))
: 這樣子圖就就來
我照你的試把資料轉成xts的格式
圖就出來了!!!
謝謝你
我其實後來有在網路上找到另一個解法
不過沒有你的簡單
還是列出來給大家參考
tmp <- read.csv(file.choose(),header=TRUE)
x <- xts(tmp[,-1],as.Date(tmp[,1],"%Y-%m-%d"))
: 備註 我的.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)