当我以对数刻度绘制时，如何保持线性值？

Question

我正在使用此代码以对数刻度绘制两个轴：

ggplot(all, aes(x=area, y=rl))+
  geom_point()+
  scale_x_log10()+
  scale_y_log10()+
  theme_bw()

我得到一个这样的数字：

但我想将轴保持在原始值而不是记录值。像这样：

我该怎么做？

 all <- structure(list(rl = c(92497.5, 263421, 263421, 185338, 83769.6,185338, 185338, 90769.6, 90769.6, 90769.6), area = c(1310.534,10385.8523, 10385.8523, 7163.9071, 1610.9726, 7163.9071, 7163.9071,1610.9726, 1610.9726, 1610.9726)), .Names = c("rl", "area"), class = "data.frame", row.names = c("100142","100143", "100144", "100145", "100146", "100147", "100148", "102055","102056", "102057"))