Как сделать графику данных из списка

Question

У меня есть список имен, для которых я хочу сделать 35 различных графиков данных.У меня есть правильный код для первого (справочного) графика, но теперь я хочу воспроизвести одну и ту же графику данных для 35 различных элементов в списке.Я не уверен, как это сделать ... Я также знакомлюсь с наукой о данных, поэтому мы работали только с функцией mapping () и с тем, как определить новую функцию.Вот список из 35 элементов (в данном случае это имена из набора данных babynames).

actual_names <- c("Jessie", "Marion", "Jackie", "Alva", "Ollie",
                  "Jody", "Cleo", "Kerry", "Frankie", "Guadalupe", 
                  "Carey", "Tommie", "Angel", "Hollis", "Sammie",
                  "Jamie", "Kris", "Robbie", "Tracy", "Merrill", 
                  "Noel", "Rene", "Johnnie", "Ariel", "Jan", 
                  "Devon", "Cruz", "Michel", "Gale", "Robin", 
                  "Dorian", "Casey", "Dana", "Kim", "Shannon")

Это код для обработки данных, который затем будет использован для создания графических данных

* 1005.*

casey_plot <- ggplot(casey, aes(x = year))

casey_plot <- casey_plot +
  theme(
    panel.background = element_rect(fill = "aliceblue") ,
    panel.grid.major = element_line(color = "aliceblue"),
    panel.grid.minor = element_blank(),
    plot.background = element_blank()) +
  geom_area(stat = "identity", aes(y = perc), fill ="darkmagenta", col = "darkmagenta") +
  geom_line(aes(y = perc), size = 0.5) +
  ylab(NULL) +
  xlab(NULL) +
  scale_x_continuous(expand = c(0, 0), breaks = seq(1940, 2000, 20), lim = c(1930, 2012), labels = c("1940" = "1940","1960" = "'60", "1980" = "'80", "2000" = "2000")) +
  scale_y_continuous(expand = c(0, 0), breaks = seq(0, 100, 50), lim = c(0,100), labels = c("0" = "0%","50" = "50%", "100" = "100%")) +
  theme(axis.ticks.y = element_blank())

casey_plot <- casey_plot +
  ggtitle("Casey") +
  theme(plot.title = element_text(family = "Century Gothic", size = 40, colour = 'Black', face = "bold"),
        axis.text = element_text(family = "Century Gothic", size = 30, colour = 'Black')) +
  geom_text(x = 1997 , y = 80, label = "BOYS", colour = "White", family = "Century Gothic", size = 15) +
  geom_text(x = 1997 , y = 20, label = "GIRLS", colour = "White", family = "Century Gothic", size = 15) +
  geom_text(x = 1942 , y = 35 , label = "Most", colour = "black", size = 10, family = "Century Gothic", fontface = "italic") +
   geom_text(x = 1950 ,y = 22 , label = "unisex year", colour = "black", size = 10, family = "Century Gothic", fontface = "italic") +
  geom_point(aes(x = 1949, y = 50.19474), fill = "white", colour = "black", size = 8, shape = 21) +
  geom_segment(aes(x = 1947.25, y = 50, xend = 1940, yend = 50)) +
  geom_segment(aes(x = 1940, y = 50, xend = 1940, yend = 41))

casey_plot