nov <- rbind(
"2013-05-28"= c(70.99,71.82,70.49,71.49),
"2013-05-29"= c(71.13,71.90,70.81,71.57),
"2013-05-30"= c(71.25,71.53,70.90,71.01),
"2013-05-31"= c(70.86,70.92,70.30,70.30),
"2013-06-03"= c(70.56,70.89,70.05,70.74),
"2013-06-04"= c(70.37,71.11,69.67,69.90),
"2013-06-05"= c(69.76,69.76,68.92,68.99),
"2013-06-06"= c(69.13,70.02,68.56,70.02),
"2013-06-07"= c(70.45,70.52,69.51,70.20),
"2013-06-10"= c(70.53,70.75,70.05,70.20),
"2013-06-11"= c(69.36,69.66,69.01,69.17),
"2013-06-12"= c(69.65,70.03,68.85,69.21),
"2013-06-13"= c(69.21,70.18,69.13,70.10),
"2013-06-14"= c(70.17,70.48,69.30,69.58),
"2013-06-17"= c(70.14,70.96,69.98,70.44),
"2013-06-18"= c(70.55,71.97,70.55,71.49),
"2013-06-19"= c(71.33,72.00,70.89,70.97),
"2013-06-20"= c(70.04,70.06,68.40,68.55),
"2013-06-21"= c(69.15,69.27,67.68,68.21)
)
colnames(nov) <- c("open","high","low","close")
PlotCandlestick(x=as.Date(rownames(nov)), y=nov, border=NA, las=1, ylab="")
# include some volume information
v <- c(213,108,310,762,70,46,411,652,887,704,289,579,934,619,860,35,215,211,8)
PlotCandlestick(x=as.Date(rownames(nov)), y=nov, vol=v,
border=NA, las=1, ylab="")
Run the code above in your browser using DataLab