У меня есть data.frame с 13 строками и 18 столбцами. Цель состоит в том, чтобы создать percentage bar по строкам.

Из документации по форматированию, процентная полоса может не поддерживаться прямо из коробки.

MRE:

Манекен data.frame следующим образом:

frame <- data.frame(replicate(18,sample(0:1,13,rep=TRUE)))

#load library
library(formattable)

Следующая строка создает процентные полосы для первой строки:

formattable(
            frame, list(area(1, 1:18) ~ color_bar("lightgray", function(col) col/sum(col))))

Следующее создает процентные полосы для всех строк, но это жестко запрограммировано:

formattable(
  frame, list(area(1, 1:ncol(frame)) ~ color_bar("lightgray", function(col) col/sum(col)),
                       area(2, 1:ncol(frame)) ~ color_bar("lightgray", function(col) col/sum(col)),
                       area(3, 1:ncol(frame)) ~ color_bar("lightgray", function(col) col/sum(col)),
                       area(4, 1:ncol(frame)) ~ color_bar("lightgray", function(col) col/sum(col)),
                       area(5, 1:ncol(frame)) ~ color_bar("lightgray", function(col) col/sum(col)),
                       area(6, 1:ncol(frame)) ~ color_bar("lightgray", function(col) col/sum(col)),
                       area(7, 1:ncol(frame)) ~ color_bar("lightgray", function(col) col/sum(col)),
                       area(8, 1:ncol(frame)) ~ color_bar("lightgray", function(col) col/sum(col)),
                       area(9, 1:ncol(frame)) ~ color_bar("lightgray", function(col) col/sum(col)),
                       area(10, 1:ncol(frame)) ~ color_bar("lightgray", function(col) col/sum(col)),
                       area(11, 1:ncol(frame)) ~ color_bar("lightgray", function(col) col/sum(col)),
                       area(12, 1:ncol(frame)) ~ color_bar("lightgray", function(col) col/sum(col)),
                       area(13, 1:ncol(frame)) ~ color_bar("lightgray", function(col) col/sum(col)))
) #works per row, not scalable

Идея состоит в том, чтобы динамически создать диаграмму выше (для переменной n строк).

Вот то, что я пробовал, но не работает:

formattable(
  frame, list(area(1:13, 1:ncol(frame)) ~ color_bar("lightgray", function(col) col/sum(col))))

Этот не работает, потому что он создает полную область, поэтому проценты основаны на полном кадре.

0
erasmortg 5 Окт 2018 в 15:52

1 ответ

Лучший ответ

Это сделало это:

formattable(frame,
            lapply(as.list(1:nrow(frame)), function(row) {
              area(row, 1:ncol(frame)) ~ color_bar('lightgray', function(row) row/sum(row))
            }))
2
erasmortg 5 Окт 2018 в 19:36