Rで凡例を最適化する最良の方法

Question

Rで外部.pngプロットを作成したいのですが、凡例に100以上の異なるエントリがある可能性があります（非常に可変です）。基本的に私は、このプロットを作成する最良の方法を見つけようとしています。これは、凡例の中に潜在的に存在する可能性のある要素の数を補うためです。

これは、現時点で私が持っているスクリプトです：あなたは伝説のページオフ実行されて見ることができるように

：

png() 
layout(rbind(1, 2), height=c(7, 1)) 
par(xpd=T) 
xnum=c(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20) 
xdesc=c("low","med2","high3","low4","low5","med6","high3","low2","high1","high1","low6","med27","high36","low44","low55","med62","high33","low332","high15","high16") 
x=data.frame(xnum,xdesc) 
y=c(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20) 
plot(x[,1],y,pch=as.numeric(x[,2])) 
legend("bottomleft", inset=c(0,-0.2), legend=as.factor(unique(x[,2])),pch=as.factor(unique(x[,2])),cex=0.8,horiz=T) 
dev.off() 

これは次のようになります。凡例を最適化するのに役立つすべてのソリューションを誰かが持っているので、要素が何個であっても常に表示されます。 ggplot2を使用して

Answer 1

、これはあなたの伝説の各行に〜7グループを置く：あなたは、単一のプロットに表さ100のカテゴリかけたい特定の

x$y <- y 
ggplot(x, aes(x=xnum, y=y, group=xdesc, color=xdesc)) + geom_point() + guides(col= guide_legend(position="bottom", nrow=round(length(unique(x$xdesc))/7))) + theme(legend.position="bottom")