Contents

1 Introduction

1.1 Dummy Imputation with mice

To illustrate how to perform a multiple imputation using mice we start loading both rexposome and mice libraries.

library(rexposome)
library(mice)

The we load the txt files includes in rexposome package so we can load the exposures and see the amount of missing data (check vignette Exposome Data Analysis for more information).

The following lines locates where the txt files were installed.

path <- file.path(path.package("rexposome"), "extdata")
description <- file.path(path, "description.csv")
phenotype <- file.path(path, "phenotypes.csv")
exposures <- file.path(path, "exposures.csv")

Once the files are located we load them as data.frames:

dd <- read.csv(description, header=TRUE, stringsAsFactors=FALSE)
ee <- read.csv(exposures, header=TRUE)
pp <- read.csv(phenotype, header=TRUE)

In order to speed up the imputation process that will be carried in this vignette, we will remove four families of exposures.

dd <- dd[-which(dd$Family %in% c("Phthalates", "PBDEs", "PFOAs", "Metals")), ]
ee <- ee[ , c("idnum", dd$Exposure)]

We can check the amount of missing data in both exposures and phenotypes data.frames:

data.frame(
    Set=c("Exposures", "Phenotypes"),
    Count=c(sum(is.na(ee)), sum(is.na(pp)))
)
##          Set Count
## 1  Exposures   304
## 2 Phenotypes     5

Before running mice, we need to collapse both the exposures and the phenotypes in a single data.frame.

rownames(ee) <- ee$idnum
rownames(pp) <- pp$idnum

dta <- cbind(ee[ , -1], pp[ , -1])
dta[1:3, c(1:3, 52:56)]
##            DDE       DDT      HCB  birthdate  sex age cbmi blood_pre
## id001       NA        NA       NA 2004-12-29 male 4.2 16.3       120
## id002 1.713577 0.6931915 1.270750 2005-01-05 male 4.2 16.4       121
## id003 2.594590 0.7448906 2.205519 2005-01-05 male 4.2 19.0       120

Once this is done, the class of each column needs to be set, so mice will be able to differentiate between continuous and categorical exposures.

for(ii in c(1:13, 18:47, 55:56)) {
    dta[, ii] <- as.numeric(dta[ , ii])
}
for(ii in c(14:17, 48:54)) {
    dta[ , ii] <- as.factor(dta[ , ii])
}

With this data.frame we perform the imputation calling mice functions (for more information about this call, check mice’s vignette). We remove the columns birthdate since it is not necessary for the imputations and carries lots of categories.

imp <- mice(dta[ , -52], pred = quickpred(dta[ , -52], mincor = 0.2, 
    minpuc = 0.4), seed = 38788, m = 5, maxit = 10, printFlag = FALSE)
class(imp)
## [1] "mids"

The created object imp, that is an object of class mids contains 20 data-sets with the imputed exposures and the phenotypes. To work with this information we need to extract each one of these sets and create a new data-set that includes all of them. This new data.frame will be passed to rexposome (check next section to see the requirements).

mice package includes the function complete that allows to extract a single data-set from an object of class mids. We will use this function to extract the sets and join them in a single data.frame.

If we set the argument action of the complete function to 0, it will return the original data:

me <- complete(imp, action = 0)
me[ , ".imp"] <- 0
me[ , ".id"] <- rownames(me)
dim(me)
## [1] 109  57
summary(me[, c("H_pesticides", "Benzene")])
##  H_pesticides    Benzene        
##  0   :68      Min.   :-0.47427  
##  1   :35      1st Qu.:-0.19877  
##  NA's: 6      Median :-0.11975  
##               Mean   :-0.12995  
##               3rd Qu.:-0.06879  
##               Max.   : 0.13086  
##               NA's   :3

If the action number is between 1 and the m value, it will return the selected set.

for(set in 1:5) {
    im <- complete(imp, action = set)
    im[ , ".imp"] <- set
    im[ , ".id"] <- rownames(im)
    me <- rbind(me, im)
}
me <- me[ , c(".imp", ".id", colnames(me)[-(97:98)])]
rownames(me) <- 1:nrow(me)
dim(me)
## [1] 654  59

1.2 Data Format

The format of the multiple imputation data for rexposome needs to follow some restrictions:

  1. Both the exposures and the phenotypes are stored in the same data.frame.
  2. This data.frame must have a column called .imp indicating the number of imputation. This imputation tagged as 0 are raw exposures (no imputation).
  3. This data.frame must have a column called .id indicating the name of samples. This will be converted to character.
  4. A data.frame with the description with the relation between exposures and families.

