似乎无法识别数据

Question

我有这段代码试图从Kitco网站上获取Gold的每日现货价格。

library("rvest")
library("dplyr")
library("tidyr")
library("tibble")
maya <- read_html("http://www.kitco.com/market/")
mara <- html_nodes(maya, "table")
mata <- html_table(mara, fill=TRUE)
mana <- mata[32]

我似乎无法确定“法术力”变量是什么。它不是数据框，我似乎无法通过键入

将其变为数据框

mala <- as_data_frame(mana)

甚至

mala <- as_data_frame(mana[1])

我错过了什么？

Answer 1

library(rvest)
library(tidyverse)
"http://www.kitco.com/market/" %>%
    read_html() %>%
    html_nodes("table") %>%
    html_table(fill = TRUE) %>%
    .[32] %>%
    as.data.frame()

as.data.frame接受＆＃34;任何R对象＆＃34;并且as_data.frame仅接受矩阵或数据框。如果你喜欢整洁的方法和as_data_frame，你可以这样做：

    ...
    .[[32]] %>%
    as_data_frame()

这里我们提取了列表，现在我们的对象类是数据框，我们可以将它传递给as_data_frame