R 沿ggplot x轴的注释日志标记没有统一的间隙

我创建了一个R数据帧，如下所示

 A<-data.frame("Col1"= c(21.5 ,22.5 ,15.5, 20.5 ,17.5 ,14.5 ,23.5, 11.5, 16.5, 25.5 ,18.5, 24.5 ,10.5 , 9.5, 19.5, 26.5, 13.5, 12.5 ,27.5,  4.5 , 5.5,  8.5,  6.5,  7.5))
 A$Col2=c(0.619219548, 0.723265668,0.122833055, 0.536849680, 0.257225692 ,0.081648474, 0.794797325 ,0.023125359, 0.194364553, 0.909681117, 0.343930779, 0.857658382, 0.018791029  ,0.014457257,   0.467485576 ,0.950865217, 0.062140165, 0.040464671, 0.989875246,    0.001502443,0.003637989 ,0.012290763, 0.005796326, 0.007959621)

---

A我相信你的代码运行得很好。
注释_logticks将在每个log10默认比例值之间写入10个标记。
这样，在0.01和0.1之间有10个记号，在0.1和1之间有10个记号，在1和10之间有10个记号（您可以在x轴上看到5、6、7、8、9和10上的标记；以及10和100之间的10个记号->20、20、40…100。您可以在x轴上看到20和30上的记号。
我做了更改，现在可以看到日志记号。图表21 x轴上的网格线受此影响
library(scales)
library(ggplot2)

chart_1<-ggplot(A, aes(x=Col1, y=Col2)) +   geom_point()+   geom_smooth(method = "lm")+  
scale_x_log10(minor_breaks = seq(0,max(A$Col1)*10 , 0.1), breaks = pretty_breaks())+  
scale_y_log10(minor_breaks = seq(0,100,0.1))+ annotation_logticks(sides = "lb", outside = 
FALSE,short = unit(1,"mm"), mid = unit(3,"mm"),long = unit(6,"mm")) +  theme( panel.grid.major 
= element_line(colour = "red", size = 0.5), panel.grid.minor= element_line(colour = "green", 
size = 0.2))