从Yahoo.Finance获取行业股票代码列表

Question

我如何（最好使用R）获得Yahoo.Finance，Google Finance或其他任何股票代码清单的行业分类。 为了说明，我有一个代码清单，例如

ticker_industy <- data.frame(ticker=ticker_list,industry=rep(NA,length(ticker_list)
head(ticker_industry)
    ticker industry
1      BDX       NA
2      BLL       NA
3       CB       NA
4     CELG       NA
5      CHK       NA
6       CI       NA

优选地，R为每个股票代码提取相应的行业。

Answer 1

这个功能应该为你工作......

industry=function(ticker)
{
  url=paste("https://in.finance.yahoo.com/q/in?s=",ticker,sep=',')
  mydata=as.data.frame(readLines(url))
  names(mydata)="text"
  ind=str_match(as.character(mydata$text[117]),'(?:<b>Industry: ?)(.*?)(?:<)')[,2]
  ind=str_replace_all(ind,'&amp;','&')
  return(ind)
}