r - ggpairs を使用した凡例

Question

ここで作成された例に従おうとして、次のコードを再現していました。

# Load required packages
require(GGally)

# Load datasets
data(state)
df <- data.frame(state.x77,
                 State = state.name,
                 Abbrev = state.abb,
                 Region = state.region,
                 Division = state.division
) 
# Create scatterplot matrix
p <- ggpairs(df, 
             # Columns to include in the matrix
             columns = c(3,5,6,7),

             # What to include above diagonal
             # list(continuous = "points") to mirror
             # "blank" to turn off
             upper = "blank",
             legends=T,

             # What to include below diagonal
             lower = list(continuous = "points"),

             # What to include in the diagonal
             diag = list(continuous = "density"),

             # How to label inner plots
             # internal, none, show
             axisLabels = "none",

             # Other aes() parameters
             colour = "Region",
             title = "State Scatterplot Matrix"
) 

# Show the plot
print(p)

各プロットの凡例付きの画像を取得することになっていました。

しかし、代わりに、伝説のないものを手に入れています。

取得している画像に凡例がない理由のヒントはありますか? 私の特定のケースにはそれらが必要です！

私は R v. 3.2.2 を使用しており、RStudio と RGui の両方で試しました。

前もって感謝します！

score 5 · Accepted Answer

そこへの標準的な方法があるはずですが、私はそれを見つけることができませんでした。古い印刷機能はまだ存在し、アクセス可能ですが、内部機能と同様です。印刷の代わりにこれを試してください：

  GGally:::print_ggpairs_old(p)

そして、これを追加すると（この投稿の回答Legend using ggpairsのおかげで）

colidx <- c(3,5,6,7)
for (i in 1:length(colidx)) {

  # Address only the diagonal elements
  # Get plot out of plot-matrix
  inner <- getPlot(p, i, i);

  # Add ggplot2 settings (here we remove gridlines)
  inner <- inner + theme(panel.grid = element_blank()) +
    theme(axis.text.x = element_blank())

  # Put it back into the plot-matrix
  p <- putPlot(p, inner, i, i)

  for (j in 1:length(colidx)){
    if((i==1 & j==1)){

      # Move the upper-left legend to the far right of the plot
      inner <- getPlot(p, i, j)
      inner <- inner + theme(legend.position=c(length(colidx)-0.25,0.50)) 
      p <- putPlot(p, inner, i, j)
    }
    else{

      # Delete the other legends
      inner <- getPlot(p, i, j)
      inner <- inner + theme(legend.position="none")
      p <- putPlot(p, inner, i, j)
    }
  }
}

あなたはもっと良いものを手に入れます：

r - ggpairs を使用した凡例

1 に答える 1

Related

Reference