R/percent.R

Defines functions percent

percent <- function(
				.data,
				column,
				ext = 2,
				group = NULL
){
	.data[
		,.N, column
	][
		,p := N/sum(N), group
	][
		,P := paste0(round(100*p,ext),"%")
	][]
}
chaosfang404/chaos.tools documentation built on June 15, 2022, 11:07 a.m.