ggpolot2 Scale_x_log10（）转换不显示刻度和标签

Question

我正在使用R中的NHANES软件包，试图查看BMI与男女平均收缩压之间的关系。 我绘制了一个散点图，并且因为数据集中在左下角，所以我对BMI变量进行了对数转换（我知道两个变量都需要转换，但是目前我只对转换BMI感兴趣） 。但是，转换后，BMI没有任何刻度和标签。

library(NHANES)
bp.bmi = NHANES[ ,c("BPSysAve", "BMI", "Gender")]

ggplot(bp.bmi, aes(x = BMI, y = BPSysAve, color = Gender)) +
  geom_point(alpha=5/20) + 
  scale_x_log10()    # gave no ticks and labels in the x axis

然后，我通常在scale_x_log10内添加breaks = c（0,20,40,60,80），但是网格看起来不相等且更奇怪。

ggplot(bp.bmi, aes(x = BMI, y = BPSysAve, color = Gender)) + 
  geom_point(alpha=5/20) + 
  scale_x_log10(breaks = c(0,20,40,60,80))    # gave un equal size gird.

我希望代码的输出是带有刻度和标签的图表。如何获得带有刻度和标签作为原始图的图？

Answer 1

我运行了您的代码，并得到了两个随附的图表。因此，我没有看到您的问题并误解了您的要求。 这可能是版本问题。 我正在使用R 3.6.0和ggplot2 3.1.1.9000（来自github）