I've been having fun playing around with the riverplot package, as in the below example.
Is there a way to add a legend to a riverplot, showing what the colors correspond to? I'm imagining something below the plot with blocks of colors and text saying what those colors are.
library(riverplot)
river <- riverplot.example()
test <- plot(river,plot_area=0.9)