如何放大面板以包含长传说标签

Question

我的数据看起来像this。

我目前的代码

library(ggplot2)
library(RColorBrewer)
pal <- c(brewer.pal(8,"Dark2"),brewer.pal(12,"Paired"));
dat<-read.table("http://dpaste.com/1051194/plain/",header=TRUE)
dat.sub <- data.frame(dat$Function,dat$Freq)
ggplot(dat.sub,aes(dat.Freq,color=dat.Function),shape=dat.Function)+ stat_density(geom="path",position="identity",size=0.5)

生成如下数字：

请注意，图例文本的长度会导致主图被挤压。 处理这个问题的最佳方法是什么，以使数字显得正常 并且传说中也显示了它的完整性？

Answer 1

一种可能性是在图表下放置图例，然后将标签排列在两列中。

ggplot(dat.sub,aes(dat.Freq,color=dat.Function),shape=dat.Function)+ 
  stat_density(geom="path",position="identity",size=0.5)+
  theme(legend.position="bottom",legend.direction="vertical")+
  guides(color=guide_legend(ncol=2))