Este grupo redactor ha estado mucho tiempo buscando para darle espuestas a tus dudas, te brindamos la solución por eso nuestro deseo es servirte de mucha ayuda.
Solución:
Aquí hay un código con un maniquí geom_blank capa,
range_act <- range(range(results$act), range(results$pred))
d <- reshape2::melt(results, id.vars = "pred")
dummy <- data.frame(pred = range_act, value = range_act,
variable = "act", stringsAsFactors=FALSE)
ggplot(d, aes(x = pred, y = value)) +
facet_wrap(~variable, scales = "free") +
geom_point(size = 2.5) +
geom_blank(data=dummy) +
theme_bw()
No estoy seguro de entender lo que quieres, pero basándome en lo que entendí
la escala x parece ser la misma, es la escala y la que no es la misma, y eso se debe a que especificó scales ="free"
puede especificar scales = "free_x" para permitir que x solo sea libre (en este caso, es lo mismo que pred tiene el mismo rango por definición)
p <- ggplot(plot, aes(x = pred, y = value)) + geom_point(size = 2.5) + theme_bw()
p <- p + facet_wrap(~variable, scales = "free_x")
funcionó para mí, ver la imagen
Creo que lo estabas haciendo demasiado difícil. Me parece recordar una vez que definí los límites en función de una fórmula con mínimo y máximo y, si se facetó, creo que usó solo esos valores, pero no puedo encontrar el código.
También puede especificar el rango con el comando coord_cartesian para establecer el rango del eje y que desee, como en la publicación anterior use scales = free_x
p <- ggplot(plot, aes(x = pred, y = value)) +
geom_point(size = 2.5) +
theme_bw()+
coord_cartesian(ylim = c(-20, 80))
p <- p + facet_wrap(~variable, scales = "free_x")
p
Si guardas algún recelo y disposición de beneficiar nuestro crónica puedes dejar una ilustración y con mucho gusto lo ojearemos.