ggplot2でデフォルトでハイフン（-）で出てくるマイナス記号を、本物のマイナス記号（−）に修正する【R】

先日、投稿した論文の査読者に、図のマイナスがハイフンだと指摘された。

デフォルトでの軸はこんな感じ↓

いやRでデフォルトでこうなってるのにそこ修正する？という感じだが、ハイフンであるのは間違いないので、修正することにした。

以下、当時のツイート

このリンクを参考にして、現在は以下のコードを使っている。

scaleFUN <- function(x) {
  a <- sprintf("%.1f", x) #小数点以下1桁でxを四捨五入
  a2 <- sub('^-', '\U2212', format(a)) #ハイフンをマイナスに置換
  a2 <- trimws(a2) #空白を削除
  return(a2)
}
  
scaleFUN2 <- function(x) {
  a <- sprintf("%.2f", x) #小数点以下2桁でxを四捨五入
  a2 <- sub('^-', '\U2212', format(a)) #ハイフンをマイナスに置換
  a2 <- trimws(a2) #空白を削除
  return(a2)
}

gf <- ggplot() +
  geom_point(data=f_data.scores, aes(x=NMDS1, y=NMDS2, fill=landuse, shape=country),size=4) +
  scale_y_continuous(labels = scaleFUN) +
  scale_x_continuous(labels = scaleFUN2)

完成図はこんな感じ（最初に出した図と違うデータなので、点の位置は気になさらず。軸を修正したという話です。）