Tushare股市交易数据处理-R语言
一. 股市波动
1.蜡烛图
library(Tushare)
library(lubridate)
bar <- Tushare::pro_bar(token = 'your api key')
FL_tushare=bar(ts_code = "601138.SH",start_date = "20180608", end_date = "20210228")
FL = FL_tushare%>%select(open:close,vol)
FL$vol = parse_number(FL$vol)
colnames(FL)[5] = "volume"
# 数据类型转换
library(xts)
FL <- xts(FL,order.by = ymd(FL_tushare$trade_date))
library(quantmod)
chartSeries(FL,theme = "white")
2. 与同期东方国信、大盘表现对比
# 东方国信
DF_tushare=bar(ts_code = "300166.SZ",start_date = "20180608", end_date = "20210228")
DF = DF_tushare%>%select(open:close,vol)
DF$vol=parse_number(DF$vol)
colnames(DF)[5] = "volume"
# 数据类型转换
DF <- xts(DF,order.by = ymd(DF_tushare$trade_date))
chartSeries(DF,theme = "white")
plot(merge(FL$close,DF$close),col=c("red","black"))
SH_tushare=bar(ts_code = "000001.SZ",start_date = "20180608", end_date = "20210228")
SH= SH_tushare%>%select(open:close,vol)
SH$vol=parse_number(SH$vol)
colnames(SH)[5] = "volume"
# 数据类型转换
SH <- xts(SH,order.by = ymd(SH_tushare$trade_date))
chartSeries(SH,theme = "white")
plot(merge(FL$close,SH$close),col=c("red","black"))