Объединение легенды линии и гистограммы в R

Есть ли способ сделать это?

Мой текущий код:

barplot(to_plot_bar,col=cm.colors(6,alpha=1),width=0.75,space=0.2,names.arg=x)
lines(dat_dens,lty=1,col="black");
legend("topright",ltext,bty="n",fill=cm.colors(6),
lty = c(0,0,0,0,0,0,1), lwd = c(0,0,0,0,0,1));

Создайте такую ​​легенду.

введите здесь описание изображения


r plot legend
person neversaint    schedule 15.05.2012    source источник

Ответы (1)


arrow_upward
6
arrow_downward

Попробуй это

ltext1 <- c(ltext,"emp") # this is not necessary if you already added 
legend("topright",ltext1,bty="n",col=c(cm.colors(6),"black"),pch=c(rep(15,6),-1),
       lty = c(0,0,0,0,0,0,1));
person vinux    schedule 15.05.2012