Comparing smooths in factorsmooth interactions I
Want to share your content on Rbloggers? click here if you have a blog, or here if you don't.
One of the really appealing features of the mgcv package for fitting GAMs is the functionality it exposes for fitting quite complex models, models that lie well beyond what many of us may have learned about what GAMs can do. One of those features that I use a lot is the ability to model the smooth effects of some covariate (x) in the different levels of a factor. Having estimated a separate smoother for each level of the factor, the obvious question is, which smooths are different? In this post I’ll take a look at one way to do this using by
variable smooths.
With mgcv, smooths are included in model formulae using the s()
function. If you want to have the smooth equivalent of a continuousfactor interaction, one way to achieve this is via the by
argument to s()
. If you pass a factor to by
, mgcv sets up the model matrix in such a way that you get a separate smoother for each level of the by
factor. Each of these smoothers gets its own smoothness parameter — so you can fit a wiggly function in level foo and a smooth function in level bar, with each level’s function being learned from the data associated with that level.
I used this technique in a paper I wrote with my colleagues at UCL, Neil Rose, Handong Yang, and Simon Turner (Rose et al., 2012). Neil, Handong, and Simon had collected sediment cores from several Scottish lochs and measured metal concentrations, especially of lead (Pb) and mercury (Hg), in sediment slices covering the last 200 years. The aim of the study was to investigate sediment profiles of these metals in three regions of Scotland; north east, north west, and south west. A pair of lochs in each region was selected, one in a catchment with visibly eroding peat/soil, and the other in a catchment without erosion. The different regions represented variations in historical deposition levels, whilst the hypothesis was that cores from eroded and noneroded catchments would show differential responses to reductions in emissions of Pb and Hg to the atmosphere. The difference, it was hypothesised, was that the eroding soil acts as a secondary source of pollutants to the lake. You can read more about it in the paper — if you’re interested but don’t have access to the journal, send me an email and I’ll pass on a pdf.
It was relatively simple to fit splines to each sediment profile, but once I’d done this, how were we going to estimate the difference between the fitted trends? Thankfully, I already had the answer as Simon Wood had supplied code to do it to an OP on the RHelp listserver some years previous. That answer involved by
variable smoothers, which I was already using, and the use of the (Xp) matrix of the fitted GAM.
Readers of this blog will have heard about the (Xp) matrix before; it’s used a lot when we want to simulate from the posterior of the estimated model. Importantly, for our purposes, it allows for the creation of derived quantities, from the fitted model, and the assignment of uncertainty to those quantities.
In this post I’ll illustrate how to do the required comparison using some of the data from that study on Scottish lochs.
In this post I’ll use the the following packages
 readr
 dplyr
 ggplot2, and
 mgcv
You’ll more than likely have these installed, but if you get errors about missing packages when you run the code chunk below, install any missing packages and run the chunk again
Next, load the data set and convert the SiteCode
variable to a factor for use in fitting the GAM with gam()
This is a subset of the data used in Rose et al. (2012) — the Hg concentrations in the sediments for just three of the lochs are included here in the interests of simplicity. The data set contains 5 variables

