добавление изображений в flextable с помощью Display () и as_image () в цикле не работает

Question

У меня есть zip-файл, в котором есть несколько изображений 2 типов.Я создал гибкую таблицу, а затем заменил четные строки изображениями и нечетные строки названиями изображений, используя цикл для .Цикл корректно отображает заголовки, но он печатает только последнее прочитанное изображение каждого типа несколько раз, вместо того, чтобы фактически печатать все изображения в соответствии с количеством циклов.

img.file <- unzip("D:\\Mast_Image Files.zip")
fr_files <- img.file[grepl(paste("FrequencyRose", collapse = "|"), img.file)]
er_files <- img.file[grepl(paste("EnergyRose", collapse = "|"), img.file)]

fr_files имеет 3 пути к файлам изображений и то же самое сer_files click

num_masts = length(img.file)

c1 = rep("Freq_rose",num_masts)
c2 = rep("Energy_Rose",num_masts)

df = data.frame(c1,c2)


dfft = flextable(df)

sso=seq(1,num_masts,2)
sse=seq(2,num_masts,2)

for (g in 1:(num_masts/2)){

  ff.img = fr_files[g]
  ef.img = er_files[g]

  dfft2 = dfft %>%
    display(
      i = sse[g], col_key = "c1", pattern = "{{img}}",
      formatters = list( img ~ as_image(c1,
                                        src = ff.img, width = 3, height = 3))) %>%

    display(
      i = sse[g], col_key = "c2", pattern = "{{img}}",
      formatters = list( img ~ as_image(c2,
                                        src = ef.img, width = 3, height = 3))) %>%

    display(
      i = sso[g], col_key = "c1", pattern = paste("Freq_Rose","mast",g)) %>%

    display(
      i = sso[g], col_key = "c2", pattern = paste("Energy Rose","mast",g))


}

этот цикл способен правильно генерировать заголовки, но только fr_files [3], er_files [3] зацикливается на всех четных строках соответствующих столбцов.вывод: окончательные результаты .не удалось найти проблему.

Answer 1

Я не могу воспроизвести ваш пример (у меня нет изображений).

library(ggplot2)
library(tidyverse)
library(flextable)

# a data example ----
zz <- iris %>% 
  group_by(Species) %>% 
  summarise( n = n(), avg = mean(Petal.Length), 
             img_path = paste0( unique(as.character(Species)), ".png"),
             gg = list(ggplot(tibble(Sepal.Length, Petal.Width), aes(Sepal.Length, Petal.Width)) + geom_point() + theme_minimal())
             )
zz
# create the png ----
walk2(zz$gg, zz$img_path, function(gg, path){
  png(filename = path, width = 300, height = 300)
  print(gg)
  dev.off()
})

Оттуда у вас есть все, что вам нужно, и гибкие команды могут быть:

# create the flextable -----
flextable(zz, col_keys = c("Species", "n", "avg", "plot")) %>% 
  # here, i is selecting only odd rows 
  compose(i = ~ seq_along(Species) %% 2 > 0, j = "plot", value = as_paragraph(as_image(img_path, width = 300/72, height = 300/72))) %>% 
  theme_box() %>% 
  autofit()