# 安装summarytools包
install.packages("summarytools")
install.packages("tidyverse")#后面的管道操作需要用到

# 加载summarytools包
library(summarytools)
library(tidyverse)

一、创建一个数据集

mydata <- data.frame(
  age=rnorm(100,mean=50,sd=10),
  gender=sample(c("M","F"),100,replace=TRUE),
  income=rnorm(100,mean=50000,sd=10000)
)
fix(mydata)