Назначьте имя фрейма данных заголовку ggplot в цикле purrr

У меня есть два набора данных, из которых я хотел бы создать гистограммы, показывающие, как данные перекрываются по имени (A, B, C). Я написал пользовательскую функцию, чтобы использовать ggplot с map2.

Я хотел бы, чтобы графики назывались в соответствии с названием каждого набора данных, поэтому «A», «B», «C». Кто-нибудь знает способ сделать это?

# load packages 
library(ggplot2)
library(dplyr)
library(purrr)

## load and format data 1
df1_raw <- data.frame(name = c("A", "B", "C", "A", "C", "B"), 
                 start = c(1, 3, 4, 5, 2, 1),  
                 end = c(6, 5, 7, 8, 6, 7)) 
df1 <- split(x = df1_raw, f = df1_raw$name) # split data by name
df1 <- lapply(df1, function(x) Map(seq.int, x$start, x$end)) # generate sequence intervals
df1 <- map(df1, unlist) # unlist sequences
df1 <- lapply(df1, data.frame) # convert to df

## load and format data 2
df2_raw <- data.frame(name = c("C", "B", "C", "A", "A", "B"), 
                      start = c(5, 4, 3, 4, 4, 5),  
                      end = c(7, 8, 7, 6, 9, 6)) 
df2 <- split(x = df2_raw, f = df2_raw$name) # split data by name
df2 <- lapply(df2, function(x) Map(seq.int, x$start, x$end)) # generate sequence intervals
df2 <- map(df2, unlist) # unlist sequences
df2 <- lapply(df2, data.frame) # convert to df

## write custom ggplot function and generate graphs
gplot <- function(data1, data2) {
  ggplot() + 
    geom_histogram(data = data1, aes(x = X..i..),  binwidth = 1, color = "grey", fill = "grey") +
    geom_histogram(data = data2, aes(x = X..i..),  binwidth = 1, fill = "pink", alpha = 0.7) +
    labs(
      title = ls(data1))
}

hist <- map2(df1, df2, gplot)

Я также попробовал следующее в поле заголовка в моей функции:

deparse(substitute(data1))