はいけい

Rで以下のような図をプロットしたかったので、
X軸とY軸をどうやって追加しようか検討してみました.

かいけつさく

矢印についてはggplot2 : Connect observationsなど幾つか方法があるみたいですが、
geom_hline・_vlineを使う以下の方法で一旦満足しました。

plot_quadrant_matrix.R


if (!require("ggplot2")
  install.packages("ggplot2")

library(ggplot2)


df_for_plot <- data.frame(X = c(1,4,-5,2,-7,3,-9,1,9,10),
                          Y = c(5,-3,-5,6,9,10,-10,2,10,-1)
                          )

g <- ggplot(df_for_plot, aes(x = X, y = Y)) + 
  ylab("Y") + xlab("X") + 
  ggtitle ("Quadrant_matrix") +
  # y軸を追加 
  geom_hline(yintercept = 0, size = 0.9, linetype = 1, color = "#5B9BD5") +
  # x軸を追加
  geom_vline(xintercept = 0, size = 0.9, linetype = 1, color = "#5B9BD5") +
  geom_point(color = "#02ccba", size = 5) +
  xlim(-10,10)+ylim(-10,10) +
  theme_minimal(base_family = "HiraKakuPro-W3", base_size = 18)
g

出力

ある程度はイメージを再現できましたが、pointをクリックしたくなったりするので
googleVisなどのAPIを使って作図する方法もカバーしたいと思いました.

さんこう

ggplot2 : Differentiation related aesthetics: linetype, size, shape