Создание легенды нескольких столбцов в ggplot

Question

У меня есть следующий скрипт, который предположим, что создал сюжет с двумя легендами столбца.

#!/usr/bin/Rscript 
library(ggplot2) 
library(plyr) 
library(reshape2) 
library(scales) 

file <- "http://dpaste.com/1354089/plain/"; 
dat <-read.table(file,header=TRUE); 
datm <- melt(dat) 

# Plot them 
ggplot(datm,aes(x = variable,y = value,fill = Term)) + 
geom_bar(position = "fill") + 
scale_y_continuous(labels = percent_format())+ 
theme(legend.direction ="vertical",legend.position = "bottom")+ 

guides(color=guide_legend(ncol=2))+ # this doesn't seem to work 

ggsave(file="~/Desktop/test.pdf",width=11,height=11) 

Но он создает эту цифру вместо

Как я могу сделать это правильно?

Answer 1

вы должны назначить руководство по правильному эстетическому и вы использовали заливку:

guides(fill=guide_legend(ncol=2)) 

И вы должны заботиться о предупреждении с geom_bar