从x轴移除R中的24小时直方图中的数据( in图)

Question

我已经从数据集中的时间戳中删除了日期，这样我就可以按小时绘制登录。

MV1$starttime <- format(MV1$earliestlog,format='%H:%M:%S')
MV1$starttime <- as.POSIXct(paste(Sys.Date(), MV1$starttime),  #Adds todays date
                                    format = "%Y-%m-%d %H:%M:%S")

当我用

MV1 %>% 
  ggplot(aes(x = starttime)) +
  geom_histogram(binwidth=30, ) +
  labs(title = "logins vs daytime between 2018 and 2020",
       subtitle = "Source: , Bin size = 30",
       x = "Time of day",
       y = "logins") 

​

我得到了我想要的，除了我想从x轴上删除今天的日期，并且只保留每小时的时间标签。

我试着添加

+ scale_x_discrete(breaks=c(as.POSIXct(paste(Sys.Date(), "00:00"))),
                   labels=c("00:00"))

但我知道这个错误：

new_mapped_discrete()：！mapped_discrete对象中的错误只能从数字向量创建

我还试图去掉df中的日期，但这似乎也不起作用，因为那只是一个字符列。看来POSIX需要个约会..。

MV1$starttime <- format(as.POSIXct(strptime(MV1$starttime, "%Y-%m-%d %H:%M:%S",tz="")), format='%H:%M:%S')
MV1$starttime <- as_date(MV1$starttime)

你知道我怎么才能把图中的x轴上的日期去掉，甚至每隔一个小时还会添加更多的标签吗？

蒂娅！

Answer 1

您可以尝试使用scale_x_datetime()格式化x轴的标签，并通过将date_format设置为"%H:00"来更改默认标签("%H“="%H:00"，可用格式代码见?strptime )。日期中断可以用参数date_breaks来设置，它需要一个持续时间的字符串(例如"1小时“，"2小时”)。

下面是一个示例：

library(ggplot2)

# Generating some timestamps
set.seed(1)
df <- data.frame(
    timestamp = sample(
      seq(as.POSIXct("2022-04-26 00:00:00"), 
          as.POSIXct("2022-04-27 00:00:00"), by = "sec"),
                size = 1000, replace = TRUE))

# Histogram with formatted date 
ggplot(df, aes(timestamp)) +
  geom_histogram(binwidth = 3600) + 
  scale_x_datetime(date_breaks = "1 hour", date_labels = "%H:00", 
                   expand = c(0, 0))

希望这能有所帮助。