R语言-股票数据库(4)-股票行业和概念板块数据-Wind
生活随笔
收集整理的這篇文章主要介紹了
R语言-股票数据库(4)-股票行业和概念板块数据-Wind
小編覺得挺不錯(cuò)的,現(xiàn)在分享給大家,幫大家做個(gè)參考.
############################################################################################
###################### 行業(yè)數(shù)據(jù) #############################################
############################################################################################
create table stock_industry_wind
(stock_id varchar(10) -- 股票代碼
,DATETIME date -- 數(shù)據(jù)日期
,STOCK_name varchar(50) -- 公司名
,START_DATE DATE -- 上市日期
,CONCEPT VARCHAR(500) -- 概念板塊
,industry_gics VARCHAR(150) -- WIND行業(yè)名稱 11種分類
,industry_gicscode INT -- WIND行業(yè)代碼 11種分類
,industry_CSRC12 VARCHAR(150) -- 證監(jiān)會(huì)行業(yè)名稱 19種分類
)
############################################################################################
############### 循環(huán)加載交易數(shù)據(jù) ##################
############################################################################################
library(RCurl)
library(RMySQL) # 載入RMySQL包
library(WindR)
w.start()table_name <- "stock_industry_wind"
flag <- ".SH"
date_dt <- '20170320'
filepath <- "E:/.../數(shù)據(jù)源/"
security <- readLines(paste(filepath,'滬市代碼list.txt',sep = ''))
filename <- paste(filepath,table_name,"_",date_dt,'.txt',sep = '')
code <- vector(length = length(security))
listingdate <- vector(length = length(security))
security.tab <- data.frame(code, listingdate, stringsAsFactors=FALSE)
for (i in 1 : length(security))
{ security.tab[i,] = do.call(cbind,(strsplit(security[i],"\t"))) }for (i in 1 : length(security))
{code <- paste(security.tab$code[i],flag,sep="")cat(i,"\t---",code,"\t---","\n")w_wsd_data<-w.wss(code,'sec_name,ipo_date,concept,industry_gics,industry_gicscode,industry_CSRC12',tradeDate=date_dt,'industryType=1')data_df1<-w_wsd_data$Datadata_df1<-cbind(data_df1[,1],'2017-03-20',data_df1[,2:length(data_df1)])data_df1$IPO_DATE<-as.Date('1899-12-30')+data_df1$IPO_DATEif (i==1) { data_df2<-data_df1 }else { data_df2<-rbind(data_df1,data_df2) }
}conn <- dbConnect(MySQL(),dbname = "gushi",username = "root") #建立數(shù)據(jù)庫(kù)連接dbSendQuery(conn, "SET @@sql_mode=ANSI;") # 啟動(dòng)非嚴(yán)格模式dbSendQuery(conn, "SET NAMES GBK") # win7環(huán)境下如果漢字亂碼,就運(yùn)行這條命令write.table(data_df2,file=filename,sep="\t",quote=FALSE,row.name=FALSE, col.names = FALSE)strSQL <- paste('load data infile \'',filename,'\' into table ',table_name,' character set GBK fields terminated by \'\t\' lines terminated by \'\n\'',sep="")res1 <-dbSendQuery(conn, strSQL)#dbWriteTable(conn,table_name,data_df1,append=T,row.names=F) ## 存在中文的話會(huì)不顯示#dbReadTable(conn,table_name)dbDisconnect(conn)
總結(jié)
以上是生活随笔為你收集整理的R语言-股票数据库(4)-股票行业和概念板块数据-Wind的全部?jī)?nèi)容,希望文章能夠幫你解決所遇到的問題。
- 上一篇: 什么是心跳包?
- 下一篇: mysql高德地图设计_基于高德开放平台