Я пытаюсь включить highcharter
график в таблицу в markdown
. Чего я хотел бы добиться, так это что-то вроде https://www.highcharts.com/demo/sparkline (я пытался использовать knitr::kable
и DT:datatable
вместо этого без успеха)
Можно ли изменить высоту графиков? Ни один из hc_size()
/ highcharter()
не работает.
---
title: "Title"
author: "Author"
date: "Date"
output:
flexdashboard::flex_dashboard:
self_contained: no
orientation: row
vertical_layout: scroll
---
```{r, message=F, warning=F, echo=F}
library(flexdashboard)
library(highcharter)
library(tidyverse)
```
DB {data-orientation=rows}
=======================================================================
```{r}
h1 <- hc_size(hchart(data.frame(x = 1:10, y = rnorm(10)), type = "line", mapping = hcaes(x = x, y = y)), 1,1)
h2 <- hchart(data.frame(x = 1:10, y = rnorm(10)), type = "line", mapping = hcaes(x = x, y = y))
```
Row {data-width=600 data-height=1500}
-----------------------------------------------------------------------
### {data-height=1000 data-width=400}
|<font size="4">**A**</font> |<font size="4">B</font> | <font size="4">C</font> | <font size="4">D</font> | <font size="4">E</font> | <font size="4">F</font> | <font size="4">G</font> |
|:-------------------|:----:|:-----------: |:----: |:----:|:-------------------- |:----:
| | | <br> <font size="3">**AA**</font> | | |
|A | B | C | D | E | F | `r h1 %>% hc_add_theme(hc_theme_sparkline())` |
|A | B | C | D | E | F | `r hc_size(h2 %>% hc_add_theme(hc_theme_sparkline()), 1, 1)` |
|A | B | C | D | E | F | `r highchart(width = 1, height = 1) %>% hc_add_series(data.frame(x = 1:10, y = rnorm(10)), type = "line", mapping = hcaes(x = x, y = y)) %>% hc_add_theme(hc_theme_sparkline())` |