r - 沿ggplot x轴的注释logticks没有均匀的间隙
问题描述
我创建了一个 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)
我使用 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))
在此,我能够在 2 个主要网格线之间生成具有统一 9 个注释对数的 Y 轴。即在 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 上的刻度线。
推荐阅读
- python - 使用遗传算法的部分匹配交叉时处理重复项
- python - 在视图中动态关联子级和父级
- typescript - knex 迁移对使用 docker 创建的 postgres 数据库没有任何影响
- python - 在 Django ORM 中按注释值分组
- python - 我正在尝试迁移我的模型 - 但它给了我错误 -
- python - 向下滚动时在页面上找不到元素 (StaleElementReferenceException)
- codenameone - 获取开发者电子邮件
- r - 使用 read.csv 导入时出现问题(无法识别数据库管理器中的 NULL)
- unix - wget 下载pdf
- swiftui - SwiftUI 视图控件