我希望能够做到这样的事情:https://stackoverflow.com/a/30036603,除了" legend.text"而不是" axis.text.x"。这可能吗?
它会是这样的,除非它目前没有工作(所有labs
都是斜体):
data <- data.frame(labs = c("Oranges", "Apples", "Cucumbers"), counts = c(5, 10, 12))
ggplot(data = data) +
geom_bar(aes(x = labs, y = counts,fill=labs), stat="identity") +
theme(axis.text.x=element_text(face=ifelse(levels(data$labs)=="Cucumbers","plain","italic"))) +
theme(legend.text=element_text(face=ifelse(levels(data$labs)=="Cucumbers","plain","italic")))