散点图：用多个变量改变X轴的距离

Question

我想用散点图绘制一些数字数据。我使用以下代码将数据绘制为散点图，并为不同的变量使用相同的轴。

library(car)
data("Anscombe")
mydat <- melt(Anscombe,"urban")
ggplot(mydat,aes(value,urban ))+geom_point() + 
     facet_grid(.~variable)+geom_smooth(method="lm", se=F)

这是绘图，三个变量的x轴值范围相同。我不能很好地看到变量教育的要点。 plot1

所以我试着改变x轴的范围。以下是代码。

ggplot(mydat,aes(value,urban ))+geom_point() + 
facet_grid(.~variable)+ geom_smooth(method="lm", se=F)+
coord_cartesian(xlim = c(0,450), ylim = NULL, expand = TRUE)

现在我可以看到变量教育的价值。但是收入的价值已经消失了，因为收入的价值是> 450。 plot2

如何更改每个变量的x轴值而不是全部更改？如果有人可以帮助我，我将不胜感激？

Answer 1

您需要的是附加参数scales = "free"：

ggplot(mydat, aes(value, urban)) + 
  geom_point() + 
  facet_grid(. ~ variable, scales = "free") + 
  geom_smooth(method = "lm", se = FALSE)