Присвоение динамического имени сюжету в R?

createMap <- function(df1) {

map <- get_googlemap(center = "Milwaukee") %>% ggmap()+
    stat_density2d(data=df1, aes(x=Longitude, y=Latitude, fill=..density..),geom='tile', contour=F, alpha=.5)+
labs(fill = "seizure density")+
scale_fill_viridis(option = "inferno")

return map
}

createMap(my_df)

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

Использование следующего не работает:

paste(map,df1,sep = "_") <- get_googlemap(center = "Milwaukee") %>% ggmap()+
        stat_density2d(data=df1, aes(x=Longitude, y=Latitude, fill=..density..),geom='tile', contour=F, alpha=.5)+
    labs(fill = "seizure density")+
    scale_fill_viridis(option = "inferno")