Курсив в заговоре выражения не может быть выделен жирным шрифтом в ggplot

Question

Основываясь на предыдущих постах, я разработал, как использовать expression(), чтобы получить строку внутри строки, выделенной курсивом, тогда как остальная часть строки остается не выделенной курсивом.Проблема в том, что element_text(face = "bold") не работает со строками внутри expression().

ggplot(iris, aes(x = Sepal.Width)) + 
       geom_histogram(bins = 10) + 
       ylab(expression(paste("% of group ", italic("n")))) + 
       xlab("Actual Treatment") + 
       theme(axis.title.x = element_text(face = "bold"),
             axis.title.y = element_text(face = "bold"))

Чтобы обойти это, я завернул expression() в bold() примерно так

ggplot(iris, aes(x = Sepal.Width)) + 
       geom_histogram(bins = 10) + 
       ylab(expression(bold(paste("% of group ", italic("n"))))) + 
       xlab("Actual Treatment") + 
       theme(axis.title.x = element_text(face = "bold"))

Но, увы, курсив n остается незапечатанным.Есть идеи?

Answer 1

expression(bold("% of group ")*bolditalic("n"))