Создать итоговый слайд каждой строки кадра данных через цикл

Я пытаюсь создать презентацию Powerpoint с сочетанием сюжетов и текста. У меня есть следующие примерные данные:

data <- structure(list(School_ID = c("J-56124", "T-65451", "D-78544", "TBD", 
"B-78664"), Release_Date = structure(c(18659, 19024, 19052, 19052, 
19079), class = "Date"), Value = c("11 M", "15 M", "9 M", "3 M", "5 M"), 
Type = c("a", "b", "c", "TBD", "TBD")), row.names = c(NA, 
-5L), class = c("tbl_df", "tbl", "data.frame"))

У меня есть следующий текст со ссылками на фрейм данных data, который я хочу построить:

text_1 <- paste0("A: just some text \n",
"some other text \n",
"Type: ", data$Type[1], "\n",
"comments \n", 
"Place: LA \n",
"Value: ", paste0('$',formatC(data$Value[1], big.mark=',', format = 'f'))[1], "\n",
"Release Date: ", data$Release_Date[1], "\n",
"School ID: ", data$School_ID[1], "\n",
"more lengthy text to finish the slide")

Сначала я определяю стиль шрифта:

fp_normal <- fp_text(color = "black", font.size = 12, font.family = "calibri")

Затем я создаю слайды и распечатываю презентацию как:

my_pres <- read_pptx("my_template4.pptx") %>%
  add_slide(., layout = "Title and Content", master = "Office Theme") %>%
  ph_with(., value = "my title", location = ph_location_type(type = "title")) %>%
  ph_with(., value = "my subtitle", location = ph_location_type(type = "subTitle")) %>%
  ph_with(., value = fpar(ftext(text_1, fp_normal)), location = ph_location(left = 0.3, top = 1.2, width = 4, height = 3)) 

print(my_pres, target = "my_file.pptx")

Я хочу распечатать новый слайд для каждой строки фрейма данных df с тем же содержимым, что и показано на text_1

r loops for-loop presentation officer

04.04.2022 23:07

Стоит ли изучать PHP в 2026-2027 годах?

Привет всем, сегодня я хочу высказать свои соображения по поводу вопроса, который я уже много раз получал в своем сообществе: "Стоит ли изучать PHP в...

Поведение ключевого слова "this" в стрелочной функции в сравнении с нормальной функцией

В JavaScript одним из самых запутанных понятий является поведение ключевого слова "this" в стрелочной и обычной функциях.

Приемы CSS-макетирования - floats и Flexbox

Здравствуйте, друзья-студенты! Готовы совершенствовать свои навыки веб-дизайна? Сегодня в нашем путешествии мы рассмотрим приемы CSS-верстки - в...

Тестирование функциональных ngrx-эффектов в Angular 16 с помощью Jest

В системе управления состояниями ngrx, совместимой с Angular 16, появились функциональные эффекты. Это здорово и делает код определенно легче для...

Концепция локализации и ее применение в приложениях React ⚡️

Локализация - это процесс адаптации приложения к различным языкам и культурным требованиям. Это позволяет пользователям получить опыт, соответствующий...

Пользовательский скаляр GraphQL

Листовые узлы системы типов GraphQL называются скалярами. Достигнув скалярного типа, невозможно спуститься дальше по иерархии типов. Скалярный тип...

Перейти к ответу Данный вопрос помечен как решенный

Ответы 1

Ответ принят как подходящий

Один из подходов состоит в том, чтобы обернуть ваш код для создания строки символов внутри пользовательской вспомогательной функции, а затем использовать цикл for, чтобы перебрать строки вашего набора данных, чтобы добавить слайд для каждой строки, например:

library(officer)
library(dplyr)

text_1 <- function(x) {
  paste0(
    "A: just some text \n",
    "some other text \n",
    "Type: ", x$Type[1], "\n",
    "comments \n",
    "Place: LA \n",
    "Value: ", paste0("$", formatC(x$Value[1], big.mark = ",", format = "f"))[1], "\n",
    "Release Date: ", x$Release_Date[1], "\n",
    "School ID: ", x$School_ID[1], "\n",
    "more lengthy text to finish the slide"
  )
}

my_pres <- read_pptx()

for (i in seq(nrow(data))) {
  my_pres <- my_pres %>%
    add_slide(., layout = "Title and Content", master = "Office Theme") %>%
    ph_with(., value = "my title", location = ph_location_type(type = "title")) %>%
    #ph_with(., value = "my subtitle", location = ph_location_type(type = "subTitle")) %>%
    ph_with(., value = fpar(ftext(text_1(data[i,]), fp_normal)), location = ph_location(left = 0.3, top = 1.2, width = 4, height = 3))  
}

print(my_pres, target = "my_file.pptx")

04.04.2022 23:33

Другие вопросы по теме

Объединение случайных имен из массива до тех пор, пока массив не станет пустым

Цикл для загрузки нескольких файлов (C++)

Есть ли способ перебирать имена столбцов (не числа) в r для линейных моделей?

Как обрабатывать пустую строку при сортировке по убыванию с помощью python?

Добавьте предварительное условие перед count = length(list) в Terraform

Как использовать параметр end="" в формате печати f-строки?

Как использовать функцию R ifelse с функцией &&?

Итерация по списку чисел и строк

Добавление строк возвращает пустую строку в Javascript

Я хочу сделать цикл, который задерживает пользователя до тех пор, пока не будет введено правильное слово, но когда введено правильное слово, он не показывает правильный вывод

Создать итоговый слайд каждой строки кадра данных через цикл

Ответы 1

Другие вопросы по теме

Похожие вопросы