Как разделить запятую числом и уменьшить размер шрифта в R

Question

Для следующего фрейма данных я хочу, чтобы значения в () были разделены запятыми, а шрифт должен быть немного меньше, чем тот, который находится вне значения ().

ID      A1        B1         C1          Sum
RE-01   1 (10000)  2 (15000)  4 (55000)  80,000
RE-02   0          2 (25000)  2 (40000)  65,000

Мне нужно сделать так, чтобы значения в () были разделены запятыми, а размер шрифта 1 меньше значения вне поля. ().

Я использую приведенный ниже код, но это не сработало.

Table<-htmlTable(DF,  
              ctable=c("solid","double"),
              align="lcc",
              col.rgroup = c("none", "#F9FAF0"),
              col.columns = c("none", "#F1F0FA"))

Answer 1

Это можно сделать с помощью пакета tableHTML и функции prettyNum, например:

DF <- read.table(text = "ID      A1        B1         C1          Sum
                         RE-01 '1 (10000)'  '2 (15000)'  '4 (55000)'  80,000
                         RE-02   0          '2 (25000)'  '2 (40000)'  65,000", header =TRUE)


library(tableHTML)
library(dplyr)

add_font <- function(x) {
  x <- gsub('\\(', '\\(<font size="-1">', x)
  x <- gsub('\\)', '</font>\\)', x)
  return(prettyNum(x, big.mark = ','))
}

DF %>% 
  mutate(A1 = add_font(A1),
         B1 = add_font(B1),
         C1 = add_font(C1)) %>% 
  tableHTML(rownames = FALSE, 
            escape = FALSE,
            widths = rep(100, 5)) %>% 
  add_theme('scientific')    

вы получите: