如何使用 kableExtra 构建一个带有汇总月份但不汇总其他列值的 table
How to build a table with kableExtra with summarized months but not summarize the values of the other columns
我想要一个包含我所有专栏的table。
数据框如下所示:
所以我想要一个 table,它只显示州、政党、人口、病例、死亡,cases/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 函数试过它,它起作用了——但我用了总结,当然还有人口、病例、死亡的值都错了:
如何仅使用昨天的值构建此 table?
我建议过滤数据以仅保留具有最后日期的行。我不会尝试在 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)
我想要一个包含我所有专栏的table。
数据框如下所示:
所以我想要一个 table,它只显示州、政党、人口、病例、死亡,cases/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 函数试过它,它起作用了——但我用了总结,当然还有人口、病例、死亡的值都错了:
如何仅使用昨天的值构建此 table?
我建议过滤数据以仅保留具有最后日期的行。我不会尝试在 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)