原始碼：

# 安裝依賴包
if (!require(rvest)) {
  install.packages("rvest")
}

if (!require(xml2)) {
  install.packages("xml2")
}

# 引入
library(rvest)

# 正文
stock_code <- "000616"
year_code <- "2018"
season_code <- "1"


url <-
  paste(
    "http://quotes.money.164.com/trade/lsjysj_",
    stock_code,
    ".html?year=",
    year_code,
    "&season=",
    season_code,
    sep = ""
  )

web_page <- read_html(url)
web_table <- html_table(web_page,
                        header = TRUE,
                        trim = TRUE,
                        fill = TRUE)

提示：

no applicable method for 'xml_find_all' applied to an object of class "xml_document"

原因：

所要爬取的這個頁面，將爬蟲相關的方法禁用了。所以爬下來的是一個空的“xml_document”文件，無法進行後續的解析。