格式化geom_label日期

Question

有没有办法将geom_label中ggplot2打印的日期格式超出其原始值？在下面的示例中，日期打印为“1910-01-01”。但是，假设我想打印月份和日期，并将月份作为文本值。任何人都有任何想法我会怎么做？

library(ggplot2)

df <- data.frame(
  x=1:5,
  y=runif(5,10,40),
  Date=seq(as.Date("1910/1/1"), as.Date("1914/1/1"), "years"))


ggplot(df, aes(x=x, y=y)) +
  geom_point() +
  geom_label(aes(label=Date))

Answer 1

我假设您的意思是geom_text而不是geom_label。

您可以使用format提取您想要的内容（有关完整列表，请参阅format.POSIXct）

 ggplot(df, aes(x=x, y=y)) +
     geom_point() +
     geom_text(aes(label=format(Date, format = "%b %d")))