我有不到ggplot个
library(ggplot2)
set.seed(1234)
ss <- sample(1:32, 15)
df <- mtcars[ss, ]
ggplot(df, aes(wt, mpg)) +
geom_point(color = 'red') +
geom_label(aes(x = 2, y = 15), label = 'My Text', size = 10, label.size = 2, label.padding = unit(0.95, "lines"), fill = 'red', alpha = 0.50, color = 'black', label.r = unit(0.45, "lines"))
虽然它工作得很好，但我想再增加几个美观，如下所示
有没有办法实现这些目标？任何指针都会非常有用
透明度的问题是，您为数据中的每一行添加了一个标签(在即将到来的ggplot2版本中，您将得到关于这一点的消息)，即15个彼此绘制的略微透明的对象看起来没有应用透明度.因此，如果您只想要一个标签，请使用annotate或使用geom_label/text中的单行数据框.关于您的第三个问题，如果您想在相对坐标中放置注释，我建议使用annotation_custom，但这需要将您的标签作为Grob传递.不幸的是，用于geom_label的labelGrob不能在ggplot2年前出口.取而代之的是，我换成了gridtext::richtext_grob(这是为ggtext提供动力的Grob).作为一个额外的好处，这已经增加了更多的定制选项，例如，你可以为轮廓和文本设置不同的 colored颜色 .请注意，为了将透明度应用到填充 colored颜色 ，我使用了scales::alpha.
library(ggplot2)
set.seed(1234)
ss <- sample(1:32, 15)
df <- mtcars[ss, ]
ggplot(df, aes(wt, mpg)) +
geom_point(color = "red") +
annotation_custom(
gridtext::richtext_grob(
text = "My Text",
x = unit(0, "npc") + unit(5, "pt"),
y = unit(1, "npc") - unit(5, "pt"),
hjust = 0,
vjust = 1,
padding = unit(0.95, "lines"),
r = unit(0.45, "lines"),
gp = grid::gpar(
col = "black"
),
box_gp = grid::gpar(
col = "blue",
lwd = 2 * .pt,
fill = scales::alpha("red", .5)
)
)
)
