如题,不知是否表达清楚,我知道R里有plotmath,方便作图里面输入标题等公式、符号等信息。
但我觉得使用latex输入公式、希腊字母,特殊符号更方便一些,网上找了一个包叫做latex2exp,但它支持的不是很全,例如不能输入大写希腊字母,只能小写,不知各位还知道其他的包能完成这个任务吗?多说无益,直接上它的示例代码吧。
library(plyr)
library(ggplot2)
x <‐ seq(0, 4, length.out=100)
alpha <‐ 1:5
data <‐ mdply(alpha, function(a, x) data.frame(v=a*x^a, x=x), x)
p <‐ ggplot(data, aes(x=x, y=v, color=X1)) +
geom_line() +
ylab(TeX('$\\alpha x^\\alpha$, where $\\alpha \\in 1\\ldots 5$')) +
ggtitle(TeX('Using $\\LaTeX$ for plotting in ggplot2. I $\\heartsuit$ ggplot!')) +
coord_cartesian(ylim=c(‐1, 10)) +
guides(color=guide_legend(title=NULL)) +
scale_color_discrete(labels=lapply(sprintf('$\\alpha = %d$', alpha), TeX))
# Note that ggplot2 legend labels must be lists of expressions, not vectors of expressions
print(p)