Providing Demographic Table with the P-Value, Standardized Mean Difference Value

The Demographic Table in R combines contingency table for categorical variables, mean and standard deviation for continuous variables. t-test, chi-square test and Fisher's exact test calculated the p-value of two groups. The standardized mean difference were performed with 95 % confident interval, and writing table into document file.


The goal of demoGraphic is providing five main function cont_table(), cat_table(), demo_table(), smd_plot(), mydocx(). These are used to calculate the mean, standard deviation, pvalue was performanced on t-test for continuous variables, the contigency table and propotion, chi square test or fisher exact test were performanced to get p value, the standardized difference between two groups.

Installation

You can install the released version of demoGraphic from CRAN with:

install.packages("demoGraphic")

Example

This is a basic example which shows you how to solve a common problem:

# Create data set
 
set.seed(2018)
 
group <-round(abs(rnorm(500)*10),0) %% 2
 
cont_1 <-round(abs(rnorm(500)*10),0)
cont_2 <-round(abs(rnorm(500)*50),0)
cont_3 <-round(abs(rnorm(500)*30),0)
 
cat_binary <-round(abs(rnorm(500)*10),0) %% 2
cat_multi_1 <-round(abs(rnorm(500)*10),0) %% 3
cat_multi_2 <-round(abs(rnorm(500)*10),0) %% 4
cat_multi_3 <-round(abs(rnorm(500)*10),0) %% 5
 
 
data<-data.frame(group, cont_1, cont_2, cont_3, cat_binary, cat_multi_1, cat_multi_2, cat_multi_3)
data$group <- factor(data$group, levels = c(0,1), labels = c("Unexposed","Exposed"))
data[,c(6,7,8)] <- lapply(data[,c(6,7,8)], as.factor)
 
 
# ===================================================
# 1. testing continuous variable
 
# 1a. Test one variable
 
t <- cont_table("cont_2","group", data)
 
 
t$smd_table # smd table
t$demo_table # demographic table
 
 
p <- smd_plot(t$smd_table) # plot smd 
p
 
 
# write smd table with file name smd_table.docx and save it in directory
mydocx(t$smd_table,"smd_table") 
 
 
#=====================================
 
# 1b. Test multiple variables
 
var <- c("cont_1","cont_2","cont_3")
 
 
t <- cont_table(var,"group", data)
 
t$smd_table # smd table
t$demo_table # demographic table
 
 
p <- smd_plot(t$smd_table) # plot smd 
p
 
# write smd table with file name smd_table.docx and save it in directory
mydocx(t$smd_table,"smd_table") 
 
 
# ===================================================
# 2. testing catgorical variable
 
# 2a. Test one variable
 
t <- cat_table("cat_binary","group", data)
 
 
t$smd_table # smd table
t$demo_table # demographic table
 
 
p <- smd_plot(t$smd_table) # plot smd 
p
 
# write smd table with file name smd_table.docx and save it in directory
mydocx(t$smd_table,"smd_table") 
 
 
#=================================
 
 
# 2b. Test multiple variables
 
var <- c("cat_binary","cat_multi_1","cat_multi_2","cat_multi_3")
 
t <- cat_table(var,"group", data)
 
t$smd_table # smd table
t$demo_table # demographic table
 
 
p <- smd_plot(t$smd_table) # plot smd 
p
 
# write smd table with file name smd_table.docx and save it in directory
mydocx(t$smd_table,"smd_table") 
 
 
 
#======================================
 
# 3. Test demo_table function (continuous and categorical variables together)
# 3a. One variable
 
t <- demo_table("cat_binary","group", data)
 
t$smd_table # smd table
t$demo_table # demographic table
 
 
p <- smd_plot(t$smd_table) # plot smd 
p
 
# write smd table with file name smd_table.docx and save it in directory
mydocx(t$smd_table,"smd_table") 
 
 
#===================================
 
# 3b. Multiple variables
 
 
var <- c("cat_binary","cont_1","cont_2","cont_3","cat_multi_1","cat_multi_2","cat_multi_3")
 
t <- demo_table(var,"group", data)
 
t$smd_table # smd table
t$demo_table # demographic table
 
 
p <- smd_plot(t$smd_table) # plot smd 
p
 
 
# write smd table with file name smd_table.docx and save it in directory
mydocx(t$demo_table,"demo_table") 
 
 

News

Reference manual

It appears you don't have a PDF plugin for this browser. You can click here to download the reference manual.

install.packages("demoGraphic")

0.1.0 by Loan Robinson, 6 months ago


Browse source code at https://github.com/cran/demoGraphic


Authors: Loan Robinson [aut, cre]


Documentation:   PDF Manual  


GPL-3 license


Imports officer, magrittr, MASS, stats

Suggests testthat


See at CRAN