Форматировать строки данных, а не столбцы

Question

У меня есть таблица трендовых данных.

ga_sessions_combined <-
structure(list(Metric = structure(1:7, .Label = c("Users", "Engaged Users", 
"Transactions", "Revenue", "ConversionRate", "Bounce Rate", "$/User"
), class = "factor"), ym_201904 = c(157664, 79295, 5764, 609172.887628, 
0.0365587578648265, 0.497063375279075, 3.86374116873858), ym_201905 = c(199340, 
103879, 5744, 673063.435872, 0.0288150897963279, 0.478885321561152, 
3.3764594956958), ym_201906 = c(169971, 90557, 4899, 566247.290325, 
0.0288225638491272, 0.467220878855805, 3.33143471724588), ym_201907 = c(161346, 
88059, 4223, 580408.759911, 0.0261735648854016, 0.454222602357666, 
3.5972925260682), ym_201908 = c(132702, 70701, 3106, 424807.71545, 
0.0234058265888984, 0.467219785685219, 3.20121562184443), ym_201909 = c(164160, 
96124, 3841, 724958.93068, 0.0233979044834308, 0.414449317738791, 
4.41617282334308), ym_201910 = c(217227, 118041, 4448, 798116.2282, 
0.0204762759693777, 0.456600698808159, 3.67411154322437), ym_201911 = c(970864, 
604606, 27713, 4859788.602792, 0.0285446777303515, 0.37724954267539, 
5.00563271765355), ym_201912 = c(1180689, 671162, 59536, 9447240.17602, 
0.0504247943361884, 0.431550560731912, 8.00146370129645), ym_202001 = c(216816, 
109637, 5057, 738079.024166, 0.0233239244336211, 0.494331599143975, 
3.40417231277212), ym_202002 = c(204113, 145975, 4847, 720506.474953, 
0.0237466501398735, 0.284832421256853, 3.52993917561841), ym_202003 = c(324266, 
229438, 8341, 1196234.593648, 0.0257227091338592, 0.292438923599761, 
3.68905341185323)), class = c("tbl_df", "tbl", "data.frame"), row.names = c(NA, 
-7L), .Names = c("Metric", "ym_201904", "ym_201905", "ym_201906", 
"ym_201907", "ym_201908", "ym_201909", "ym_201910", "ym_201911", 
"ym_201912", "ym_202001", "ym_202002", "ym_202003"))

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

Я хотел бы отформатировать таблицу на основе столбца 'Metri c', почти как глаголы dplyr, но с именами столбцов, являющимися первой строкой.

Для первых 3 строк: Пользователи, вовлеченные пользователи и транзакции, я хотел бы отформатировать с помощью scales::comma_format(), чтобы использовать запятые для тысяч, например, 1000.

Для строк дохода и $ / User я хотел бы отформатировать с помощью scales::dollar_format()

Для строк конверсии и показателя отказов я хотел бы отформатировать их как scales::percent_format()

Как я могу это сделать?

Answer 1

Возможно, это не тот ответ, который вы ищете, но проще перенести ваш фрейм данных. Вот подход tidyr:

library(tidyr)
ga_sessions_combined %>% 
  gather(key = period, value = value, 2:ncol(ga_sessions_combined)) %>% 
  spread(key = names(ga_sessions_combined)[1], value = "value")

Редактировать:

Если вы хотите сохранить его в широком формате, я думаю, что это работает, но все преобразуется в символ:

ga_sessions_combined %>% 
  gather(key = period, value = value, 2:ncol(ga_sessions_combined)) %>% 
  spread(key = names(ga_sessions_combined)[1], value = "value") %>% 
  mutate_at(vars(matches("Users|Engaged Users|Transactions")), funs(prettyNum(., big.mark=","))) %>% 
  mutate_at(vars(matches("Rate")), funs(scales::percent(., accuracy = 0.01))) %>% 
  mutate_at(vars(contains("$/User"), contains("Revenue")), funs(scales::dollar(.))) %>% t()

Если приемлем длинный формат, просто бросьте t() в конце.