Вложено для циклов, которые будут выполняться при определенных условиях

Question

Я хочу создать скриншот ниже. В нескольких словах «Hello World» следует поместить под заголовком «Figure 1» и «Goodnight world» под заголовком «Figure 2». Вместо этого я получаю два названия, связанные с обеими фразами.

library(officer)
library(magrittr)
library(flextable)

my_doc2 <- read_docx() 

n=2


bl=c('1','2','3')
b2=c('1','2')


for(j in 1:n){
for( i in 1:(length(bl))){
  my_doc2 <- my_doc2 %>%
    body_add_par(paste0("Figure",j), style = "graphic title") %>%
  body_add_par(paste0("Hello world",i), style = "Normal")
}
  for( i in 1:(length(b2))){
    my_doc2 <- my_doc2 %>%
      body_add_par(paste0("Figure",j), style = "graphic title") %>%
      body_add_par(paste0("Goodnight world",i), style = "Normal")
  }
}


#writing to word file
print(my_doc2, target = "second_example.docx")