16方位を角度に

方角を角度に変換

アメダスの16方位を角度に変換する函数。 角度をseqで生成して、それぞれの名前を方角にする。 方角を与えると角度を返す。 ベクトル化されているので、複数の方角を渡すことができる。

dir2deg <- function(x) {
  dir <- seq(0, 360, length.out=17)[1:16]
  names(dir) <- c("北", "北北東", "北東", "東北東",
                  "東", "東南東", "南東", "南南東", 
                  "南", "南南西", "南西", "西南西", 
                  "西", "西北西", "北西", "北北西")
  dir[x]
}
dir <- c("北", "北北東", "北東", "東北東")
dir2deg(dir)

    北 北北東   北東 東北東 
   0.0   22.5   45.0   67.5