我正在使用ggpubr包添加回归方程和R平方到我的图中。到目前为止,这工作得很好。
但是,我有多个方面,对于某些方面,文本标签的位置与回归线重叠。
library(ggpubr)
library(ggplot2)
df <- iris
ggscatter(df, x = "Sepal.Length", y = "Sepal.Width", facet.by = "Species", add = "reg.line") +
stat_regline_equation() +
stat_cor(aes(label = paste(..rr.label.., ..p.label.., sep = "~`,`~")),
label.y = 4.2)
是否有办法为每个面单独设置文本标签的位置?
1条答案
按热度按时间qfe3c7zg1#
我的第一个想法是使用
after_stat
来设置基于面板的标签位置。然而,结果是label.x
,...不美观。第二个想法是传递向量,但也不起作用。因此,我能想到的唯一一个为每个facet单独放置文本标签的选项是使用多个
stat_regline_equation
和stat_cor
层。为此,我使用一个 Dataframe 来指定标签位置。然后,通过faceting变量分割数据和标签 Dataframe ,并使用purrr::map2
添加标签: