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

Чтобы создать фрейм данных с аналогичной структурой:

out<-data.frame(security=c("A", "B", "C", "D", "A", "B", "C", "D"), avg_weight=c(0.1,0.2,0.3,0.4, 0.1, 0.2, 0.3, 0.4), return_type=c(rep("systematic",4), rep("idiosyncratic",4)), return=rnorm(8))

Теперь для построения

g <- ggplot(data=out, aes(x=factor(security, levels=out$security), y=return))
g <- g + geom_bar(stat="identity", position="dodge", aes(fill=return_type))
g <- g + geom_point(aes(x=factor(security, levels=out$security), y=avg_weight))
g <- g + ggtitle("Systematic and Idiosyncratic Returns")
g <- g + theme(axis.text.x=element_text(angle=70, hjust=1))
g + xlab("Security Description") + ylab("Return")

Как я могу получить третью запись в легенде, что-то вроде:Экспозиция