是否有一种方法可以指定custom_annotation
仅适用于ggplot的一个方面?
例如,如果我运行以下代码
library(tidyverse)
library(grid)
text_grob=grobTree(textGrob("text",x=0.5, y=0.6, rot=90,
gp=gpar(col="red")))
ggplot(mtcars, aes(x=mpg, y =drat))+
geom_point() +
facet_wrap(~cyl) +
annotation_custom(overrep_grob)
我明白了
如何仅保留最右边的红色“文本”注释,而不能在前两个方面添加“文本”注释?注意我不能使用geom_text
或annotate
,因为我需要利用textGrob的相对文本定位
答案 0 :(得分:2)
您也可以使用geom_text
通过计算所需文本的相对位置来执行此操作。请注意,此处的相对位置与您在上面使用的相对位置略有不同,因为在此我将相对位置定义为动态范围的某个比例。您可以为rel选择其他值以获得所需的头寸。我发现这种方式可以减少定位的随意性。
library(tidyverse)
rel_pos <- function(.data, var, rel){
var <- enquo(var)
.data %>%
summarise(x = sum(max(!!var), min(!!var))* rel) %>% .[1, "x"]
}
my_text <- data_frame(mpg = rel_pos(mtcars, mpg, 0.5),
drat = rel_pos(mtcars, drat, 0.6) ,
cyl = 8, lab = "text")
ggplot(mtcars, aes(x=mpg, y =drat))+
geom_point() +
facet_wrap(~cyl)+
geom_text(data = my_text, aes(label = lab), color = "red", angle = 90)
由reprex package(v0.2.0)于2018-08-15创建。
答案 1 :(得分:1)
egg
具有geom_custom
,
library(ggplot2)
library(grid)
library(egg)
d = data.frame(cyl=6, drat = 4, mpg = 15)
d$grob <- list(textGrob("text",rot=90, hjust = 0, gp=gpar(col="red")))
ggplot(mtcars, aes(x=mpg, y=drat))+
geom_point() +
facet_wrap(~cyl) +
geom_custom(data = d, aes(data = grob), grob_fun = identity)