写在前面。
进行可视化时，仅仅展示数据是不够的，还有各种各样的其他信息可以呈现出来帮助解读数据。
这篇文章说明一些可以向主题图形添加的独立的图形元素或者文本元素，以帮助更好地呈现信息。
注释中的数学表达式
如何添加一条含数学表达式的文本注解？
使用annotate并设置parse=TRUE选项。
ggplot(data.frame(x = c(-3,3)), aes(x = x)) + stat_function(fun = dnorm)+
annotate("text", x =2, y = 0.3, parse = TRUE,
label = "frac(1,sqrt(2*pi))*e^{-x^2/2}")
和那些利用plotmath和expression创建的数学表达式有着类似的格式。
[图片上传失败...(image-dd2c92-1697158438994)]
独立分面注释
如何向图形的各个分面添加注释？
使用分面变量创建一个新的数据框，设定每个分面要绘制的值。
f_labels <- data.frame(drv = c("4","f","r"),label = c("4wd", "Front","Rear"))
然后使用geom_text语句：
p <- ggplot(data = mpg, aes(x = displ , y = hwy)) +
geom_point() + facet_grid(.~drv) +
geom_text(data = f_labels, x = 6, y = 40, aes(label = label))
p
[图片上传失败...(image-2f946c-1697158438994)]
以上。
