Вы можете извлечь индексы и значения
объекта XTS или зоопарка с index
и coredata
: этого должно хватить
построить его так, как вы хотите.
# Sample data
library(quantmod)
getSymbols("^GSPC")
x <- Vo( GSPC )
# Base graphics
plot( index(x), coredata(x), type="h" )
# ggplot2
d <- data.frame( time=index(x), volume=drop(coredata(x)) )
library(ggplot2)
ggplot(d, aes(time, volume)) + geom_bar(stat="identity")