मैं gt की पैकेज तालिका के साथ sparkline मिनी चार्ट का उपयोग करना चाहूंगा। क्या यह संभव है? मुझे पता है कि यह formattable के साथ संभव है, लेकिन मैं gt टेबल का उपयोग करना पसंद करूंगा। यहाँ मैं क्या हासिल करना चाहता हूँ और इसे formattable के साथ कैसे करना है।

sparkline in formattable

library(tidyverse)
library(sparkline)
library(htmlwidgets) 
library(formattable)

set.seed(27)

tibble(
  name = rep(c("A", "B"), each = 20),
  value = runif(40, min = -10, max = 10) %>% cumsum()
) %>%
  group_by(name) %>%
  summarise(
    chart = spk_chr(
      value, 
      type="line")
  ) %>%
  formattable(align=c("l")) %>% 
  as.htmlwidget() %>% 
  spk_add_deps()
1
Jakub.Novotny 22 अक्टूबर 2020, 12:29

1 उत्तर

सबसे बढ़िया उत्तर

कॉलम को HTML मानने के लिए fmt_markdown का प्रयोग करें।

library(tidyverse)
library(sparkline)
library(gt)

p <- tibble(
  name = rep(c("A", "B"), each = 20),
  value = runif(40, min = -10, max = 10) %>% cumsum()
) %>%
  group_by(name) %>%
  summarise(
    chart = spk_chr(
      value,
      type="line")
  ) %>%
  gt() %>%
  fmt_markdown(columns = vars(chart))

फिर, htmltools::attachDependencies का उपयोग करके निर्भरताएं जोड़ें

p_html <- gt:::as.tags.gt_tbl(p)

p_html <- htmltools::attachDependencies(p_html, htmlwidgets::getDependency("sparkline"))

print(p_html, browse = interactive())

sparklines

1
Paul 26 अक्टूबर 2020, 06:24