r - 如何放大面板以包含长图例标签

Question

我有看起来像这样的数据。

我当前的代码在这里

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