R中带有计数的日期/时间图

Question

我目前正在尝试使用我的数据创建图表。我的信息包含在一个包含多行的 CSV 中，格式如下：date;time;hasconnection。

日期 - 发生日期。

时间 - 发生的时间（早上、下午、晚上）。

hasconnection - 有互联网连接吗？ （0 - 假，1 - 真）。

我的想法是创建一个包含所有这些信息的图表。例如，Y 轴将包含时间类别（早上、下午、晚上），X 轴将包含日期。该图将表示成功 Internet 连接 (1) 和无 Internet 连接 (0) 的数量（计数）。

CSV 中的数据示例：

22/04/2016;Morning;1  
22/04/2016;Night;0  
23/04/2016;Morning;1  
23/04/2016;Afternoon;1  
24/04/2016;Afternoon;0  
25/04/2016;Night;1  
25/04/2016;Night;0  
25/04/2016;Morning;1 

所需图表示例：

使用 ggplot 我可以创建 Y 轴（早上、下午……）和 X 轴（日期……）。我只是不知道如何将连接计数数据放入图表中。

非常感谢。

Answer 1

您可以使用geom_label()，利用hjust 美学以及fill 美学。我生成了一些示例数据来演示：

set.seed(123) 
library(dplyr)
library(ggplot2)
df <- data.frame(X = sample(letters[1:3], 100, replace = T), #like date
                 Y = sample(c('morn','day','night'), 100, replace = T),
                 Z = rbinom(100,1,prob = .6))
df2 <- df %>% group_by(X, Y, Z) %>% summarise(Counts = n())

ggplot(df2, aes(x = X, y= Y))+
  geom_label(aes(label = Counts, fill = factor(Z), hjust = Z)) + theme_bw()+
  scale_fill_manual(values = c('0' = 'red','1' = 'green'), name = 'Indicator')

然后随便玩你想要的任何情节选项。