ggplot使用facet_wrap在x轴上等于刻度线的数量

Question

在我的研究中，我绘制了相对产量（Y）与通过不同方法/测试（测试）测量的土壤中养分的利用率（测试值）的关系。因为我要为使用的每种方法/测试分别绘制一个图，所以在ggplot中使用了“ facet_wrap”。这工作正常，但问题是我在每个图的x轴上都无法获得相同数量的刻度。我已经尝试过使用'pretty_breaks'或编写我自己的函数来计算中断的位置，但是并没有成功...希望你们中的一个可以帮助我，或者将我重定向到stackOverflow上的解决方案。 / p>

为了说明我的问题，我在下面列出了我的问题：

TestValue<-c(0.03,2.5,5.0,7.5,10,3,20,30,40,60,20,500,750,1000,1250)
Test<-c("A","A","A","A","A","B","B","B","B","B","C","C","C","C","C")
Y<-c(50,80,80,95,105,50,80,80,95,105,50,80,80,95,105)

df<-data.frame(TestValue,Test,Y)

plot_curve<-ggplot(df,aes(x=TestValue,y=Y,Test))+
  geom_point()+
  facet_wrap(~Test,ncol=2,scales="free")+
  scale_x_continuous(expand=c(0,0))
plot_curve

这将产生三个数字，但滴答的数量不同。最好我在x轴的每个轴上都具有相同数量的刻度，如果可能的话，在同一位置上。

提前谢谢！