R 使用stat\u fit\u glance时的镶嵌面包装文本标签问题

我想知道为什么文本在情节中趋向更高。。。它不会与facet_包裹或facet_网格保持一致。在更复杂的数据集绘图中，由于重叠，文本难以辨认

以下是重现绘图和发布的数据和代码。将geom=文本添加到stat\u fit\u glance，会导致错误：离散值提供给连续刻度

---

自动设置标签位置时，分组变量中每个级别的npcy位置都会增加。您可以将站点映射到组美学，因为站点有5个级别不均匀地出现在不同的面中，“ggpmisc”中相当粗糙的算法不均匀地定位标签：五行分别对应于五个站点中的一个。我已经更改了贴图以使用颜色，因此这变得更加明显。我还删除了所有与此问题无关的代码

---

plot1自动设置标签位置时，分组变量中每个级别的npcy位置都会增加。您可以将站点映射到组美学，因为站点有5个级别不均匀地出现在不同的面中，“ggpmisc”中相当粗糙的算法不均匀地定位标签：五行分别对应于五个站点中的一个。我已经更改了贴图以使用颜色，因此这变得更加明显。我还删除了所有与此问题无关的代码

---

图1什么是公式1？由于geom_smooth上没有公式1，我无法复制您的绘图。在编辑中添加了它！谢谢你指出这一点out@FISHnR上面的代码触发了一个错误和三个与问题无关的警告。包的名称为“ggplot2”。名称不是ggplot美学的名称，因此被忽略。我编辑了上面的代码示例。什么是公式1？由于geom_smooth上没有公式1，我无法复制您的绘图。在编辑中添加了它！谢谢你指出这一点out@FISHnR上面的代码触发了一个错误和三个与问题无关的警告。包的名称为“ggplot2”。名称不是ggplot美学的名称，因此被忽略。我编辑了上面的代码示例。ggpmisc 0.3.3正在前往CRAN的途中，应该很快可以使用。ggpmisc 0.3.3正在前往CRAN的途中，应该很快可以使用。

library(ggpmisc)
library(ggplot2)

DF <- data.frame(Site = rep(LETTERS[20:24], each = 4),
                 Region = rep(LETTERS[14:18], each = 4),
                 time = rep(LETTERS[1:10], each = 10),
                 group = rep(LETTERS[1:4], each = 10),
                 value1 = runif(n = 1000, min = 10, max = 15),
                 value2 = runif(n = 1000, min = 100, max = 150))
DF$time <- as.numeric(DF$time)
formula1 <- y~x
plot1 <- ggplot(data=DF, 
                aes(x=time, y= value2,group=Site)) +
  geom_point(col="gray", alpha=0.5) +
  geom_line(aes(group=Site),col="gray", alpha=0.5) +
  geom_smooth(se=F, col="darkorange", alpha=0.8, fill="orange",
              method="lm",formula=formula1) +
  theme_bw() + 
  theme(strip.text.x = element_text(size=10),
        strip.text.y = element_text(size=10, face="bold", angle=0),
        strip.background = element_rect(colour="black", fill="gray90"),
        axis.text.x = element_text(size=10),  # remove x-axis text
        axis.text.y = element_text(size=10), # remove y-axis text
        axis.ticks = element_blank(),  # remove axis ticks
        axis.title.x = element_text(size=18), # remove x-axis labels
        axis.title.y = element_text(size=25), # remove y-axis labels
        panel.background = element_blank(), 
        panel.grid.major = element_blank(),  #remove major-grid labels
        panel.grid.minor = element_blank(),  #remove minor-grid labels
        plot.background = element_blank()) + 
  labs(y="", x="Year", title = "")+ facet_wrap(~group)

plot1 + stat_fit_glance(method = "lm", label.x="right", label.y="bottom",
                        method.args = list(formula = formula1),
                        aes(label = sprintf('R^2~"="~%.3f~~italic(p)~"="~%.2f',
                                            stat(..r.squared..),stat(..p.value..))),
                        parse = TRUE)