Presentation tables in R (knitr)
On 25/11/2014 3:12 PM, Tom Wright wrote:
Hi,
This problem has me stumped so I thought I'd ask the experts. I'm trying
to create a pretty summary table of some data (which patients have had
what tests at what times). Ideally I'd like to knitr this into a pretty
PDF for presentation.
If anyone has pointers I'll be grateful.
require(tables)
require(reshape2)
data<-data.frame('ID'=paste0('pat',c(rep(1,8),rep(2,8))),
'Time'=c(1,1,1,1,2,2,2,2,3,3,3,3,4,4,4,4),
'Eye'=rep(c('OS','OS','OD','OD'),4),
'Measure'=rep(c('Height','Weight'),8))
tabular(Measure~factor(ID)*factor(Time)*factor(Eye),data)
#All levels of Time are repeated for all IDs, I'd prefer to just show
the relevant times.
You can drop certain rows of the table. See the last example in ?tabular. (It's possible to do logical indexing, but a little harder. I think the vignette has an example of this...) You can use latex() on the results, and display them in a knitr document. Duncan Murdoch
tabular(Measure~factor(ID)*Time*factor(Eye),data) #Time is getting collapsed by ID data$value=1 dcast(data,Measure~ID+Time+Eye) #close but not very pretty
______________________________________________ R-help at r-project.org mailing list https://stat.ethz.ch/mailman/listinfo/r-help PLEASE do read the posting guide http://www.R-project.org/posting-guide.html and provide commented, minimal, self-contained, reproducible code.