英文:
Row sums with Dplyr and Flextable
问题
以下是翻译好的内容：
我有以下的数据框：
structure(list(Annee = c("2021-2022 ", "2021-2022 ", "2021-2022 ", "2022-2023 ", "2022-2023 ", "2022-2023 ", "2022-2023 "), Niveau = c("CE1", "CP", "CP", "CE1", "CE1", "CP", "CP"), Sexe = c("Garçons", "Filles", "Garçons", "Filles", "Garçons", "Filles", "Garçons"), Effectifs = c(4, 1, 2, 1, 2, 4, 3)), row.names = c(NA, -7L), class = "data.frame")
我用flextable创建了一个表格：
data %>%
pivot_wider(names_from=Annee, values_from=c(`Effectifs`)) %>%
replace(is.na(.), 0) %>%
arrange(match(Sexe, c("Filles", "Garçons"))) %>%
arrange(match(Niveau, c("CP", "CE1"))) %>%
flextable::flextable() %>%
flextable::align(align = "center", part = "all") %>%
theme_zebra()%>%
merge_v(j = c("Niveau"))%>%
border_outer(part = "all") %>%
hline_top(part = "header") %>%
hline(part="body")%>%
align(align = "center", part = "header") %>%
border_inner_v(part = "all")%>%
valign(valign = "center", part = "header")%>%
fix_border_issues(part = "all")
这给了我以下结果：
我需要在flextable中添加一行，该行是每个“Niveau”的“Effectifs”的总和。以下是预期结果：
提前感谢您的帮助！
英文:
I have the following dataframe :
structure(list(Annee = c("2021-2022 ", "2021-2022 ", "2021-2022 ",
"2022-2023 ", "2022-2023 ", "2022-2023 ", "2022-2023 "), Niveau = c("CE1",
"CP", "CP", "CE1", "CE1", "CP", "CP"), Sexe = c("Garçons", "Filles",
"Garçons", "Filles", "Garçons", "Filles", "Garçons"), Effectifs = c(4,
1, 2, 1, 2, 4, 3)), row.names = c(NA, -7L), class = "data.frame")
I made a table with flextable :
data %>%
pivot_wider(names_from=Annee, values_from=c(`Effectifs`)) %>%
replace(is.na(.), 0) %>%
arrange(match(Sexe, c("Filles", "Garçons"))) %>%
arrange(match(Niveau, c("CP", "CE1"))) %>%
flextable::flextable() %>%
flextable::align(align = "center", part = "all") %>%
theme_zebra()%>%
merge_v(j = c("Niveau"))%>%
border_outer(part = "all") %>%
hline_top(part = "header") %>%
hline(part="body")%>%
align(align = "center", part = "header") %>%
border_inner_v(part = "all")%>%
valign(valign = "center", part = "header")%>%
fix_border_issues(part = "all")
Which give me this result :
I need to add a new row in the flextable which would be the sum of "Effectifs" for each "Niveau". Here's the expected result :
Thank you in advance for your help!
答案1
得分: 2
Here is the translated content:
使用一个小的自定义函数来为您的数据添加总计行，您可以执行以下操作：
library(dplyr)
library(tidyr)
library(ggplot2)
library(flextable)
add_total <- function(x) {
x %>%
group_by(Niveau) %>%
summarise(Sexe = "总计", across(where(is.numeric), sum)) %>%
bind_rows(x)
}
data %>%
pivot_wider(names_from = Annee, values_from = c(`Effectifs`)) %>%
replace(is.na(.), 0) %>%
add_total() %>%
arrange(match(Sexe, c("女孩", "男孩", "总计"))) %>%
arrange(match(Niveau, c("CP", "CE1"))) %>%
flextable::flextable() %>%
flextable::align(align = "center", part = "all") %>%
theme_zebra() %>%
merge_v(j = c("Niveau")) %>%
border_outer(part = "all") %>%
hline_top(part = "header") %>%
hline(part = "body") %>%
align(align = "center", part = "header") %>%
border_inner_v(part = "all") %>%
valign(valign = "center", part = "header") %>%
fix_border_issues(part = "all") %>%
bold(i = ~ Sexe == "总计")
英文:
Using a small custom function to add the totals row to your data you could do:
library(dplyr)
library(tidyr)
library(ggplot2)
library(flextable)
add_total <- \(x) {
x %>%
group_by(Niveau) %>%
summarise(Sexe = "Total", across(where(is.numeric), sum)) %>%
bind_rows(x)
}
data %>%
pivot_wider(names_from = Annee, values_from = c(`Effectifs`)) %>%
replace(is.na(.), 0) %>%
add_total() %>%
arrange(match(Sexe, c("Filles", "Garçons", "Total"))) %>%
arrange(match(Niveau, c("CP", "CE1"))) %>%
flextable::flextable() %>%
flextable::align(align = "center", part = "all") %>%
theme_zebra() %>%
merge_v(j = c("Niveau")) %>%
border_outer(part = "all") %>%
hline_top(part = "header") %>%
hline(part = "body") %>%
align(align = "center", part = "header") %>%
border_inner_v(part = "all") %>%
valign(valign = "center", part = "header") %>%
fix_border_issues(part = "all") %>%
bold(i = ~ Sexe == "Total")
通过集体智慧和协作来改善编程学习和解决问题的方式。致力于成为全球开发者共同参与的知识库，让每个人都能够通过互相帮助和分享经验来进步。
评论