【R语言源码】下载股票历史数据，写入数据库

相似文件 换一批

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

简单下载示例：

1. cntrade(c('600000', '002024'), path ='D:/stock', start = 20150101, end = 20151106)

复制代码

可以配合读取csv文件，写入数据库 示例如下

1. library(RMySQL)
   
2. filenames <- dir()
   
3. for (y in 1:length(filenames)){
   
4.   x <- read.table(filenames[y],header = T,sep = ",")
   
5.   names(x) <- c("date","stock_id","stock_name","close","high","low","open","pre_close","zde","zdf","hsl","volume","cjje","zsz","ltje")
   
6.   dbWriteTable(con,"day",x,row.names = F, overwrite=TRUE)
   
7.   file.remove(filenames[y])
   
8. }

复制代码

日线mysql数据库结构如下：

1. DROP TABLE IF EXISTS `day`;
   
2. CREATE TABLE `day` (
   
3.   `date` date DEFAULT NULL,
   
4.   `stock_id` char(10) DEFAULT NULL,
   
5.   `stock_name` char(50) DEFAULT NULL,
   
6.   `close` decimal(10,2) DEFAULT NULL,
   
7.   `high` decimal(10,2) DEFAULT NULL,
   
8.   `low` decimal(10,2) DEFAULT NULL,
   
9.   `open` decimal(10,2) DEFAULT NULL,
   
10.   `pre_close` decimal(10,2) DEFAULT NULL,
    
11.   `zde` decimal(10,2) DEFAULT NULL,
    
12.   `zdf` decimal(10,2) DEFAULT NULL,
    
13.   `hsl` decimal(10,2) DEFAULT NULL,
    
14.   `volume` decimal(50,2) DEFAULT NULL,
    
15.   `cjje` decimal(50,2) DEFAULT NULL,
    
16.   `zsz` decimal(50,2) DEFAULT NULL,
    
17.   `ltje` decimal(50,2) DEFAULT NULL
    
18. ) ENGINE=MyISAM DEFAULT CHARSET=utf8;

复制代码

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏6 回帖

关键词：历史数据 数据库 R语言 filename Library 股票 历史数据 写入 数据库 R语言

谢谢楼主

thanks for sharing

从2017-04-17开始下载不了数据了，不知道是怎么回事啊