気温の変動をプロット(そのまま表示)

とりあえず、データをそのまま表示してみる。

使用データは下記よりダウンロード

データ出典:モニタリングサイト1000

ダウンロードしてきたデータは、カレントディレクトリのfiles/に展開。

library("readxl")

pat <- c("mot-az_1c","mot-az_2c","mot-az_3a")
pat_name <- c("大雪山／赤岳コマクサ平",
              "北アルプス（立山）／富山大学立山研究所",
              "北アルプス（蝶ヶ岳～常念岳）／常念小屋")
for(i in 1:length(pat)){
  xlsList <- list.files("files/KOZ01/", pattern=pat[i])

  df_temp <- c()
  for(j in 1:length(xlsList)){
    tmp <- read_excel( path=paste0("files/KOZ01/", xlsList[j]), sheet=2, col_names=TRUE)
    df_temp <- rbind(df_temp, tmp[,-3])
  }
    
  plot(df_temp, type="l", main=pat_name[i])

• データはもう少しあったけど、とりあえず3つだけ。
• エクセルの処理はreadxlが爆速だけれど、今のところ"DEFINENAME～"と表示されてしまう。