Ken-JP wrote:
>
> Is there a way to modify this code to generate RED numbers inside xtable
> for
> negative results in x.ts?
>
This post would probably have been better for R-help. Anyway, you can do it
easily by modifying print.xtable.R in the xtable package. If it is easier,
make a copy of that file, modify it, load the xtable package, then source
your modified version.
Basically change line 227 from
result[i] <- gsub("-","$-$",result[i],fixed=TRUE)
to
result[i] <- gsub("-","\\color{red}$-$",result[i],fixed=TRUE)
and then your code chunk becomes:
<<sample,echo=F,results=tex>>=
library(xtable)
x.ts <- ts(rnorm(100), start = c(1954, 7), frequency = 12)
x.table <- xtable( x.ts, digits = 1 )
print( x.table, floating = FALSE, math.style.negative = TRUE)
@
Here is the patch: http://www.nabble.com/file/p24727150/print.xtable.R.diff
print.xtable.R.diff
Here is the output I got:
http://www.nabble.com/file/p24727150/xtable-red.pdf xtable-red.pdf
- Cameron
P.S. You must use the color package in latex.
--
View this message in context:
http://www.nabble.com/xtable-formatting%3A-RED-for-negative-numbers--tp24712208p24727150.html
Sent from the R help mailing list archive at Nabble.com.
______________________________________________
R-help@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.
