Функции цикла с несколькими переменными для ggplot2

Question

Я хочу построить несколько графиков из одной большой базы данных, чтобы у меня был один график для каждого текста (фактора) и для каждой меры (множество итоговых мер исследования отслеживания глаз). Ниже приведен гораздо более простой пример того, что я пытаюсь сделать:

Допустим, это мой набор данных

Text <- c(1,1,1,1,2,2,2,2,1,1,1,1,2,2,2,2)
Position <- c(1,2,3,4,1,2,3,4,1,2,3,4,1,2,3,4)
Modified <- c(1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0)
Line_on_page <- c(1, 1, 1, 1, 2,2,2,2 ,1 ,1,1,1,2,2,2,2)
IA_FIXATION_DURATION <- c(250.3, 70.82, 400, 120.12, 270, 120.5, 100.54, 212.43, 250.3, 70.82, 320.29, 123.12, 260, 121.5, 100.54, 272.43)
IA_FIXATION_COUNT <- c(1,0,1,1,3,2,0, 1, 1,0,1,2,3,2,0, 2)
IA_LABEL <- c("she", "did", "not", "know", "what", "to", "say", "to", "she", "did", "not", "know", "what", "to", "do", "to")
testDF <- data.frame(Text , Position , Line_on_page, Modified, IA_FIXATION_DURATION, IA_FIXATION_COUNT, IA_LABEL)

поэтому я хочу тепловую карту (или другой график) для каждого текста (1/2/3) и для каждой меры (IA_FIXATION_DURATION / IA_FIXATION_COUNT)

# so first i create my vectors


library(stringr)
library(reshape2)
library(ggplot2)
library(ggthemes)
library(tidyverse)

Text_list <- unique(testDF$Text)
Measure_list <- testDF %>% dplyr::select_if(is.numeric) %>% colnames() %>% as.vector()

# create graphing function
Heatmap_FN <- function(testDF, na.rm = TRUE, ...){

  # create for loop to produce ggplot2 graphs 
  for (i in seq_along(Text_list)) { 
    for (j in seq_along(Measure_list)) {

      # create plot for each text in dataset 
      plots <- ggplot(subset(testDF, testDF$Text==Text_list[i])) +
        geom_tile(aes(x=Position, 
                      y=Line_on_page, 
                      fill = Measure_list[j])) +
        geom_text(aes(x=Position, 
                      y=Line_on_page, 
                      label=IA_LABEL),
                  color = "white", size = 2, family = "sans") +
        scale_fill_viridis_c(option = "C", na.value = "black") +
        scale_y_reverse() +
        facet_grid(Page ~ Modified)+
        theme(legend.position = "bottom") + 
        ggtitle(paste(Text_list[i],j, 'Text \n'))

      ggsave(plots, file=paste(Measure_list[j], "_T", Text_list[i], ".pdf", sep = ""), height = 8.27, width = 11.69, units = c("in"))

    }
  }
}

Heatmap_FN(testDF)

Теперь я почти уверен, что проблема заключается в части «заливки» geom_tile, где я хотел бы указать функции, что я хочу использовать переменные результатов одну за другой для создания графика.

Есть идеи, как это исправить? Спасибо