Eu tenho um ggplot onde eu useiexpression(phantom(x) >=80) no texto da etiqueta para obter um símbolo adequado maior que ou igual.

No entanto, eu também preciso ter (N = ...) imediatamente abaixo:

require(ggplot2)
.d <- data.frame(a = letters[1:6], y = 1:6)

labs <- c("0-9\n(N=10)","10-29\n(N=10)","30-49\n(N=10)", +
   "50-64\n(N=10)","65-79\n(N=10)", expression(phantom(x) >=80))

ggplot(.d, aes(x=a,y=y)) + geom_point() + 
   scale_x_discrete(labels = labs)

Como posso combinar oexpression() com o escape\n ?