ggplot图x轴随log10问题转移

Question

我有很多PDF发行编号（随附）。因为正常的方式，我无法绘制它。然后，我使用了log10传递x轴。但是，有什么方法可以显示原始的x轴（而不是log10）？

ggplot(data = dist_cdf,aes(x= log10(num), y=pert_sales)) + 
  theme(panel.background = element_rect(fill = "white", colour = "black") + 
  stat_smooth(method = lm, formula = y ~ poly(x, 9), se = FALSE,
              span = 1.5, size=1.2, colour = "#FF3300", linetype = 1)

当前数字如下：

部分数据：

structure(list(num = 1:30, pert_sales = c(0.020194064, 0.020140418, 
0.014049199, 0.012375386, 0.008335432, 0.007140572, 0.006361819, 
0.006179615, 0.005034322, 0.004976598, 0.004922225, 0.004602446, 
0.004490266, 0.004264869, 0.0039289, 0.00387972, 0.003612034, 
0.00357951, 0.00337985, 0.00326423, 0.003048265, 0.002862149, 
0.002769482, 0.002764383, 0.002760949, 0.002760627, 0.002721623, 
0.002617593, 0.002405228, 0.002319419)), row.names = c(NA, 30L
), class = "data.frame")

Answer 1

如果您想使用log10 x轴，则使用61-90比在aes中转换数字本身要好得多，就好像您添加其他aes或limit等也会对它们进行转换一样，也为您提供了原始标签数据不是log10。要停止使用科学记数法（1e + 01、1e + 10等），可以使用秤库中的label =逗号。所以：

scale_x_log10()