总之,我的问题是如何用(1)group("|",A['i,j'],"|")
和 (2) value
为facet_grid
创建标签?
对于(1),使用expression()
,我只能让它工作没有 value
:
plot_labeller <- function(variable,value){
print(value)
if (variable=='FOO') {
expr1 <- expression(group("|",A['i,j'],"|"))
return(expr1)
} else {
return("bla")
}
}
对于(2),显示value
,使用paste()
只适用于相当简单的数学expr。例如:
plot_labeller <- function(variable,value){
if (variable=='FOO') {
expr1 <- paste("alpha"," : ",value)
return(expr1)
} else {
return("bar")
}
}
然而,paste()
不能与group()
一起工作(e:找不到函数"group")。即使没有group()
,它也不起作用:"A['i,j']"然后显示为"原样",即不应用plotmath
。使用bquote()
如:
plot_labeller <- function(variable,value){
if (variable=='FOO') {
expr1 <- bquote(group("|",A['i,j'],"|") : .(value))
return(expr1)
} else {
return("bar")
}
}
也不工作:
Error in labels[, i] <- labeller(names(label_df)[i], label_df[, i]) :
number of items to replace is not a multiple of replacement length
使用text()
打印被加引号的表达式是可以的。
我相信有一个更简单更好的方法,但这里有一个想法:
library(ggplot2)
d <- data.frame(x=1:10, y=1:10, f=gl(2,5, labels=c("FOO","BLAH")))
make_label <- function(value)
bquote(group("|",A['i,j'],"|"):.(value))
plot_labeller <- function(variable,value){
print(value)
if(variable=='f')
do.call(expression, lapply(levels(value)[value], make_label)) else "other"
}
qplot(x,y,data=d) + facet_grid(.~f, labeller=plot_labeller)