散點圖：使用多個變量更改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)