r - 非常に長いテキストを含む単一の凡例を ggplot2 facet_grid に追加する

Question

R ggplot2 ライブラリを使用して、facet_grid プロットを生成しています。すべてのプロットの右側に凡例を配置したいと考えています。個々のプロットではなく、すべてのプロットで機能する 1 つの凡例です。

g = ggplot(pd2, aes(x = p/1000, y=c/1000 )) + 
  geom_point(alpha=.1, colour="red") + 
  geom_smooth(method=lm) + 
  xlab("Ave P") +
  ylab("Ave C)") +
  labs(title = "Comparison ") +
  theme(plot.title = element_text(face="bold",
           size=14, colour="black", hjust = 0.5)) +
  theme(axis.title = element_text(face="bold", size=12, colour="blue")) +
  facet_grid(code ~ TheState) +
  theme(strip.text.y = element_text(colour = "purple", angle = 0, 
        size = 9, hjust = 0.5, vjust = 0.5)) 

私がやりたいのは、凡例を 90 度回転させて右にオフにすることです。これは、凡例が単なる「コード」ではなく、very_long_code を参照するようにするためです。凡例、テーマ、ガイドのあらゆる種類のバリエーションを試しました。直感的に言いたいのは、

legend(text, angle=90, very_long_code, color="purple")

次のステップは、単一の色を使用するのではなく、ストリップの色に対応する色ごとに異なる色を使用することです.