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

Question

Я пытаюсь построить гистограмму с двумя наложенными друг на друга кривыми в R. В настоящий момент все работает, кроме легенды.Я хочу одну легенду, которая включает в себя поля для гистограммы и линии для подогнанных кривых.Я могу заставить его работать с кодом ниже, но это создает две отдельные легенды.Можно ли объединить легенды в один ящик?

truehist(
    data=DismissalRateData$DismissalRate,
    breaks=seq(.6, 1, by=.025),
    col="lightgreen",
    prob=TRUE, 
    ylab="Density",
    xlab="Claim Dismissal Rate", 
    main="Histogram of Historical Claim Dismissal Rates \n(With Superimposed Beta Curve Fits)", 
    xaxt='n',
    yaxt='n',
    ylim=c(0,14)
    )

curve(
    dbeta(x, FittedAlphaParameter, FittedBetaParameter),
    add=TRUE,
    col="red", 
    lwd=3
    )

curve(
    dbeta(x, 100.2753, 11.5809),
    add=TRUE,
    col="blue", 
    lwd=3
    )

axis(
    side=1, 
    at=seq(.6, 1, by=.025),
    labels=formattable::percent(seq(.6, 1, by=.025),digits=0)
    )

legend(x="topleft", legend="Actual Data", fill="lightgreen", col="black")

legend(x="left" ,
    legend=c("Beta fitted with all data 2006-2017", "Beta fitted excluding 2006-2008"),
    col=c("red", "blue"), 
    lty=1, lwd=3)