Apply gtExtras::gt_sparkline to multiple columns

Question

Based on example code for sparkline from this link:

library(gt)
library(gtExtras)
mtcars %>%
    dplyr::group_by(cyl) %>%
    # must end up with list of data for each row in the input dataframe
    dplyr::summarize(mpg_data = list(mpg), .groups = "drop") %>%
    gt() %>%
    gt_sparkline(mpg_data)

Out:

Now I hope to apply code above to the data df below, which means use type as cyl, other year-month columns as mpg-data:

structure(list(type = c("v1", "v2"), `2017-06` = c(244.955, 9e-04
), `2017-07` = c(244.786, -7e-04), `2017-08` = c(245.519, 0.003
), `2017-09` = c(246.819, 0.0053), `2017-10` = c(246.663, -6e-04
)), class = "data.frame", row.names = c(NA, -2L))

How could I achieve that? Thanks.

EDIT:

data <- melt(df, id = 'type')
data %>%
    dplyr::group_by(type) %>%
    # must end up with list of data for each row in the input dataframe
    dplyr::summarize(values = list(value), .groups = "drop") %>%
    gt() %>%
    gt_sparkline(values)

Out:

Edited data by adding value column:

structure(list(type = c("v1", "v2"), `2017-06` = c(244.955, 9e-04
), `2017-07` = c(244.786, -7e-04), `2017-08` = c(245.519, 0.003
), `2017-09` = c(246.819, 0.0053), `2017-10` = c(246.663, -6e-04
), value = c(1.2, 1.6)), class = "data.frame", row.names = c(NA, -2L))

Ronak Shah · Accepted Answer · 2021-10-18 06:23:26Z

1

You may use rowwise and collapse all the data of the row in a list.

library(dplyr)
library(gt)
library(gtExtras)

df %>%
  rowwise() %>%
  mutate(data = list(c_across(-type))) %>%
  select(type, data) %>%
  gt() %>%
  gt_sparkline(data)

answered Oct 18, 2021 at 6:23

Ronak Shah

391k20 gold badges173 silver badges237 bronze badges

Sign up to request clarification or add additional context in comments.

4 Comments

ah bon Over a year ago

Thanks but why it's straight line without fluctuation? With my edit code, it generates same result.

Ronak Shah Over a year ago

Because there isn't any fluctuation in the data ? They are very close to each other. If you change the value df$`2017-08` <- 100 then you'll see fluctuations. I think it is completely dependent on the data that you have.

ah bon Over a year ago

I have edited data by adding one more column value which I don't want it shown in the graph but keep it as column in output, how could i do that? which means the output will have one column value to the current one, others are all same.

Ronak Shah Over a year ago

@ahbon

df %>% rowwise() %>% mutate(data = list(c_across(matches('^\\d+')))) %>% select(type, value, data) %>%gt() %>%gt_sparkline(data)

ah bon · Accepted Answer · 2021-10-19 01:04:27Z

1

We may use pmap from purrr

library(gt)
library(gtExtras)
library(dplyr)
library(purrr)
df %>%
   transmute(type, data = pmap(across(-type), list)) %>%
   gt() %>%
   gt_sparkline(data)

Output:

edited Oct 19, 2021 at 1:04

ah bon

10.1k22 gold badges82 silver badges187 bronze badges

answered Oct 18, 2021 at 18:43

akrun

891k38 gold badges590 silver badges700 bronze badges

3 Comments

ah bon Over a year ago

Many thanks, it seems gt_sparkline can't show small fluctuations, ie., 1.1, 1.2, 1.3?

akrun Over a year ago

@ahbon the scale is too slow

ah bon Over a year ago

Is it possible to change that?

Collectives™ on Stack Overflow

Apply gtExtras::gt_sparkline to multiple columns

2 Answers 2

4 Comments

3 Comments

Your Answer

Linked

Hot Network Questions

Collectives™ on Stack Overflow

2 Answers 2

4 Comments

3 Comments

Your Answer

Sign up or log in

Post as a guest

Linked

Related