Jak sprawić, aby część tekstu etykiety została przekreślona na etykiecie wydruku?

Na przykład, aby odczytać etykietę osi Y ”przekreślenie tekst na etykiecie?"

 ggplot(mpg, aes(x=displ, y=hwy)) 
        + geom_point() 
        + ylab("~~strikethrough~~ text in a label?")

Dość małe pytanie, które uważałem za całkiem trywialne, aby znaleźć rozwiązanie, ale bez skutku po chwili patrzenia.