如何使用帶有匯總月份但不匯總其他列的值的 kableExtra 構建表格

Question

我想要一個包含我所有列的表。

數據框如下所示：

所以我想要一個只顯示州、政黨、人口、病例、死亡人數、病例/100K 的表格。 沒有日期，但具有數據集中最近一天的值，即今天的 2020-09-29。

我是這樣試的：

corona_cases_month <- corona_party_states %>% group_by(state, Party, Date=floor_date(Date)) %>% rename("Population"=totalPopulation, "Confirmed Cases"=totalConfirmed, "Confirmed Deaths"=totalDeaths, "Cases/100K"=CasesPop)

corona_cases_month %>%
kbl() %>%
  kable_paper("hover", full_width = F) %>%
    kable_styling(fixed_thead = T) %>%
   column_spec(1, bold = T, border_right = T) %>%
column_spec(6, bold = T, color = "orange")

但這不是正確的結果，因為它仍然在新行中顯示每個日期。

我之前用 floor 函數嘗試過它並且它起作用了 - 但我使用了匯總，當然還有人口，病例，死亡的價值都錯了：

如何僅使用昨天的值構建此表？

Answer 1

我建議過濾數據以僅保留最后日期的行。 我不會嘗試在group_by創建一個新變量，而是在mutate 。 這是一種方式：

corona_cases_month <- corona_party_states %>% 
  group_by(state, Party) %>% 
  mutate(Date_new=floor_date(Date)) %>% 
  filter(Date == Date_new) %>% 
  ungroup() %>% 
  group_by(state, Party, Date_new) %>%
  rename("Population"=totalPopulation, "Confirmed Cases"=totalConfirmed, "Confirmed Deaths"=totalDeaths, "Cases/100K"=CasesPop)