Figuras referenciadas abaixo Sou novo em R e RStudio, e acabei usando o pacote tableHTML porque parece uma boa opção para formatar meu dataframe. Tenho um dataframe (tibia_outliers_shortable) listando apenas os valores outliers baixos e altos para cada uma das várias variáveis em muitos assuntos, recortados aqui para uma variável em 9 assuntos. Quero alterar a cor de fundo das células com valores abaixo do "corte outlier baixo" para azul claro, e a cor de fundo das células com valores acima do "corte outlier alto" para vermelho.
Quando uso add_css_conditional_column() para alterar o fundo de células com valores altos, ele perde a célula com os valores mais altos - veja a Figura 1.
Se eu então executar o mesmo comando tableHTML() mas adicionar outra chamada para add_css_conditional_column() para destacar células com valores baixos, ele formata as células vazias (talvez as trate como zeros?) e também formata a célula de maior valor! Veja a Fig. 2.
patients <- c('PatNo 869','PatNo 885','PatNo 888','PatNo 1005','PatNo 1007','PatNo 1016','PatNo 1028','PatNo 1043','PatNo 1044')
vals = rbind("",427.3,978.3,"",423.2,967.4,"",1042.9,"")
tibia_outliers_shorter <- data.frame(vals,row.names = patients)
colnames(tibia_outliers_shorter) <- 'TotalArea'
lowhigh <- cbind(467.7,904.6) # These are the values determining which values are low vs. high outliers
# First attempt: Change background color of cells with high values to red
library(tableHTML)
tableHTML(tibia_outliers_shorter, caption = 'Outlier summary') %>%
add_css_caption(css = list(c('color','font-size'),c('darkblue','12px'))) %>%
add_css_conditional_column(conditional = ">", value = lowhigh[2], css = list('background-color','red'), columns = c("TotalArea")) %>%
tableHTML_to_image()
# Second attempt: Add this argument to same tableHTML command, for cell with low values
add_css_conditional_column(conditional = "<", value = lowhigh[1], css = list('background-color','lightblue'), columns = c("TotalArea")) %>%