散点图：使用多个变量更改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)