Блог

Я пытаюсь раскрасить ячейку в каждой строке, которая имеет максимальное значение, используя пакет gt (т. Е. покрасить максимальное значение для каждого типа). Происходит сбой следующего:

 df <- tibble(Type=c("a","b","c"),V2=c(7:9), V3 = c(9,8,1), V4 = c(12,31,105))
df %>% 
    gt() %>% 
    tab_style(
        style = list(
            cell_fill(color = "#D9654B")
        ),
        locations = cells_body(
            columns = vars(V2, V3, V4), # not needed if coloring all columns
            rows = max(.))
    )
 

Пожалуйста, помогите с идеями.