刮联邦债收益率表从财政部网站

我想下载从财政部网站上的10年期联邦债券孳息：https://www.treasury.gov/resource-center/data-chart-center/interest-rates/Pages/TextView.aspx?data=yield 刮联邦债收益率表从财政部网站

要分析上面的网页，获取最新的10年期国债收益率，我曾经跟随这里提供的说明： Parsing 10-year federal note yield from the website

library(httr) 
URL = "https://www.treasury.gov/resource-center/data-chart-center/interest-rates/Pages/TextView.aspx?data=yield" 

urldata <- GET(URL) 
data <- readHTMLTable(rawToChar(urldata$content), 
         stringsAsFactors = FALSE) 

data <- as.data.frame((data[69])) 
names(data) <- gsub("NULL.","", names(data)) # Take out "NULL."

但它不再起作用。

任何思考什么可能是错误的或其他建议？

来源

2017-04-16 Oposum

我无法访问网站，它说“发生了意外错误”。如果你有同样的问题，你将无法从中提取数据。 –

@FernandoIrarrázavalG我可以访问它，这里是公正的情况下直接链接 – Oposum

也没有工作，这是我得到：https://snag.gy/tQl2ya.jpg –

这并不回答，为什么你的代码不再适用于具体的问题。这是一个使用rvest包的替代方案，可以简化许多刮擦操作。特别是下面，表格的选择是通过class id CSS选择器.t-chart进行的。这使得它更容忍页面格式更改。与运算符％>％的链接使得代码非常紧凑。

library(rvest) 
t_url = "https://www.treasury.gov/resource-center/data-chart-center/interest-rates/Pages/TextView.aspx?data=yield" 
rates <- read_html(t_url) %>% 
    html_node(".t-chart") %>% 
    html_table() 

rates 

#  Date 1 mo 3 mo 6 mo 1 yr 2 yr 3 yr 5 yr 7 yr 10 yr 20 yr 30 yr 
# 1 04/03/17 0.73 0.79 0.92 1.02 1.24 1.47 1.88 2.16 2.35 2.71 2.98 
# 2 04/04/17 0.77 0.79 0.92 1.03 1.25 1.47 1.88 2.16 2.36 2.72 2.99 
# 3 04/05/17 0.77 0.80 0.93 1.03 1.24 1.44 1.85 2.14 2.34 2.71 2.98 
# 4 04/06/17 0.78 0.79 0.94 1.05 1.24 1.45 1.87 2.15 2.34 2.72 2.99 
# 5 04/07/17 0.77 0.82 0.95 1.08 1.29 1.52 1.92 2.20 2.38 2.74 3.00 
# 6 04/10/17 0.77 0.82 0.97 1.07 1.29 1.52 1.91 2.18 2.37 2.72 2.99 
# 7 04/11/17 0.74 0.82 0.94 1.05 1.24 1.45 1.84 2.11 2.32 2.67 2.93 
# 8 04/12/17 0.77 0.81 0.95 1.04 1.24 1.44 1.81 2.09 2.28 2.65 2.92 
# 9 04/13/17 0.76 0.81 0.94 1.03 1.21 1.40 1.77 2.05 2.24 2.62 2.89

来源

2017-04-16 22:50:30 epi99

非常好，非常感谢 – Oposum

刮联邦债收益率表从财政部网站

回答

相关问题