1.3 Creating an imExposomeSet

With the exposome data.frame and the description data.frame an object of class imExposomeSet can be created. To this end, the function loadImputed is used:

ex_imp <- loadImputed(data = me, description = dd, 
                       description.famCol = 1, 
                       description.expCol = 2)

The function loadImputed has several arguments:

args(loadImputed)
## function (data, description, description.famCol = "family", description.expCol = "exposure", 
##     exposures.asFactor = 5) 
## NULL

The argument data is filled with the data.frame of exposures. The argument decription with the data.frame with the exposures’ description. description.famCol indicates the column on the description that corresponds to the family. description.expCol indicates the column on the description that corresponds to the exposures. Finally, exposures.asFactor indicates that the exposures with less that, by default, five different values are considered categorical exposures, otherwise continuous.

ex_imp
## Object of class 'imExposomeSet'
##  . exposures description:
##     . categorical:  4 
##     . continuous:  43 
##  . #imputations: 6 (raw detected) 
##  . assayData: 47 exposures 109 individuals
##  . phenoData: 109 individuals 12 phenotypes
##  . featureData: 47 exposures 3 explanations

The output of this object indicates that we loaded 14 exposures, being 13 continuous and 1 categorical.

1.3.1 Accessing to Exposome Data

The class ExposomeSet has several accessors to get the data stored in it. There are four basic methods that returns the names of the individuals (sampleNames), the name of the exposures (exposureNames), the name of the families of exposures (familyNames) and the name of the phenotypes (phenotypeNames).

head(sampleNames(ex_imp))
## [1] "id001" "id002" "id003" "id004" "id005" "id006"
head(exposureNames(ex_imp))
## [1] "DDE"    "DDT"    "HCB"    "bHCH"   "PCB118" "PCB153"
familyNames(ex_imp)
## [1] "Organochlorines"   "Bisphenol A"       "Water Pollutants" 
## [4] "Cotinine"          "Home Environment"  "Air Pollutants"   
## [7] "Built Environment" "Noise"             "Temperature"
phenotypeNames(ex_imp)
##  [1] "whistling_chest" "flu"             "rhinitis"        "wheezing"       
##  [5] "sex"             "age"             "cbmi"            "blood_pre"      
##  [9] ".imp.1"          ".id.1"

fData will return the description of the exposures (including internal information to manage them).

head(fData(ex_imp), n = 3)
## DataFrame with 3 rows and 4 columns
##              Family    Exposure                             Name       .type
##         <character> <character>                      <character> <character>
## DDE Organochlorines         DDE Dichlorodiphenyldichloroethylene     numeric
## DDT Organochlorines         DDT  Dichlorodiphenyltrichloroethane     numeric
## HCB Organochlorines         HCB                Hexachlorobenzene     numeric

pData will return the phenotypes information.

head(pData(ex_imp), n = 3)
## DataFrame with 3 rows and 12 columns
##        .imp         .id whistling_chest      flu rhinitis wheezing      sex
##   <numeric> <character>        <factor> <factor> <factor> <factor> <factor>
## 1         0       id001           never       no       no       no     male
## 2         0       id002           never       no       no       no     male
## 3         0       id003        7-12 epi       no       no      yes     male
##        age      cbmi blood_pre    .imp.1       .id.1
##   <factor> <numeric> <numeric> <numeric> <character>
## 1      4.2      16.3       120         0       id001
## 2      4.2      16.4       121         0       id002
## 3      4.2      19.0       120         0       id003

1.3.2 Exposures Behaviour

The behavior of the exposures through the imputation process can be studies using the plotFamily method. This method will draw the behavior of the exposures in each imputation set in a single chart.

The method required an argument family and it will draw a mosaic with the plots from the exposures within the family. Following the same strategy than using an ExposomeSet, when the exposures are continuous box-plots are used.

plotFamily(ex_imp, family = "Organochlorines")
## Warning: Removed 104 rows containing non-finite values (stat_boxplot).

For categorical exposures, the method draws accumulated bar-plot:

plotFamily(ex_imp, family = "Home Environment")

The arguments group and na.omit are not available when plotFamily is used with an imExposomeSet.

1.4 Extracting an ExposomeSet from an imExposomeSet

