找到每個因子與 plot 直方圖之間的不同值 r

Question

我正在學習 r，我想根據 dataframe 中的日期的每個因素的旋轉來構建直方圖。

這是我的 dataframe：

dat <- data.frame(
  time = factor(c("Breakfast","Breakfast","Breakfast","Breakfast","Lunch","Lunch","Lunch","Lunch","Dinner","Dinner","Dinner","Dinner"), levels=c("Breakfast","Lunch","Dinner")), 
  date=c("2020-01-20","2020-01-21","2020-01-22","2020-01-23","2020-01-20","2020-01-21","2020-01-22","2020-01-23","2020-01-20","2020-01-21","2020-01-22","2020-01-23"),
  total_bill = c(12.75,13.5,25.5,27.4,18.3,19.9,27.8,28.6,15.7,17.4,19.5,24.2)
)

我的目標是找到例如：因素Breakfast我想得到它的革命像13.5 - 12.75 , 25.5 - 13.5 , 27.4 - 25.5我想要同樣的Lunch ， Dinner然后使用這些差異值 plot 通過使用ggplot在 3 個不同的圖表中。

對此的任何幫助將不勝感激。 謝謝！！！

Answer 1

我們創造了不同的群體

library(dplyr)
library(lubridate)
library(ggplot2)
dat %>%
    mutate(date = ymd(date)) %>%
    arrange(time, date) %>%
    group_by(time) %>% 
    mutate(Diff  = c(0, diff(total_bill)))  %>% 
    ungroup %>%
    filter(Diff != 0) %>%
    ggplot(aes(x = date, y = Diff, fill = time)) +
       geom_col()+ 
       facet_wrap(~ time)

-輸出