绘制具有开始和结束日期的数据直方图

Question

我有一个数据集是这样的：

          start_date       end_date        outcome
1         2014-07-18       2014-08-20         TRUE
2         2014-08-04       2014-09-23         TRUE
3         2014-08-01       2014-09-03         TRUE
4         2014-08-01       2014-09-03         TRUE
5         2014-12-10       2014-12-10         TRUE
6         2014-10-11       2014-11-07         TRUE
7         2015-04-27       2015-05-20         TRUE
8         2014-11-22       2014-12-25         TRUE
9         2015-03-24       2015-04-26         TRUE
10        2015-03-12       2015-04-10        FALSE
11        2014-05-29       2014-06-28        FALSE
12        2015-03-19       2015-04-20         TRUE
13        2015-03-25       2015-04-26         TRUE
14        2015-03-25       2015-04-26         TRUE
15        2014-07-09       2014-08-10         TRUE
16        2015-03-26       2015-04-26         TRUE
17        2014-07-09       2014-08-10         TRUE
18        2015-03-30       2015-04-28         TRUE
19        2014-03-13       2014-04-13         TRUE
20        2015-04-01       2015-04-29         TRUE

我想绘制一个直方图，其中每个条形图对应一个月份，它包含该月中 FALSE / ALL = (FALSE + TRUE) 的比例。

最好使用 ggplot 在 R 中执行此操作的最简单方法是什么？

Answer 1

这是一种方法。会有更好的方法来做到这一点。但我会留下我尝试过的东西。主要工作是为图形创建一个新的数据框。使用上面的数据，我首先将因子转换为日期对象。如果您的数据中有日期对象，则不需要它。然后，我使用 count() 总结了 start_date 和 end_date 的数据。我绑定了两个数据框，进一步计算得到每个月的FALSE比例。

library(zoo)
library(dplyr)
library(ggplot2)
library(lubridate)

mutate_each(mydf, funs(as.POSIXct(., format = "%Y-%m-%d")), -outcome) %>%
mutate_each(funs(paste(year(.),"-",month(.), sep = "")), vars = -outcome) -> foo1;
count(foo1, start_date, outcome) %>% rename(date = start_date) -> foo2;
count(foo1, end_date, outcome) %>%
rename(date = end_date) %>%
bind_rows(foo2) %>%
group_by(date, outcome) %>%
summarize(total = sum(n)) %>%
summarize(prop = length(which(outcome == FALSE)) / sum(total)) %>%
mutate(date = as.Date(as.yearmon(date))) -> foo3

ggplot(data = foo3, aes(x = date, y = prop)) +
geom_bar(stat = "identity") +
scale_x_date(labels = date_format("%Y-%m"), breaks = date_breaks("month")) +
theme(axis.text.x = element_text(angle = 90, vjust = 1))

绘制具有开始和结束日期的数据直方图

Plotting histogram for data with start and end date

datetime

r

ggplot2