How about this:

ggplot(mtcars, aes(mpg, disp))+
    geom_point()+
    annotate("text",25,400, label=("'Large fish' >= 45 ~ 'cm'"), parse=TRUE, hjust=0)