Question

我正在尝试从本页（https://cneos.jpl.nasa.gov/fireballs/）上的“ CSV”按钮直接下载数据到我的R应用程序。我看到了几个类似的问题，但仍然无法解决。有人可以帮忙吗？如何找到文件的直接链接？

此外，我想在页面底部删除“表列说明”。例如，当我用POST抓取所有页面时，如何获取这些数据？

Answer 1

您可以执行以下操作（如果需要所有数据，请删除limit）

library(jsonlite)
df <- fromJSON('https://ssd-api.jpl.nasa.gov/fireball.api?limit=100')
dt <- as.data.frame(df$data)
colnames(dt) <- df$fields

head(dt)

                 date energy impact-e  lat lat-dir   lon lon-dir  alt  vel
1 2018-11-20 17:30:28   42.2      1.1 25.3       N   6.7       W 27.4 17.4
2 2018-11-17 21:48:24   22.0     0.61 47.3       N 172.9       W 32.5 19.1
3 2018-11-15 08:02:44    2.0    0.073   42       N    57       W <NA> <NA>
4 2018-11-14 04:03:47    3.8     0.13 37.6       S  83.5       E   37 <NA>
5 2018-10-24 21:19:07    4.7     0.16  6.7       S 148.6       W 33.3 <NA>
6 2018-10-22 07:11:03    2.6    0.092 <NA>    <NA>  <NA>    <NA> <NA> <NA>

从R中的在线“下载.csv”按钮获取.csv数据

1 个答案: