我正在创建一个刻面图,以预测值与残差的图表并排查看预测值与实际值.我将shiny用于帮助探索使用不同训练参数的建模工作的结果.我用85%的数据训练模型,测试剩余的15%,并重复5次,每次收集实际/预测值.计算残差后,我的data.frame样子如下:
head(results)
act pred resid
2 52.81000 52.86750 -0.05750133
3 44.46000 42.76825 1.69175252
4 54.58667 49.00482 5.58184181
5 36.23333 35.52386 0.70947731
6 53.22667 48.79429 4.43237981
7 41.72333 41.57504 0.14829173
Run Code Online (Sandbox Code Playgroud)
我想要的是:
pred与act和pred对比residpred对act是相同的,理想地从min(min(results$act), min(results$pred))至max(max(results$act), max(results$pred))pred与resid 不被通过我做什么实际与预测的情节影响.x只绘制预测值并y仅绘制剩余范围就可以了.为了并排查看两个图,我将数据融化:
library(reshape2)
plot <- melt(results, id.vars = "pred")
Run Code Online (Sandbox Code Playgroud)
现在情节:
library(ggplot2)
p <- ggplot(plot, aes(x = pred, y = …Run Code Online (Sandbox Code Playgroud) library(tidyverse)
ggplot(mpg, aes(displ, cty)) +
geom_point() +
facet_grid(rows = vars(drv), scales = "free")
Run Code Online (Sandbox Code Playgroud)

上面的代码ggplot包括三个板4,f和r。我希望每个面板的y轴限制如下:
Panel y-min y-max breaks
----- ----- ----- ------
4 5 25 5
f 0 40 10
r 10 20 2
Run Code Online (Sandbox Code Playgroud)
如何修改我的代码来完成此任务?不知道是否scale_y_continuous更有意义,或coord_cartesian,或两者的某种组合。