Добавьте изображения в столбец таблицы и увеличьте высоту строки в PDF-документе rmarkdown. - PullRequest
Новая
       42

Добавьте изображения в столбец таблицы и увеличьте высоту строки в PDF-документе rmarkdown.

0 голосов
/ 24 сентября 2018

Я использовал код в этом стеке потока вопрос , чтобы включить изображения в таблицу.Однако увеличение высоты строки с помощью аргумента высоты 'Adjusttimage', похоже, не влияет на высоту изображения.Изображения, которые я хочу включить в свою таблицу, более подробны, чем флаги, которые должны быть выше, чем высота текста.

Я работаю с документом .Rmd и мне требуется вывод в формате PDF.

MWE 

---
title: "Image in table using xtable and adjustbox"
output: pdf_document

header-includes:
- \usepackage{adjustbox}
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = FALSE)
library(xtable)
# flags from: https://www.iconfinder.com/search/?q=orange+flag&price=free
```

```{r image function, include = FALSE}

get_picture_code <- function(path, height, col = NULL){
  paste0("\\adjustimage{height = ", height, ", valign = M, margin* = 1ex}{", path, "}")  
}
```

```{r image in xtable adjustbox method, results='asis'}

dat <- data.frame(country = c("Belgium", "Germany", "Holland", "Ireland"),
                  var1 = 1:4,
                  var2 = 11:14)

mypath <- paste0("images/", dat$country, ".png")

dat$flag <- get_picture_code(path = mypath, height = "3cm")

print(xtable(dat,
        align = c("l","l","l","l","c"),
        caption = "Example with flags"),
    sanitize.text.function = identity,
    comment = FALSE)

```

enter image description here

Изображения, несмотря на высоту = "3 см", не выше текста строки.

Am Iотсутствует какой-то очевидный трюк или есть какой-то способ увеличить высоту строки, чтобы учесть большие изображения в таблице.

Я нашел latex способ сделать это, но это зависит от сборки вручнуюдо стола.У меня много изображений, и я бы предпочел сделать это, используя метод данных, если это возможно.

...