r - ggplot2 轴以类似对数的刻度表示持续时间

Question

我的数据是特定类型事件的持续时间(以秒为单位)。一些持续时间是几天，一些是几小时，更多是几分钟，但必须是几秒钟。我想绘制此数据的直方图，鉴于大多数值都很小，我希望 x 轴在 log10 范围内。

我知道如何将 x 轴标签格式化为十的幂，例如:10^1、10^2、10^3 等等。 这不是我想要的!例如，10^5 秒不是很容易理解的，将这个值以小时或天为单位来表达会更有意义。

我想要的是一个带有标签的轴，看起来像这样:

1 秒、10 秒、1 分钟、10 分钟、1 小时、10 小时、1 天、1 周、1 个月、1 年...等.

(如果持续时间小于 1 秒，则加分以 ms、μs、ns 和非常长的持续时间以 ka、Gy 等表示)

Answer 1

将 scale_x_log10() 与来自 ggplot2 的 breaks 和 labels 参数一起使用

df <- data.frame(time=c(1,10,100,10000),value=c(5,10,50,20))
ggplot(df,aes(x=time,y=value))+
    geom_point()+
    scale_x_log10(breaks=c(1,60,3600),labels=c("1sec","1min","1hour"))

因此，休息将是秒数的数量，并将秒的翻译标记为更可读的东西(在此示例1sec，1分钟和1小时)