2017-10-02 16 views

答えて

2

この方法はどうですか?

library(knitr) 
library(kableExtra) 
library(IRdisplay) 

mtcars %>% 
    kable("html") %>% 
    row_spec(which(mtcars$mpg > 20), bold = T, color = "red") %>% 
    as.character() %>% 
    display_html() 

enter image description here

関連する問題