從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) 
}