## ----include=FALSE---------------------------------------------------------------------------------------------------- suppressPackageStartupMessages(library("lessR")) ## ----include=FALSE---------------------------------------------------------------------------------------------------- knitr::opts_chunk$set(fig.width=3.5, fig.height=3) ## ----pivot, dataTable, echo=FALSE, out.width='92%', fig.align='center', out.extra='style="border-style: none"'-------- knitr::include_graphics(system.file("img", "pivot.png", package="lessR")) ## --------------------------------------------------------------------------------------------------------------------- d <- Read("Employee") ## --------------------------------------------------------------------------------------------------------------------- a <- pivot(data=d, compute=mean, variable=Years, by=c(Dept, Gender)) a ## --------------------------------------------------------------------------------------------------------------------- #Write("MyPivotTable", data=a, format="Excel") ## --------------------------------------------------------------------------------------------------------------------- pivot(d, c(mean, median, sd, IQR), Salary, Dept) ## --------------------------------------------------------------------------------------------------------------------- pivot(d, c(mean,sd,skew,kurtosis), Salary, Dept, digits_d=3) ## --------------------------------------------------------------------------------------------------------------------- pivot(d, c(mean, median), Salary, c(Gender,Dept), out_names=c("MeanSalary", "MedianSalary")) ## --------------------------------------------------------------------------------------------------------------------- pivot(d, mean, c(Years, Salary), c(Dept, Gender), digits_d=0) ## --------------------------------------------------------------------------------------------------------------------- pivot(d, mean, c(Years, Salary), Dept, digits_d=2, show_n=FALSE) ## --------------------------------------------------------------------------------------------------------------------- pivot(d, mean, Years) ## --------------------------------------------------------------------------------------------------------------------- pivot(d, mean, c(Years, Salary), digits_d=2, out_names=c("MeanYear", "MeanSalary")) ## --------------------------------------------------------------------------------------------------------------------- d <- Read("Mach4", quiet=TRUE) ## --------------------------------------------------------------------------------------------------------------------- pivot(d, c(mean,sd,skew,kurtosis), m01:m20) ## --------------------------------------------------------------------------------------------------------------------- pivot(d, table, by=m06) ## --------------------------------------------------------------------------------------------------------------------- pivot(d, table, by=c(m06, m07)) ## --------------------------------------------------------------------------------------------------------------------- Prop_test(m06, by=m07, data=d) ## --------------------------------------------------------------------------------------------------------------------- pivot(d, c(mean,sd), m06, c(m07, m10)) ## --------------------------------------------------------------------------------------------------------------------- d <- Read("Employee", quiet=TRUE) ## --------------------------------------------------------------------------------------------------------------------- pivot(d, quantile, Years, c(Dept, Gender)) ## --------------------------------------------------------------------------------------------------------------------- pivot(d, c(mean,sd,quantile), c(Years,Salary), q_num=5, digits_d=2) ## --------------------------------------------------------------------------------------------------------------------- pivot(d, mean, Salary, Dept, filter=(Gender=="W")) ## --------------------------------------------------------------------------------------------------------------------- pivot(d[.(Gender=="W"),], mean, Salary, Dept) ## --------------------------------------------------------------------------------------------------------------------- pivot(d, mean, Salary, c(Dept, Gender), sort="-") ## --------------------------------------------------------------------------------------------------------------------- pivot(d, c(mean, median), Salary, c(Gender,Dept), out_names=c("MeanSalary", "MedianSalary"), sort="-", sort_var="MeanSalary") ## --------------------------------------------------------------------------------------------------------------------- a <- pivot(d, mean, Salary, c(Dept, Gender)) order_by(a, by=Salary_mean, direction="-") ## --------------------------------------------------------------------------------------------------------------------- #d |> pivot(mean, Salary, c(Dept, Gender)) -> a #a ## --------------------------------------------------------------------------------------------------------------------- pivot(d, mean, Salary, by=Dept, by_cols=Gender) ## --------------------------------------------------------------------------------------------------------------------- pivot(d, mean, Salary, Dept, c(Gender, Plan)) ## --------------------------------------------------------------------------------------------------------------------- pivot(d, mean, Years, Dept) ## --------------------------------------------------------------------------------------------------------------------- pivot(d, mean, Years, Dept, na_remove=FALSE) ## --------------------------------------------------------------------------------------------------------------------- dd <- d[.(!(Gender=="M" & Dept=="SALE")), ] ## --------------------------------------------------------------------------------------------------------------------- head(dd) dd <- dd[-3,] ## --------------------------------------------------------------------------------------------------------------------- pivot(dd, c(mean,median), Salary, c(Dept, Gender), na_by_show=TRUE) ## --------------------------------------------------------------------------------------------------------------------- pivot(dd, c(mean,median), Salary, c(Dept, Gender), na_by_show=FALSE) ## --------------------------------------------------------------------------------------------------------------------- pivot(d, c(mean,median), Salary, c(Dept, Gender), na_group_show=TRUE) ## --------------------------------------------------------------------------------------------------------------------- pivot(d, c(mean,median), Salary, c(Dept, Gender), na_group_show=FALSE) ## --------------------------------------------------------------------------------------------------------------------- mnmd <- function(x, na.rm=TRUE) mean(x, na.rm=na.rm) - median(x, na.rm=na.rm) ## --------------------------------------------------------------------------------------------------------------------- pivot(d, c(mean, median, mnmd), Years, by=Dept)