ggplot facet_grid標籤上標

Question

我無法在facet_grid標籤中添加下標。這是 我一直在努力做的工作的一個例子。

df <- data.frame(species=gl(2,10,labels=c('sp1','sp2')), 
       age=sample(3:12,40,replace=T), 
       variable=gl(2,20,labels=c('N1P1 var','N2P1 var')), 
       value=rnorm(40)) 

test.plot <- ggplot(data=df,aes(x=age,y=value)) + 
      geom_point() + 
      facet_grid(variable~species) 

現在我想通過垂直面標籤爲「N [1] P [1]變種」等等， 其中平方托架的數字指標作。

我已經在這個平臺上諮詢過這方面的一些幫助，但沒有人幫助我。按照建議使用expression,bquote，但沒有任何工作！

Answer 1

你需要做兩件事情： 首先，讓你的標籤爲plotmath表達式

variable_labels <- 
    c(expression(paste(N[1],P[1]~var)), expression(paste(N[2],P[1]~var))) 

df <- data.frame(species=gl(2,10,labels=c('sp1','sp2')), 
       age=sample(3:12,40,replace=T), 
       variable=gl(2,20,labels=variable_labels), 
       value=rnorm(40)) 

然後更改facet_grid默認貼標機功能"label_parsed"

test.plot <- ggplot(data=df,aes(x=age,y=value)) + 
    geom_point() + 
    facet_grid(variable~species, labeller = "label_parsed")