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

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