ggplot2：将两个模型的RMSE值添加到每个方面

Question

使用此data.frame

数据

#import_data
df <- read.csv(url("https://www.dropbox.com/s/1fdi26qy4ozs4xq/df_RMSE.csv?raw=1"))

和这个脚本

library(ggplot2)
ggplot(df, aes( measured, simulated, col = indep_cumulative))+
  geom_point()+
  geom_smooth(method ="lm", se = F)+
  facet_grid(drain~scenario)

我得到了这个情节

我想在每个方面的左上角为两个模型（独立和累积;仅两个值）中的每一个添加RMSE。

我试过

geom_text(data = df , aes(measured, simulated, label= RMSE))

它导致将RMSE值添加到构面中的每个点。

我将非常感谢您将两个RMSE值仅添加到每个方面的左上角。

Answer 1

如果你想在每个方面绘制两个数字，你需要做一些数据准备以避免文本重叠。

Browser("B").HandleDialog micOK

Browser("B").HandleDialog micCancel

Browser("B").HandleDialog micOK, "value for prompt dialog"

在您的问题中，您明确告诉library(dplyr) df <- df %>% mutate(label_vjust=if_else(indep_cumulative == "accumulative", 1, 2.2)) 在ggplot2和label=RMSE点添加x=measured。要在左上角添加标签，您可以使用y=simulated和x=-Inf。所以代码看起来像这样：

y=Inf