细面图是用于观察研究对象随时间整体变化趋势的一种方法。下面以Applied Longitudinal Data Analysis: Modeling Change and Event Occurrence by Judith D. Singer and John B.中的数据为例，用R来实现。

> tolerance<-read.table("tolpp.csv",sep=",", header=T) #读入数据

> head(tolerance, n=10) #观察数据结构

     从数据结构上可以看到：每个对象在5个时间点上受到观察。下面我们以tolerance 为结局变量来作细面图。

> interaction.plot(tolerance$time,tolerance$id, tolerance$tolerance,xlab="time",ylab="Tolerance",col=c(1:10), legend=F) 

        显示如下：

                       Cited from:http://www.ats.ucla.edu/stat/R/faq/spagplot.htm