基于sparkline
来自此链接的示例代码:
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)
出去:
现在我希望将上面的代码应用于df
下面的数据,这意味着使用type
as cyl
,其他年月列 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))
我怎么能做到这一点?谢谢。
编辑:
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)
出去:
通过添加value
列编辑数据:
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))