2つのggplotと共通の凡例をプロットしたサブプロット？

Question

私はプロットオブジェクトに変換された2つのggplotオブジェクトを手配し、共通の凡例を1つ使用しようとしています。しかし、伝説は何とか倍増さ：

df1 <- read.table(text = "group x  y 
       group1 -0.212201 0.358867 
       group2 -0.279756 -0.126194 
       group3 0.186860 -0.203273 
       group4 0.417117 -0.002592 
       group1 -0.212201 0.358867 
       group2 -0.279756 -0.126194 
       group3 0.186860 -0.203273 
       group4 0.186860 -0.203273", header = TRUE) 

df2 <- read.table(text = "group x  y 
       group1 0.211826 -0.306214 
       group2 -0.072626 0.104988 
       group3 -0.072626 0.104988 
       group4 -0.072626 0.104988 
       group1 0.211826 -0.306214 
       group2 -0.072626 0.104988 
       group3 -0.072626 0.104988 
       group4 -0.072626 0.104988", header = TRUE) 
library(dplyr) 
library(ggplot2) 
library(plotly) 

p1 <- ggplot(df1, aes(x = x, y = y, colour = group)) +  
    geom_point(position = position_jitter(w = 0.04, h = 0.02), size = 1.8) 

p2 <- ggplot(df2, aes(x = x, y = y, colour = group)) + 
    geom_point(position = position_jitter(w = 0.04, h = 0.02), size = 1.8) 

subplot(ggplotly(p1), ggplotly(p2), nrows = 1) 

私は

subplot(ggplotly(p1), ggplotly(p2), nrows = 1) %>% layout(showlegend = FALSE) 

を試みたが、全体の伝説はちょうど私が2つとダブル伝説を修正することができませんでした

Answer 1

を消滅します別のプロットを作成しますが、2つのデータフレームを結合して1つのファセットプロットを作成することもできます。凡例の問題にかかわらず、ファセットを使用して単一のデータフレームを使用する方が、各データフレームでグループ化変数が同じであれば、より自然なアプローチのように見えます。以下の例では、あなたの例に合うようにファセットストリップを削除しましたが、themeステートメントを削除することでそれらを保持することができます。答えを

p = ggplot(bind_rows(df1 %>% mutate(df="df1"), df2 %>% mutate(df="df2")), 
     aes(x = x, y = y, colour = group)) + 
    geom_point(position = position_jitter(w = 0.04, h = 0.02), size = 1.8) + 
    facet_wrap(~ df, scales="free") + 
    theme(strip.text=element_blank()) 

ggplotly(p)