按时间段绘制R中的唯一组

Question

mydat=structure(list(date = structure(c(1L, 1L, 1L, 1L, 2L, 2L, 2L, 
2L, 2L), .Label = c("01.01.2018", "02.01.2018"), class = "factor"), 
    x = structure(c(2L, 2L, 2L, 3L, 1L, 1L, 1L, 1L, 1L), .Label = c("e", 
    "q", "w"), class = "factor"), y = structure(c(2L, 2L, 2L, 
    3L, 1L, 1L, 1L, 1L, 1L), .Label = c("e", "q", "w"), class = "factor")), .Names = c("date", 
"x", "y"), class = "data.frame", row.names = c(NA, -9L))

我们可以看到x和y是组变量（我们只有组类别qq，ww，ee）

1月1日

q   q = count 3
w   w =count 1

然后是1月2日

e e =count 5

如何在图表中显示类别的数量：数据集很大，因此1月份需要图表，因此图表显示按日销售类别的数量

Answer 1

我发现你的问题不太明确，但也许这可能会有所帮助：

library(lubridate) # manipulate date
library(tidyverse) # manipulate data and plot
 # your data
 mydat %>%
 # add columns (here my doubts)
 mutate(group = paste (x,y, sep ='-'),                        # here the category pasted
        cnt = ifelse(paste (x,y, sep ='-') == 'q-q',3,
               ifelse(paste (x,y, sep ='-') == 'w-w',1,5)),   # ifelse with value
        day = day(dmy(date))) %>%                             # day
group_by(group,day) %>%                                       # grouping
summarise(cnt = sum(cnt)) %>%                                 # add the count as sum
# now the plot, here other doubts on your request  
ggplot(aes(x = as.factor(day), y = cnt, group = group, fill = group, label = group)) +
  geom_bar(stat = 'identity', position = 'dodge') +
  geom_label(position = position_dodge(width = 1)) + 
  theme(legend.position="none")

Answer 2

你的问题并不像我希望的那么干净，但我想你想知道我们每天在每个小组中有多少，对吧？

您可以使用dplyr包中的group_by 。

我创建了一个名为group的新变量，它接合x和y 。

mydata <- mydat %>%
  mutate('group' = paste(x, y, sep = '-')) %>%
  group_by(date, group) %>%
  summarise('qtd' = length(group))

结果：

date       group   qtd
01.01.2018 q-q       3
01.01.2018 w-w       1
02.01.2018 e-e       5

您可以使用ggplot2包并在下面创建，您可以使用facet_wrap按日期分隔图：

ggplot(data = mydata, aes(x = group, y = qtd)) +
  geom_bar(stat = 'identity') +
  facet_wrap(~date)

否则，您可以使用ggplot2另一种语法并使用fill 。 如果你有很多约会，有时会特别好。

代码 ：

ggplot(data = mydata, aes(x = group, y = qtd, fill = date)) +
  geom_bar(stat = 'identity')

祝好运！