Once an imExposomeSet is created, an ExposomeSet can be obtained by selecting one of the internal imputed-sets. This is done using the method toES and setting the argument rid with the number of the imputed-set to use:

ex_1 <- toES(ex_imp, rid = 1)
ex_1
## Object of class 'ExposomeSet' (storageMode: environment)
##  . exposures description:
##     . categorical:  4 
##     . continuous:  43 
##  . exposures transformation:
##     . categorical: 0 
##     . transformed: 0 
##     . standardized: 0 
##     . imputed: 0 
##  . assayData: 47 exposures 109 individuals
##     . element names: exp 
##     . exposures: AbsPM25, ..., Temp 
##     . individuals: id001, ..., id108 
##  . phenoData: 109 individuals 10 phenotypes
##     . individuals: id001, ..., id108 
##     . phenotypes: whistling_chest, ..., .imp.1 
##  . featureData: 47 exposures 8 explanations
##     . exposures: AbsPM25, ..., Temp 
##     . descriptions: Family, ..., .imp 
## experimentData: use 'experimentData(object)'
## Annotation:
ex_3 <- toES(ex_imp, rid = 3)
ex_3
## Object of class 'ExposomeSet' (storageMode: environment)
##  . exposures description:
##     . categorical:  4 
##     . continuous:  43 
##  . exposures transformation:
##     . categorical: 0 
##     . transformed: 0 
##     . standardized: 0 
##     . imputed: 0 
##  . assayData: 47 exposures 109 individuals
##     . element names: exp 
##     . exposures: AbsPM25, ..., Temp 
##     . individuals: id001, ..., id108 
##  . phenoData: 109 individuals 10 phenotypes
##     . individuals: id001, ..., id108 
##     . phenotypes: whistling_chest, ..., .imp.1 
##  . featureData: 47 exposures 8 explanations
##     . exposures: AbsPM25, ..., Temp 
##     . descriptions: Family, ..., .imp 
## experimentData: use 'experimentData(object)'
## Annotation:

2 Exposome-Wide Association Studies (ExWAS)

The interesting point on working with multiple imputations is to test the association of the different version of the exposures with a target phenotype. rexposome implements the method exwas to be used with an imExposomeSet.

as_iew <- exwas(ex_imp, formula = blood_pre~sex+age, family = "gaussian")
as_iew
## An object of class 'ExWAS'
## 
##        blood_pre ~ sex+age 
## 
## Tested exposures:  47 
## Threshold for effective tests (TEF):  2.33e-03 
##  . Tests < TEF: 9

As usual, the object obtained from exwas method can be plotted using plotExwas:

clr <- rainbow(length(familyNames(ex_imp)))
names(clr) <- familyNames(ex_imp)
plotExwas(as_iew, color = clr)

2.1 Extract the exposures over the threshold of effective tests

The method extract allows to obtain a table of P-Values from an ExWAS object. At the same time, the tef method allows to obtain the threshold of effective tests computed at exwas. We can use them combined in order to create a table with the P-Value of the exposures that are beyond the threshold of efective tests.

  1. First we get the threshold of effective tests
(thr <- tef(as_iew))
## [1] 0.002328967
  1. Second we get the table of P-Values
tbl <- extract(as_iew)
  1. Third we filter the table with the threshold
(sig <- tbl[tbl$pvalue <= thr, ])
## DataFrame with 9 rows and 4 columns
##               pvalue    effect      X2.5      X97.5
##            <numeric> <numeric> <numeric>  <numeric>
## NOx     2.337548e-05 13.307424  7.371578  19.243271
## NO2     3.268082e-05 15.380123  8.382996  22.377251
## AbsPM25 5.055138e-05 20.009627 10.662099  29.357156
## NO      8.652017e-05 10.457839  5.410174  15.505504
## PM25    9.070797e-05 37.613293 19.358761  55.867825
## PM25CU  4.458446e-04 11.224943  5.101442  17.348444
## Temp    1.012027e-03 89.206590 37.049438 141.363742
## PCB138  1.214851e-03  4.720374  1.914118   7.526630
## PCB153  1.248608e-03  4.212810  1.699292   6.726329

Session info

