You tried to do it yourself first, didn't you?? Here's how I got it (but this is not the only way):

hist(plac, lwd=2)
legend(12,.6,legend=row.names(pData(plac)),col=palette()[1:nrow(pData(plac))],lty=1:nrow(pData(plac)))