我正在尝试在以下facet_grid
的每个图中添加标签(大写字母):
p <- ggplot(mpg, aes(displ, cty)) + geom_point()
p + facet_grid(drv ~ cyl)
我想拥有的是:
我遇到的主要问题是1)我的Y轴可以自由缩放,因此无法输入每个坐标的特定坐标。 2)我不确定我应该在这里搜索哪些关键字,我敢肯定facet_grid
中可以找到一种方法,但是我找不到它。
答案 0 :(得分:1)
这个怎么样?将标签的位置固定在每个绘图面板的左上角:
p + facet_grid(drv ~ cyl)+ annotate('text', label = LETTERS[1:12], x=min(mpg$displ), y=max(mpg$cty))
您可以随意替换标签= c('aaa','bb','fff'....),但必须与面图数量相同。
您还可以使用以下方法来微调标签位置,使其与两个轴成比例:
x=mean(mpg$displ)*0.6, y=max(mpg$cty)*0.97