Отрегулируйте высоту линии в прямых метках

Question

У меня есть график, к которому я хочу добавить метки. У этикетки есть новые линии (\n). Как мне отрегулировать высоту линии этих меток? Я пытался настроить text в theme, но это не имеет видимого эффекта. (Я бы хотел, чтобы высота линии была уменьшена в этом случае).

library(ggplot2)
library(directlabels)
tx <- time(mdeaths)
Time <- ISOdate(floor(tx),round(tx%%1 * 12)+1,1,0,0,0)
uk.lung <- rbind(data.frame(Time,sex="male\n(men)",deaths=as.integer(mdeaths)),
                 data.frame(Time,sex="female\n(women)",deaths=as.integer(fdeaths)))
p <- qplot(Time,deaths,data=uk.lung,colour=sex,geom="line")+
  xlim(ISOdate(1973,9,1),ISOdate(1980,4,1)) + 
  theme(text = element_text(lineheight = 0.5))  # this seems to have no effect
direct.label(p,"last.points")