Я ищу примеры или идеи о том, как я могу отобразить таблицу данных в.Rmd документ, который сгруппировал итоги на нескольких уровнях.Итак, в следующем примере дата, имена, кол-во, ставка и значение имеют итоговые значения на уровне предметов.
Ниже я только что создал пример для иллюстрации того, что я имею в виду:
names <- c('note','pen','book','note','pen','book')
qty <- c(150, 100, 200, 50, 150, 75)
date <- c('1-mar-2019','1-mar-2019','1-mar-2019', '2-mar-2019','2-mar-2019','2-mar-2019')
rate <- c(10, 5, 20, 10, 5, 20)
stationary <- data.frame(date, names, qty, rate)
stationary$value = stationary$qty*stationary$rate
library(tidyverse)
stationary <- stationary %>%
group_by(names) %>%
summarise(qty = sum(qty), value = sum(value)) %>%
ungroup() %>%
mutate(names = paste0(names, " total")) %>%
bind_rows(stationary)
stationary %>%filter(grepl("total", names)) %>%summarise(qty = sum(qty),value = sum(value)) %>% mutate(names = "Total (Grand)") %>% bind_rows(stationary) %>% arrange(names)
stationary = stationary[, c(4,1,2,5,3)]
stationary = stationary[with(stationary, order(stationary$names)),]
Мне нужен фактический результат, подобный этой моментальной кнопке, при экспорте в Excel Цветные ячейки с определенными символьными значениями в r для экспорта в файл Excel,
