将具有非常长文本的单个图例添加到ggplot2 facet_grid

Question

使用R ggplot2库，我生成了一个facet_grid图，我想把一个图例放在所有图的右边--NOT EACH INDIVIDUAL PLOT，但是一个适用于所有图的图例

<xsl:when test="$input!= ''">

我想要做的是在右边有一个90度的传奇 - 因为我希望图例引用very_long_code而不仅仅是＆＃34;代码。＆＃34;我尝试过各种各样的传奇，主题和指南。直觉，我想说，

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)) 

下一步是不使用单一颜色，而是为每个颜色使用不同的颜色，这些颜色与条带中的颜色相对应。