R的GGplot中的对数图上的线性刻度

Question

在R中，是否有任何方法可以在具有对数轴的图上绘制线性刻度线？我在散点图上绘制了一堆对数 - 对数回归，但我希望最终的轴在比例上是线性的。因此，我从日志数据开始，绘制一系列回归，并使用＆＃34; coord_trans（x =＆＃34; exp＆＃34;，y =＆＃34; exp＆＃34;）＆＃34 ;获取在线性空间中绘制的数据。但是，轴上仍然有对数刻度。有没有办法让轴具有线性刻度？

这是我的代码：

ggplot(oj,aes(x=logprice,y=logmove, color = factor(brand))) + geom_point() + geom_smooth(se=F, method=lm, colour="black") +
  geom_smooth(aes(dtimeslp,logmove), method=lm, se=F, colour="red", data=dft) + 
  geom_smooth(aes(mmtimeslp,logmove), method=lm, se=F, colour="green", data=mmft) + 
  geom_smooth(aes(ttimeslp,logmove), method=lm, se=F, colour="blue", data=tropft) +
  geom_smooth(aes(dtimeslp,logmove), method=lm, se=F, colour="red", data=dnft, linetype = "dashed") + 
  geom_smooth(aes(mmtimeslp,logmove), method=lm, se=F, colour="green", data=mmnft, linetype = "dashed") + 
  geom_smooth(aes(ttimeslp,logmove), method=lm, se=F, colour="blue", data=tropnft, linetype = "dashed") +
  xlab("Log(price)") + ylab("Log(sales)") + coord_trans(x="exp", y="exp")

一张照片：