Частичный курсив, axis.text.x

Алоха,

Для следующей гистограммы:

x <- ggplot(foo, aes(x=variety, y=percent)) + geom_bar()

Следующее выделяет курсивом весь мой текст оси x -:

x + opts(axis.text.x=theme_text(face='italic'))

Однако я хотел бы выделить курсивом только названия видов, а не контрольные.

levels(foo$variety)
"control"    "species1" "species2"     "species3" 

Какие-либо предложения?