SiteCode
is a factor indexing the three lochs, with levelsCHNA
,FION
, andNODH
, 
Date
is a numeric variable of sediment age per sample, 
SoilType
andRegion
are additional factors for the (natural) experimental design, and 
Hg
is the response variable of interest, and contains the Hg concentration of each sediment sample.
Neil gave me permission to make these data available openly should you want to try this approach out for yourself. If you make use of the data for other purposes, please cite the source publication (Rose et al., 2012) and recognize the contribution of the data creators; Handong Yang, Simon Turner, and Neil Rose.
The data, with LOESS smoothers superimposed, are shown below
Smoothfactor interactions can be estimated using gam()
in a number of different ways. Here we use by
variable smooths. Each of the separate smooths is subject to identifiability constraints, which effectively centres each smooth around zero effect. As such, differences in the mean Hg concentrations of the lochs is not accounted for by the smooths. The rectify this we’ll need to add SiteCode
as a parametric term to the model, along with the smooths.
The GAM is fitted to the three sites, and the fit summarized, using the following code
and the resulting smooths can be drawn using the plot()
method
Differences of smooths
To calculate the differences between pairs of the three smooths estimated in the model we need to be able to evaluate the smooths at a set of values of Date
. Below we specify a fine gird of points over the timescale of each core. This set of prediction data is passed to the predict()
method and the (Xp) matrix is requested with the option type = ‘lpmatrix’
The result, stored in xp
, is a matrix where the basis functions of the model have been evaluated at the values of the covariates supplied to newdata
. To turn this matrix into one containing fitted or predicted values it needs the be muliplied by the model coefficients and the rows summed. However, in this (Xp) state we can compute differences between the evaluated smooths before computing fitted values.
This process needs to be repeated for each pair of smooths we want to compare — this is a bit like all pairwise post hoc comparisons. A number of steps are involved, which I break down below for the comparison of the smooths for SiteCode == ‘CHNA’
and SiteCode = ‘FION’
. After I’ve gone through the steps, we’ll wrap them all into a function which we can use to automated the process.
The first step is to identify which columns of (Xp) relate to the smooths for the pair of levels of SiteCode
we are comparing. The rows of the (Xp) that contain the data for this pair of lochs also need to be identified.
Next, we subtract the elements of (Xp) for the first loch from the elements of (Xp) for the second loch. To focus on the difference between the pair of smooths, the columns of the differenced (Xp) matrix (in X
) that aren’t involved in comparison are set then to zero
The first zeroing uses the logical indices for columns containing either ‘CHNA’
or ‘FION’
— if you had a model with additional smooths involving the SiteCode
variable, you’d need a more sophisticated way of identifying the columns of (Xp) that relate to the smooths of interest. The second zeroing affects all the columns related to the parametric terms in the model. For this model these relate to the intercept and the two dummy contrasts associated with SiteCode
in the model.
Having obtained a suitably modified (Xp) matrix, predicted values using it can be obtained by multiplying the matrix by the estimated model coefficients and summing the result rowwise. This can be achieved in a single step using a matrix multiplication of the matrix X
with the row vector of model coefficients.
Because we zeroed out all the columns not involved directly in the pair of smooths we are comparing, this effectively turns their contributions to the fitted/predicted values to zero also. The result, stored in dif
, is a vector of fitted differences between the pair of smooths we an interested in.
Having computed the difference, we want to know how uncertain the estimated difference is. Handily, we can compute the standard errors of the differences using the variancecovariance matrix of the estimated model coefficients. The standard errors are computed using
Note that the above assumes that smoothness parameters (which control how wiggly the individual smooths are) are known and fixed. In reality these smoothness parameters were estimated and hence the standard errors just computed are likely biased low. This could be corrected by passing unconditional = TRUE
to vcov()
.
Now that we have standard errors, a pointwise 1  () confidence interval can be created using the critical value of the t distribution with appropriate degrees of freedom (in the case of a Gaussian model; quantiles of the Gaussian distribution would be needed for other conditional distributions). For a 95% interval, we use the following code
To allow for these steps to be repeated for all pairwise combinations, the process outlined above is best encapsulated as a function. One such function is shown below, where arguments f1
, f2
, and var
refer to length 1 character vectors specifying the first and second levels of the factor and the name of the by
variable factor respectively.
To complete the pairwise comparison of the estimated smooths, we use the function on the three combinations of pairs of smooths and gather the results into a tidy object comp
suitable for plotting with ggplot2
The pairwise differences of smooths and associated confidence intervals can be plotted using
Where the confidence interval excludes zero, we might infer significant differences between a pari of estimated smooths.
Conclusions
Regular readers will be familiar with the (Xp) matrix; I’ve used this for simulating from the posterior distribution of an estimated GAM, and for computing simultaneous intervals for smoothers, among other things. Here, it is used to compute difference between smooths. The (Xp) matrix is quite versatile; learning how to use it effectively will allow you to compute all manner of derived quantities related to an estimated GAM.
The by
variable type of factorsmooth interaction is just one of the ways of estimating different smooth effects for each level of a factor. One of the potential disadvantages of this type of smoother is it is quite wasteful to estimate three different smooths, each with its own smoothness parameter. More parsimonious ways of fitting factorsmooth interactions are possible with mgcv, and I’ll look at an alternative option in the next post.
References
Rose, N. L., Yang, H., Turner, S. D., and Simpson, G. L. (2012). An assessment of the mechanisms for the transfer of lead and mercury from atmospherically contaminated organic soils to lake sediments with particular reference to scotland, UK. Geochimica et cosmochimica acta 82, 113–135. doi:http://doi.org/10.1016/j.gca.2010.12.026.
Rbloggers.com offers daily email updates about R news and tutorials about learning R and many other topics. Click here if you're looking to post or find an R/datascience job.
Want to share your content on Rbloggers? click here if you have a blog, or here if you don't.