## R version 3.4.2 (2017-09-28)
## Platform: x86_64-pc-linux-gnu (64-bit)
## Running under: Ubuntu 16.04.3 LTS
## 
## Matrix products: default
## BLAS: /home/biocbuild/bbs-3.6-bioc/R/lib/libRblas.so
## LAPACK: /home/biocbuild/bbs-3.6-bioc/R/lib/libRlapack.so
## 
## locale:
##  [1] LC_CTYPE=en_US.UTF-8       LC_NUMERIC=C              
##  [3] LC_TIME=en_US.UTF-8        LC_COLLATE=C              
##  [5] LC_MONETARY=en_US.UTF-8    LC_MESSAGES=en_US.UTF-8   
##  [7] LC_PAPER=en_US.UTF-8       LC_NAME=C                 
##  [9] LC_ADDRESS=C               LC_TELEPHONE=C            
## [11] LC_MEASUREMENT=en_US.UTF-8 LC_IDENTIFICATION=C       
## 
## attached base packages:
## [1] parallel  stats     graphics  grDevices utils     datasets  methods  
## [8] base     
## 
## other attached packages:
## [1] mice_2.46.0         lattice_0.20-35     ggplot2_2.2.1      
## [4] psygenet2r_1.10.0   rexposome_1.0.0     Biobase_2.38.0     
## [7] BiocGenerics_0.24.0 BiocStyle_2.6.0    
## 
## loaded via a namespace (and not attached):
##   [1] nlme_3.1-131         bitops_1.0-6         bit64_0.9-7         
##   [4] progress_1.1.2       RColorBrewer_1.1-2   rprojroot_1.2       
##   [7] tools_3.4.2          backports_1.1.1      R6_2.2.2            
##  [10] tmvtnorm_1.4-10      rpart_4.1-11         KernSmooth_2.23-15  
##  [13] Hmisc_4.0-3          DBI_0.7              lazyeval_0.2.1      
##  [16] colorspace_1.3-2     nnet_7.3-12          prettyunits_1.0.2   
##  [19] gridExtra_2.3        bit_1.1-12           compiler_3.4.2      
##  [22] glmnet_2.0-13        lsr_0.5              formatR_1.5         
##  [25] htmlTable_1.9        flashClust_1.01-2    sandwich_2.4-0      
##  [28] labeling_0.3         bookdown_0.5         caTools_1.17.1      
##  [31] scales_0.5.0         checkmate_1.8.5      mvtnorm_1.0-6       
##  [34] stringr_1.2.0        digest_0.6.12        foreign_0.8-69      
##  [37] minqa_1.2.4          rmarkdown_1.6        pkgconfig_2.0.1     
##  [40] base64enc_0.1-3      htmltools_0.3.6      lme4_1.1-14         
##  [43] FactoMineR_1.38      htmlwidgets_0.9      rlang_0.1.2         
##  [46] GlobalOptions_0.0.12 pryr_0.1.3           RSQLite_2.0         
##  [49] impute_1.52.0        BiocInstaller_1.28.0 shape_1.4.3         
##  [52] zoo_1.8-0            gtools_3.5.0         acepack_1.4.1       
##  [55] RCurl_1.95-4.8       magrittr_1.5         Formula_1.2-2       
##  [58] leaps_3.0            Matrix_1.2-11        S4Vectors_0.16.0    
##  [61] Rcpp_0.12.13         munsell_0.4.3        imputeLCMD_2.0      
##  [64] scatterplot3d_0.3-40 stringi_1.1.5        yaml_2.1.14         
##  [67] MASS_7.3-47          gplots_3.0.1         plyr_1.8.4          
##  [70] grid_3.4.2           blob_1.1.0           gdata_2.18.0        
##  [73] ggrepel_0.7.0        splines_3.4.2        circlize_0.4.1      
##  [76] knitr_1.17           igraph_1.1.2         reshape2_1.4.2      
##  [79] codetools_0.2-15     biomaRt_2.34.0       stats4_3.4.2        
##  [82] XML_3.98-1.9         evaluate_0.10.1      latticeExtra_0.6-28 
##  [85] pcaMethods_1.70.0    data.table_1.10.4-3  nloptr_1.0.4        
##  [88] foreach_1.4.3        gtable_0.2.0         assertthat_0.2.0    
##  [91] norm_1.0-9.5         survival_2.41-3      tibble_1.3.4        
##  [94] iterators_1.0.8      gmm_1.6-1            IRanges_2.12.0      
##  [97] memoise_1.1.0        AnnotationDbi_1.40.0 cluster_2.0.6       
## [100] corrplot_0.84