ggplot2：凡例カテゴリの書式設定

Question

https://stackoverflow.com/a/30036603、「axis.text.x」ではなく「legend.text」を除いて、このようなことをしたいと思います。これは可能ですか？

それはそれは、現在（すべて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"))) 

Answer 1

のではなく、テーマをいじって、あなたはイタリックの単語を含むことができ、式を描くようにスケールを調整することができます。例えば

toexpr<-function(x) { 
    getfun <- function(x) { 
    ifelse(x=="Cucumbers", "plain", "italic") 
    } 
    as.expression(unname(Map(function(f,v) substitute(f(v), list(f=as.name(f), v=as.character(v))), getfun(x), x))) 
} 

ggplot(data = data) + 
    geom_bar(aes(x = labs, y = counts,fill=labs), stat="identity") + 
    scale_x_discrete(breaks =levels(data$labs), labels = toexpr(levels(data$labs))) + 
    scale_fill_discrete(breaks=levels(data$labs), labels = toexpr(levels(data$labs))) + 
    theme(legend.text.align = 0) 

あなたは自己完結型[再現性の例を]（提供された場合助けるために容易になるだろう