ggplot - Пользовательский формат для оси графика временной переменной

Question

Как определить пользовательский формат для оси переменной времени в ggplot2 ?

DF <- data.frame(TIME = c(350,400,250,650,500,750),
                 CATEGORY = c(1:6))


ggplot(data=DF, aes(x=CATEGORY, y=as_datetime(TIME))) +
  geom_col() +
  scale_y_datetime(labels = date_format("%M:%S"))

Что я хочу, чтобы удалить ведущий ноль в минутной части. Примерно так:

Спасибо за ваше время и усилия!

Answer 1

Попробуйте это:

library(ggplot2)
library(lubridate)
library(scales)
DF <- data.frame(TIME = c(350,400,250,650,500,750),
                 CATEGORY = c(1:6))


date_lab <- function(x) {
  paste0(minute(x), ":", format(x, "%S"))
}

ggplot(data=DF, aes(x=CATEGORY, y=as_datetime(TIME))) +
  geom_col() +
  scale_y_datetime(labels = date_lab)

^{Создано в 2020-03-24 пакетом Представить (v0.3.0)}