小编Iar*_*min的帖子

考虑以下玩具示例

library(tibble)
library(ggplot2)
library(ggrepel)

df <- tribble(
    ~x,  ~y, ~name,            ~initials,
    0,   0,  "Hadley Wickam",    "HW",
    0,   1,  "Ross Ihaka",       "RI",
    1,   0,  "Robert Gentleman", "RG",
    1,   1,  "Yihui Xie",        "YX"
)

ggplot(df, aes(x, y, label = initials)) +
    geom_point() +
    geom_text_repel()

它显示一组带标签的点,其中标签是某些特定值的缩写.我想要做的是添加类似于通常的点形引导的缩写指南,但使用缩写而不是形状.

所以我希望实现这样的目标:

我知道当所有缩写都是单字母时,有一个解决方案,但不幸的是,这不是我的情况.

有什么想法可以做到这一点？

我有一个变量指示事件发生后的时间，它的编码如下：

time_since_event <- c("18 m", "56 m", "2 h 30 m", "18 h 2 m")

我希望它是数字，并始终表示事件发生后的分钟数：

time_since_event_min <- c(18,56,150,1082)