rm(list=ls())
pdf("myFirst2.pdf")
options(stringsAsFactors = F)
library(ggplot2)
library(gcookbook)
library("WindR")
w.start(10,F)
###均价和成交量
tmp <- w.wsd("******.SH","vwap,volume","2017-01-01","2017-12-31")
tmpData <- tmp$Data
ggplot(tmpData, aes(x=DATETIME, y=VOLUME)) + geom_bar(stat="identity")#直接赋值,不做因子转化
#ggplot(tmpData, aes(x=factor(DATETIME), y=VOLUME)) + geom_bar(stat="identity")#变量进行因子转化
#write.csv(tmp$Data, "E:/2017year/vwap/vwap&volume.csv", quote=FALSE, row.names = FALSE)
dev.off()
pdf("myFirst2.pdf")
options(stringsAsFactors = F)
library(ggplot2)
library(gcookbook)
library("WindR")
w.start(10,F)
###均价和成交量
tmp <- w.wsd("******.SH","vwap,volume","2017-01-01","2017-12-31")
tmpData <- tmp$Data
ggplot(tmpData, aes(x=DATETIME, y=VOLUME)) + geom_bar(stat="identity")#直接赋值,不做因子转化
#ggplot(tmpData, aes(x=factor(DATETIME), y=VOLUME)) + geom_bar(stat="identity")#变量进行因子转化
#write.csv(tmp$Data, "E:/2017year/vwap/vwap&volume.csv", quote=FALSE, row.names = FALSE)
dev.off()