是否有从雅虎财务中读取公司名称的R函数？

Question

出于好奇，是否可以输入像c("Netflix", "Tesla", "Apple")这样的公司名称列表，然后返回相关的Ticker名称，比如c("NFLX", "TSLA", "AAPL")，然后将其输入到我创建的函数中，该函数返回当前的收盘价。我只想自动化每个公司在雅虎财务上的手动查找。如果有人有任何建议，请告诉我！谢谢

Answer 1

1) --这些都是标准普尔500指数成份股公司--所以如果这就足够了，那就从维基百科获得名单。

library(rvest)
library(dplyr)

stocks <- data.frame(Symbol = c("TSLA", "NFLX", "AAPL"))

u <- "https://en.wikipedia.org/wiki/List_of_S%26P_500_companies"
html <- read_html(u)
tab <- html_table(html)[[1]]

stocks %>%
  left_join(tab, by = "Symbol") %>%
  select(Symbol, Security)

给予：

  Symbol Security
1   TSLA    Tesla
2   NFLX  Netflix
3   AAPL    Apple

2)甚至更容易在下面的url上使用csv文件，给出相同的结果，除了第二个列名，它称为name而不是。

library(dplyr)

stocks <- data.frame(Symbol = c("TSLA", "NFLX", "AAPL"))

u2 <- "https://raw.githubusercontent.com/datasets/s-and-p-500-companies/master/data/constituents.csv"
tab2 <- read.csv(u2)
stocks %>%
  left_join(tab2, by = "Symbol") %>%
  select(Symbol, Name)