沿 ggplot x 轴的注释 logticks 没有统一的间隙
Annotation logticks along ggplot x axis not having uniform gaps
我创建了一个 R dataframe 如下
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)
我使用 ggplot2 包创建了以下对数比例图
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))
在这里，我能够生成一个 Y 轴，在 2 个主要网格线之间具有统一的 9 个注释对数记号。即在0.001 - 0.01, 0.01 - 0.1 ,0.1 - 1之间，将轴平均分为10个格。我希望动态地沿 x 轴完成相同的操作。我无法完成同样的事情。我请求有人在这方面指导我。非常感谢
我相信您的代码运行良好。
annotation_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 上看到刻度线。
我创建了一个 R dataframe 如下
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)
我使用 ggplot2 包创建了以下对数比例图
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))
在这里，我能够生成一个 Y 轴，在 2 个主要网格线之间具有统一的 9 个注释对数记号。即在0.001 - 0.01, 0.01 - 0.1 ,0.1 - 1之间，将轴平均分为10个格。我希望动态地沿 x 轴完成相同的操作。我无法完成同样的事情。我请求有人在这方面指导我。非常感谢
我相信您的代码运行良好。 annotation_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 上看到刻度线。