# aggregate the sample data to make a small data frame library(basictabler) library(dplyr) tocsummary % group_by(TOC) %>% summarise( OnTimeArrivals= sum(OnTimeArrivals), OnTimeDepartures= sum(OnTimeDepartures), TotalTrains= sum(TrainCount)) %>% ungroup() %>% mutate( OnTimeArrivalPercent=OnTimeArrivals /TotalTrains * 100, OnTimeDeparturePercent=OnTimeDepartures /TotalTrains * 100) %>% arrange(TOC) # formatting values (explained in the introduction vignette) columnFormats = list( NULL, list( big.mark= ","), list( big.mark= ","), list( big.mark= ","), "%.1f", "%.1f") # create the table and render tbl <- BasicTable $ new() tbl $ addData(tocsummary, firstColumnAsRowHeaders= TRUE, explicitColumnHeaders= c( "TOC", "On-Time Arrivals", "On-Time Departures", "Total Trains", "On-Time Arrival %", "On-Time Departure %"), columnFormats=columnFormats) # export to Excel library(openxlsx) wb <- createWorkbook( creator = Sys.getenv( "USERNAME")) addWorksheet(wb, "Data") tbl $ writeToExcelWorksheet( wb=wb, wsName= "Data", topRowNumber= 1, leftMostColumnNumber= 1, applyStyles= TRUE, mapStylesFromCSS= TRUE) saveWorkbook(wb, file= "C: \\ test.xlsx", overwrite = TRUE)
# aggregate the sample data to make a small data frame library(basictabler) library(dplyr) tocsummary % group_by(TOC) %>% summarise( OnTimeArrivals= sum(OnTimeArrivals), OnTimeDepartures= sum(OnTimeDepartures), TotalTrains= sum(TrainCount)) %>% ungroup() %>% mutate( OnTimeArrivalPercent=OnTimeArrivals /TotalTrains * 100, OnTimeDeparturePercent=OnTimeDepartures /TotalTrains * 100) %>% arrange(TOC) # formatting values (explained in the introduction vignette) columnFormats = list( NULL, list( big.mark= ","), list( big.mark= ","), list( big.mark= ","), "%.1f", "%.1f") # create the table and render tbl <- BasicTable $ new() tbl $ addData(tocsummary, firstColumnAsRowHeaders= TRUE, explicitColumnHeaders= c( "TOC", "On-Time Arrivals", "On-Time Departures", "Total Trains", "On-Time Arrival %", "On-Time Departure %"), columnFormats=columnFormats) # export to Excel library(openxlsx) wb <- createWorkbook( creator = Sys.getenv( "USERNAME")) addWorksheet(wb, "Data") tbl $ writeToExcelWorksheet( wb=wb, wsName= "Data", topRowNumber= 1, leftMostColumnNumber= 1, applyStyles= FALSE) saveWorkbook(wb, file= "C: \\ test.xlsx", overwrite = TRUE)
0 kommentar(er)
