ambientweatheRパッケージの使用例02

ambientweatheR_example02.R

library(ambientweatheR)
library(tidyverse)
library(weathermetrics) # APIが華氏で温度を返してくるため、変換に使う
mac_address <- list_user_devices() %>% flatten() %>% pluck("macAddress")

df <- seq.Date(as.Date("2021-04-09"), as.Date("2021-04-17"), "day") %>% 
    map(as.character) %>% 
    map_df(~ fetch_device_data(mac_address, .x)$content) %>%
    mutate(tempc = fahrenheit.to.celsius(tempf),
           tempinc = fahrenheit.to.celsius(tempinf),
           feelsLikec = fahrenheit.to.celsius(feelsLike),
           feelsLikeinc = fahrenheit.to.celsius(feelsLikein),
           dewPointc = fahrenheit.to.celsius(dewPoint),
           dewPointinc = fahrenheit.to.celsius(dewPointin))
df %>% 
    select(date_time, tempc, feelsLike, dewPoint) %>% 
    gather(key = "key", value = "value", -date_time) %>% 
    ggplot(aes(x = date_time, y = value, colour = key)) + 
    geom_point()