尝试对颜色代码编织xtable时出错

Question

I'm trying to use R and Sweave to color code a table as described in this question . I've got the following code:

<<>>=
Overall <- data$FLAG_OVERALL_HOSP
DC_Info <- data$FLAG_DC_INFO
Care_Trans <- data$FLAG_CARE_TRANS
Dept <- data$DEPT_DSC
HOSP <- data$ALPHA_CODE
Flag <- data.frame(HOSP,Dept, Overall, DC_Info, Care_Trans)
@
<<results=tex>>=
color_cells <- function(df, var){
 out <- ifelse(df[, var]=="", 
                  paste0("\\cellcolor[HTML]{2DB200}{", df[, var], "}"),
                  paste0("\\cellcolor[HTML]{FF0600}{", df[, var], "}"))
}
Flag$Overall <- color_cells(df = Flag, var= "Overall")
Flag$DC_Info <- color_cells(df = Flag, var= "DC_Info")
Flag$Care_Trans <- color_cells(df = Flag, var= "Care_Trans")
@

<<results=tex>>=
Flagx <- xtable(Flag)
align(Flagx) <- "|c|l|l|c|c|c|"
print(Flagx[1:40,], hline.after=c(-1:40), sanitize.text.function=identity)
@
<<results=tex>>=
Flagx <- xtable(Flag)
align(Flagx) <- "|c|l|l|c|c|c|"
print(Flagx[41:62,], hline.after=c(-1:22), sanitize.text.function=identity)
@

But I'm getting the following message:

What am I doing wrong here?

Edit: Here is a small portion of my data

ALPHA_CODE <- c(AF, DX, DX)
Dept <- c(MSN, ICU, PEDS)
OVERALL<- c(NA,NA,1)
DC_Info <- c(NA,NA,NA)
Care_Trans <- c(1,NA,NA)
Flag <- data.frame(HOSP,Dept, Overall, DC_Info, Care_Trans)

Answer 1

Now that I'm at a computer I see the issue. Your column names have underscores in them, and LaTeX assumes that you mean to subset a character, and that tends only to work in math mode. (ie, between $ characters).

In my experience, when I get the "Missing $ inserted" error, it means either

1. I've not interpreted my output as LaTeX ( results = tex is usually what I've forgotten. or
2. I've failed to escape a special character that is assumed to be in math mode (such as $ , _ , and others. A good list of these is in the documentation for Hmisc::latexTranslate .

The solution in your case is to sanitize your column names.

print(Flagx[41:62,], 
    hline.after=c(-1:22), 
    sanitize.text.function=identity,
    sanitize.colnames.function = Hmisc::latexTranslate)