R语言 爬取百度地图天气预报
2021-07-14 本文已影响0人
youmigo
R语言 爬取百度地图天气预报
# Wed Jul 07 00:36:30 2021 -
# 字符编码:UTF-8
# R 版本:R 4.1 x64 for window 11
# cgh163email@163.com
# 个人笔记不负责任,拎了个梨🍐🍈
#.rs.restartR()
require(rjson)
require(jsonlite)
rm(list = ls());gc()
http://api.map.baidu.com/weather/v1/?district_id=440118&data_type=all&ak=6Fhk0*******K3SbXMoWxvsu
my_baidu_key <- readRDS('~/r,porject/mycode/my_baidu_key.rds')
cityid <- 440118 #增城区
paste0("http://api.map.baidu.com/weather/v1/?district_id=",
cityid,
"&data_type=all&ak=",
my_baidu_key) |>
download.file(destfile = paste(runif(1),'.json'),mode = 'wb')
dt <- readr::read_file('0.271609853021801 .json')
dt.json <- dt |> fromJSON()
View(dt.json)
# Wed Jul 07 01:34:04 2021 ----清洗--------------------------
tq.5day <- dt.json$result$forecasts |> as.data.frame()
write.csv(tq.5day,file = '五天天气.csv')
# Wed Jul 07 01:36:39 2021 --end
image.png