Tag: substitute legend with title in ggplot2