2014-12-31 10 views
9

長い凡例を2つの列に入れたいと思います。他の場所にある解決策で使用しているコードはgeom='area'では機能しませんが、私の他のプロットでは機能します。 single column legendggplot2凡例を2つの列に配置して領域プロットを作成する方法

私はどのようにしてQ1を2列の凡例でプロットしますか?

NVER <- 10 
NGRID <- 20 
MAT <- matrix(NA, nrow=NVER, ncol=NGRID) 
gsd <- 0.1 # standard deviation of the Gaussians 

verlocs <- seq(from=0, to=1, length.out=NVER) 
thegrid <- seq(from=0, to=1, length.out=NGRID) 
# create a mixture of Gaussians with modes spaced evenly on 0 to 1 
# i.e. the first mode is at 0 and the last mode is at 1 
for (i in 1:NVER) { 
    # add the shape of gaussian i 
    MAT[i,] <- dnorm(thegrid, verlocs[[i]], sd=gsd) 
} 
M2 <- MAT/rowSums(MAT) 
colnames(M2) <- as.character(thegrid) 
# rownames(M2) <- as.character(verlocs) 
library(reshape2) 
D2 <- melt(M2) 
# head(D2) 
# str(D2) 
D2$Var1 <- ordered(D2$Var1) 
library(ggplot2) 
Q1 <- qplot(Var2, value, data=D2, order=Var1, fill=Var1, geom='area') 
Q1 
# ggsave('sillyrainbow.png') 
# now try the stackoverflow guide() solution 
Q1 + guides(col=guide_legend(ncol=2)) # try but fail to put the legend in two columns! 

creating columns within a legend list while using ggplot in R code内の溶液が上記組み込まれ、それが、残念ながら動作しないことに注意してください!

答えて

15

誤ったガイドを参照しています。

Q1 + guides(fill=guide_legend(ncol=2)) 

resulting plot

関連する問題