Ggplot Legends - Odd Issue

Question

Итак, я делаю сюжет в ggplot, который представляет собой комбинацию гистограммы и строки, и я хочу добавить легенду. Все, что я видел в R Cookbook о легендах в ggplot, включает в себя модификацию стандартной легенды, которая выкатывается, когда вы делаете один тип сюжета через ggplot. данных:

x=c(0:10) 
y1=c(0,.5,1,1.5,2,2.5,3,3.5,4,4.5,5) 
y2=append(c(1:5),c(6,8,10,12,14,16)) 
mydata=as.data.frame(cbind(x,y1,y2)) 

вызов я делаю прямо сейчас, имеет вид:

ggplot(data=mydata)+geom_bar(aes(x=x,y=y1,col=c1),stat="identity") + 
geom_line(aes(x=x,y=y2,col=c2,group=1)) 

Я могу полностью сделать это как две диаграммы, но я бы предпочел сделать это с одним. Проблема в том, что легенда автоматически генерируется, когда есть только один тип сюжета, но нет, если есть два типа графиков. Мне было интересно, если есть какой-то способ иметь легенду с обоими типами там. Есть идеи?

Answer 1

Это:

library(ggplot2) 

set.seed(1492) 
mydata <- data.frame(x=c(0:10), 
        y1=c(0,.5,1,1.5,2,2.5,3,3.5,4,4.5,5), 
        y2=c(1:5, c(6,8,10,12,14,16)), 
        c1=sample(1:4, 11, replace=TRUE), 
        c2=sample(letters[1:4], 11, replace=TRUE)) 

gg <- ggplot(data=mydata) 
gg <- gg + geom_bar(aes(x=x, y=y1, fill=c1), stat="identity") 
gg <- gg + geom_line(aes(x=x, y=y2, col=c2, group=1)) 
gg 

работает отлично:

Вы получили условные обозначения для всех отображенных эстетики.