Style and Conditional Formatting in R

#ล้างค่าตัวแปรทังหมด

rm(list = ls())

#คำสั่งสำหรับ ตรวจสอบเพื่อ Install Package

if (!require('tidyr')) install.packages('tidyr')

if (!require('dplyr')) install.packages('dplyr')

if (!require('openxlsx')) install.packages('openxlsx', dependencies = TRUE)

if (!require('reshape2')) install.packages('reshape2')

if (!require('janitor')) install.packages('janitor')

#คำสั่งเรียกใช้งาน Package

library(tidyr)

library(dplyr)

library(openxlsx)

library(reshape2)

library(janitor)

#ข้อมูลที่ใช้

df <- read.xlsx('https://data.go.th/dataset/f5804870-7dc2-42df-86f3-769d6cc2ae23/resource/be60ddda-66cf-4d62-8815-63eb5941921a/download/tbl_rtddi_for_opendata.xlsx',detectDates = TRUE)

#เลือกข้อมูลเฉพาะบาง Column มาทำ Pivot Table

Data <- df%>%select(id,DEAD_YEAR,Vehicle,AccProv)

#เลือกข้อมูลเฉพาะบาง Row (Filter เฉพาะ กรุงเทพมหานคร)

Data <- Data%>%filter(AccProv=='กรุงเทพมหานคร')

#คำสั่งสำหรับสร้าง Pivot Table

Final_Data <- dcast(Data,Vehicle~DEAD_YEAR,fun=length,value.var='id')

#คำสั่งสำหรับเพิ่ม Total (Column) จาก Pivot Table ที่สร้างไว้

Final_Data_Total<-Final_Data%>%adorn_totals('col')

#เรียงข้อมูล

Final_Data_Total<-Final_Data_Total[order(Final_Data_Total$Total,decreasing=TRUE),]

#คำสั่งสำหรับเพิ่ม Total (Row) จาก Pivot Table ที่สร้างไว้

Final_Data_Total<-Final_Data_Total%>%adorn_totals('row')

#Export ข้อมูล

write.xlsx(Final_Data_Total,file=paste0(as.character(as.numeric(format(Sys.Date(),format='%Y'))+543),as.character(format(Sys.Date(),format='%m%d')),'_ข้อมูลผู้เสียชีวิตจากอุบัติเหตุทางถนน.xlsx'),overwrite=TRUE)

#Data_Report

#ล้างค่าตัวแปรทังหมด

rm(list = ls())

#คำสั่งสำหรับ ตรวจสอบเพื่อ Install Package

if (!require('tidyr')) install.packages('tidyr')

if (!require('dplyr')) install.packages('dplyr')

if (!require('openxlsx')) install.packages('openxlsx', dependencies = TRUE)

if (!require('reshape2')) install.packages('reshape2')

if (!require('janitor')) install.packages('janitor')

#คำสั่งเรียกใช้งาน Package

library(tidyr)

library(dplyr)

library(openxlsx)

library(reshape2)

library(janitor)

#ข้อมูลที่ใช้

df <- read.xlsx('https://data.go.th/dataset/f5804870-7dc2-42df-86f3-769d6cc2ae23/resource/be60ddda-66cf-4d62-8815-63eb5941921a/download/tbl_rtddi_for_opendata.xlsx',detectDates = TRUE)

#เลือกข้อมูลเฉพาะบาง Column มาทำ Pivot Table

Data <- df%>%select(id,DEAD_YEAR,Vehicle,AccProv)

#เลือกข้อมูลเฉพาะบาง Row (Filter เฉพาะ กรุงเทพมหานคร)

Data <- Data%>%filter(AccProv=='กรุงเทพมหานคร')

#คำสั่งสำหรับสร้าง Pivot Table

Final_Data <- dcast(Data,Vehicle~DEAD_YEAR,fun=length,value.var='id')

#คำสั่งสำหรับเพิ่ม Total (Column) จาก Pivot Table ที่สร้างไว้

Final_Data_Total<-Final_Data%>%adorn_totals('col')

#เรียงข้อมูล

Final_Data_Total<-Final_Data_Total[order(Final_Data_Total$Total,decreasing=TRUE),]

#คำสั่งสำหรับเพิ่ม Total (Row) จาก Pivot Table ที่สร้างไว้

Final_Data_Total<-Final_Data_Total%>%adorn_totals('row')

#Export ข้อมูล

saveWorkbook(wb,file=paste0(as.character(as.numeric(format(Sys.Date(),format='%Y'))+543),as.character(format(Sys.Date(),format='%m%d')),'_ข้อมูลผู้เสียชีวิตจากอุบัติเหตุทางถนน.xlsx'),overwrite=TRUE)

#--------------------------------------------------------------------------------------------

#Style & Conditional Formatting

#สร้าง Workbook

wb<-createWorkbook()

#เพิ่ม Sheets เปล่า

addWorksheet(wb,'Summary')

#เขียน Data ลงใน Sheets

writeData(wb,1,Final_Data_Total)

#CreateStyle

BodyStyle<-createStyle(fontName='TH SarabunPSK',fontSize=18,border='TopBottomLeftRight',halign='center')

HeaderStyle<-createStyle(textDecoration='bold',fgFill='#D9E1F2')

ConStyle<-createStyle(fontName='TH SarabunPSK',fontSize=18,fontColour='#1F497D',bgFill='#D8E4BC')

#Add Style Table

addStyle(wb,'Summary',cols=1:ncol(Final_Data_Total),rows=1:(nrow(Final_Data_Total)+1),style=BodyStyle,gridExpand=TRUE)

#Add Style Header

addStyle(wb,'Summary',cols=1:ncol(Final_Data_Total),rows=1,style=HeaderStyle,stack=TRUE)

#Add Conditional Formatting

conditionalFormatting(wb,'Summary',cols=2:ncol(Final_Data_Total),rows=2:(nrow(Final_Data_Total)+1),rule='==0',style=ConStyle,stack=TRUE)

#ปรับขนาดความกว้าง Column

setColWidths(wb,'Summary',cols=c(1),widths=24)

#Export

saveWorkbook(wb,file=paste0(as.character(as.numeric(format(Sys.Date(),format='%Y'))+543),as.character(format(Sys.Date(),format='%m%d')),'_ข้อมูลผู้เสียชีวิตจากอุบัติเหตุทางถนน.xlsx'),overwrite=TRUE)