R 随日期绘制变量:ggplot中的时间问题

R 随日期绘制变量:ggplot中的时间问题,r,ggplot2,time-series,R,Ggplot2,Time Series,我试图绘制在一段时间内某一天发生的“休息”次数。但是由于“Time”变量是date:Time格式,并且图形无法生成,因此会出现问题 ggplot(df, aes(y = `Breaks`, x = `Date`)) + geom_histogram(bins = 100, binwidth = 1, colour = "white", fill = "#1380A1") 示例数据: structure(list(Date = structure(c(1544107050, 1544100

我试图绘制在一段时间内某一天发生的“休息”次数。但是由于“Time”变量是date:Time格式,并且图形无法生成,因此会出现问题

ggplot(df, aes(y = `Breaks`, x = `Date`)) +
  geom_histogram(bins = 100, binwidth = 1, colour = "white", fill = "#1380A1") 
示例数据:

structure(list(Date = structure(c(1544107050, 1544100120, 1540557866, 
1540558168, 1544100123, 1544100135, 1545299546, 1545299518, 1545822865, 
1545822864, 1545822866, 1545822875, 1546016246, 1546016252, 1546016263
), class = c("POSIXct", "POSIXt"), tzone = "UTC"), Breaks = c(NA, 
NA, 2, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 1, NA)), row.names = c(NA, 
15L), class = "data.frame")

(我不确定我是否理解关于“但我需要图形中基本上表示(o)的缺失值”的评论。是否应该以某种方式直观地表示零?顺便说一句,通过
计数(日期=…
行)的部分产生了这一点——这就是您捕获缺失值的意思吗?)

#一个tible:5 x 2
日期
1 2018-10-26     2
2 2018-12-06     0
3 2018-12-20     0
4 2018-12-26     0
5 2018-12-28     1

(我不确定我是否理解关于“但我需要图形中基本上表示(o)的缺失值”的评论。是否应该以某种方式直观地表示零?顺便说一句,通过
计数(日期=…
行)的部分产生了这一点——这就是您捕获缺失值的意思吗?)

#一个tible:5 x 2
日期
1 2018-10-26     2
2 2018-12-06     0
3 2018-12-20     0
4 2018-12-26     0
5 2018-12-28     1

您的数据的预期输出是什么?此外,您的代码与您的数据不匹配(变量
Break
是否与变量
Breaks
相同?)。此外,在上一次
+
之后是否缺少一些内容?我更正了问题中的错误,可能存在重复。并且图表应该是“Breaks”Y轴上的“时间”和X轴上的“时间”。它应该是一个线条图/直方图,显示有多少“中断”发生在特定的一天。@divi问题是以数字形式计算日期。我的问题是随着时间的推移添加第二个变量。也许可以查看直方图是什么?它与线形图非常不同。它根本不使用y变量。它使用条形图,而不是线条。也许您需要条形图,每天一个条形图,条形图的高度为num非缺失的
中断
值的ber?或者您希望条的高度是非缺失中断值的总和?或者其他什么?数据的预期输出是什么?此外,您的代码与数据不匹配(变量
中断
是否与变量
中断
相同?)。此外,在上一次
+
之后是否缺少一些内容?我纠正了问题中的错误。该图在Y轴上应该是“中断”,在X轴上应该是“时间”。它应该是一个关于多少“中断”的折线图/直方图发生在特定的一天。@divi问题是以数字形式计算日期。我的问题是随着时间的推移添加第二个变量。也许可以查看直方图是什么?它与线形图非常不同。它根本不使用y变量。它使用条形图,而不是线条。也许您需要条形图,每天一个条形图,条形图的高度为num非缺失
中断的ber值?或者您希望条的高度是非缺失中断值的总和?或者其他什么?正是我所需要的。谢谢,正是我所需要的。谢谢
library(tidyverse)
df %>% 
  mutate(Date = as.Date(Date)) %>%
  count(Date, wt = Breaks) %>%
  ggplot(aes(Date, n)) +
  geom_col(colour = "white", fill = "#1380A1")
# A tibble: 5 x 2
  Date           n
  <date>     <dbl>
1 2018-10-26     2
2 2018-12-06     0
3 2018-12-20     0
4 2018-12-26     0
5 2018-12-28     1