シンボルin ggplotファセットストリップテキスト

Question

G * をファセットストリップテキストに入力します。私は*を得ることができ、私はG を得ることができますが、私は同時にそれらを得ることができません。私はそれがかもしれないと思った最初のコメントを読んだ後

df<-data.frame(mu=rnorm(12,0,1), p=rnorm(12,0,1), alpha=as.factor(rep(1:4,each=3))) 

#This won't run 
ggplot(df)+ 
    geom_point(aes(x=mu,y=p))+ 
    facet_wrap(~alpha, labeller =label_bquote(Q*"*"*[.(alpha)])) 

#This puts the star way too high 
ggplot(df)+ 
    geom_point(aes(x=mu,y=p))+ 
    facet_wrap(~alpha, labeller =label_bquote(Q[.(alpha)]^paste("*"))) 

#This puts the star too far right 
ggplot(df)+ 
    geom_point(aes(x=mu,y=p))+ 
    facet_wrap(~alpha, labeller =label_bquote(Q[.(alpha)]*"*")) 

#This puts U+2605 instead of the star 
ggplot(df)+ 
    geom_point(aes(x=mu,y=p))+ 
    facet_wrap(~alpha, labeller =label_bquote(Q[.(alpha)]^"\u2605")) 

：ここでは小さな一例です（。上の写真は、1があまりにも遠くに出ていることから、thisが少し優れている、かなり右まだありません）フォントが、私は使用して表示するように星を取得することができます。これは動作するはずのよう

df<-data.frame(mu=rnorm(12,0,1), p=rnorm(12,0,1), alpha=paste("\u2605",rep(1:4,each=3))) 

ggplot(df)+ 
    geom_point(aes(x=mu,y=p))+ 
    facet_wrap(~alpha) 

Answer 1

は私に見える：

library(ggplot2) 

ggplot(df)+ 
    geom_point(aes(x=mu,y=p))+ 
    facet_wrap(~alpha, labeller = label_bquote("Q"*"*"[.(alpha)]))