r - 在各个构面的相同绘图位置打印相关数据

Question

我有一个刻面的ggplot2散点图，并且像here和here一样，希望在每个面上打印有关线性回归的摘要统计信息。与这些示例不同，我使用的是scales="free"，每个构面中的数据范围完全不同，但是我希望摘要统计信息在每个构面中以相同的相对位置显示(例如右上角或其他位置)。如何为geom_text或annotate指定标签应相对于面板出现在相同位置？

我现在的位置:

# Fake data
set.seed(2112)
x <- c(1:10, 6:15)
y <- x + c(runif(10), runif(10)*10)
l <- gl(2, 10)
d <- data.frame(x=x, y=y, l=l)

# Calculate a summary statistic (here, the r-squared) in a separate data frame
r_df <- ddply(d, .(l), summarise, rsq=round(summary(lm(y~x))$r.squared, 2))

# Use geom_text and a separate data frame to print the summary statistic
ggplot(d, aes(x=x, y=y)) +
  geom_text(data=r_df, aes(x=8, y=8, label=paste("rsq=", rsq)))+
  geom_point() + 
  facet_wrap(~l, scales="free")

相反，我想让 ggplot自动将文本定位在每个构面的相同相对位置中。

Answer 1

如果要相对于角放置它们，可以通过指定x或y的Inf或-Inf位置来实现:

ggplot(d, aes(x=x, y=y)) +
  geom_text(data=r_df, aes(label=paste("rsq=", rsq)), 
            x=-Inf, y=Inf, hjust=-0.2, vjust=1.2)+
  geom_point() + 
  facet_wrap(~l, scales="free")

我还调整了 hjust和 vjust，以便通过将其稍微移开，使标签不在图形的确切角上。