如何从 Yahoo! 抓取关键统计数据使用 R 进行财务？ [复制]

不幸的是，我还不是一个经验丰富的爬虫。然而，我需要使用 R 从雅虎财经抓取多只股票的关键统计数据。

我对使用 rvest 包中的 read_html、html_nodes() 和 html_text() 直接从 html 中抓取数据有些熟悉。然而，这个网页MSFT关键统计数据有点复杂，我不确定所有统计数据是否都保存在XHR、JS或Doc中。我猜测数据存储在 JSON 中。

如果有人知道用 R 提取和解析该网页数据的好方法，请回答我的问题，非常感谢！

或者，如果有更方便的方法通过 quantmod 或 Quandl 提取这些指标，请告诉我，这将是一个非常好的解决方案！

目标是将票证/符号作为行名/行标签，而统计信息则被标识为列。我的需求说明可以在 Finviz 链接中找到：

https://finviz.com/screener.ashx https://finviz.com/screener.ashx

我想抓取雅虎财经数据的原因是因为雅虎还考虑了企业、EBITDA 关键统计数据。

编辑： 我的意思是指关键统计页面..例如..：https://finance.yahoo.com/quote/MSFT/key-statistics/ https://finance.yahoo.com/quote/MSFT/key-statistics/。该代码应生成一个数据框，其中包含股票代码行和关键统计数据列。

Code

library(rvest)
library(tidyverse)

# Define stock name
stock <- "MSFT"

# Extract and transform data
df <- paste0("https://finance.yahoo.com/quote/", stock, "/financials?p=", stock) %>% 
    read_html() %>% 
    html_table() %>% 
    map_df(bind_cols) %>% 
    # Transpose
    t() %>%
    as_tibble()

# Set first row as column names
colnames(df) <- df[1,]
# Remove first row
df <- df[-1,]
# Add stock name column
df$Stock_Name <- stock

Result

  Revenue `Total Revenue` `Cost of Revenu… `Gross Profit`
  <chr>   <chr>           <chr>            <chr>         
1 6/30/2… 110,360,000     38,353,000       72,007,000    
2 6/30/2… 96,571,000      33,850,000       62,721,000    
3 6/30/2… 91,154,000      32,780,000       58,374,000    
4 6/30/2… 93,580,000      33,038,000       60,542,000    
# ... with 25 more variables: ...

edit:
或者，为了方便起见，作为一个函数：

get_yahoo <- function(stock){
  # Extract and transform data
  x <- paste0("https://finance.yahoo.com/quote/", stock, "/financials?p=", stock) %>% 
    read_html() %>% 
    html_table() %>% 
    map_df(bind_cols) %>% 
    # Transpose
    t() %>%
    as_tibble()

  # Set first row as column names
  colnames(x) <- x[1,]
  # Remove first row
  x <- x[-1,]
  # Add stock name column
  x$Stock_Name <- stock

  return(x)
}

Usage: get_yahoo(stock)