R语言获取股票业绩同理可以获取股价以及分红数据

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

这是获取的数据样例
代码很简单请下载
以下是获取股票分红数据代码免费赠送，没有详细的整理但是还是可以参考用的。数据文件stock.csv也可以下载

1. setwd("F:/360yun/R");
   
2. stock<-read.csv(file("stock.csv",encoding="GBK"));
   
3. library(XML);
   
4. i<-1
   
5. #detail<-""
   
6. urls<-paste("http://vip.stock.finance.sina.com.cn/corp/go.php/vISSUE_ShareBonus/stockid/",substr(stock$CODE[1:20],3,8),".phtml",sep='');
   
7. for(url in urls){
   
8.   #url<-"http://vip.stock.finance.sina.com.cn/corp/go.php/vISSUE_ShareBonus/stockid/601766.phtml"
   
9.   #url2<-"http://3c.taobao.com/detail.htm?spm=872.217037.254698.11.deIiSJ&spuid=203228104&cat=1101"
   
10.   i_url2<-htmlParse(url,encoding="GBK");
    
11.   name<- getNodeSet(i_url2,"//table[@id='sharebonus_1']//tbody//tr/td");
    
12.   con=sapply(name, xmlValue);
    
13.   print(url);
    
14.   #if(grepl("2014",con[1])){detail[i]<-c(substr(url,76,81),con[1:8])}
    
15.   if(length(con)){detail<-c(substr(url,76,81),con[1:8])}
    
16.   i<-i+1;
    
17.   print(detail)
    
18. }

复制代码

扫码加我 拉你入群

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

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

分享0 收藏3 回帖

关键词：分红数据 R语言 Stock stoc tock

谢谢分享

呵呵呵