# Solution 1 sp2 + geom_text(x=3, y=30, label="Scatter plot") # Solution 2 sp2 + annotate(geom="text", x=3, y=30, label="Scatter plot", color="red")