Why map function in purr is not working to create different plots with ggplot2?

Question

I have the following data set:

library(ggplot2)
library(dplyr)

data.1 <-read.csv(text = "
                  location,crop,treat,rep,dap,response