Add ability to name scales about ggnewscale HOT 7 OPEN

Error in new_scale("alpha", "Layka") : unused argument ("Layka")

  ggplot() +
  geom_raster(data = Salinity_df_r, aes(x = x, y = y, fill = Present.Surface.Salinity.Mean)) +
  scale_fill_viridis_c(option = "G", direction = -1) +
  geom_sf(data = Global, fill = "#fff7f3", colour = "#000000") +
  new_scale("alpha", "Layka") +
  geom_star(data = Coors_Grouped, aes(x = Longitude, y = Latitude, starshape = Group, fill = BioState),
            size = 6) +
  coord_sf(xlim = c(-11, 31), ylim = c(67, 49.75), expand = FALSE) +
  scale_starshape_manual(values = Shapes) +
  scale_x_continuous(breaks = seq(-10, 32, by = 10)) +
  scale_y_continuous(breaks = c(50, 58, 66)) +
  annotation_north_arrow(location = "br", which_north = "false", style = north_arrow_fancy_orienteering,
                         height = unit(2.5, "cm"), width = unit(3, "cm"),
                         pad_x = unit(2.75, "in"), pad_y = unit(.4, "in")) +
  annotation_scale(location = "br", line_width = 2, text_cex = 1.35, style = "ticks", pad_y = unit(.3, "in")) +
  theme(panel.background = element_blank(), 
        panel.border = element_rect(colour = "black", size = .5, fill = NA),
        panel.grid.major = element_line(color = "#000000", linetype = "dashed", size = .00005),
        plot.margin = margin(t = .005, b = .005, r = .2, l = .2, unit = "cm"),
        legend.background = element_rect(size = .15, color = "#000000", fill = "#fff7f3", linetype = "dotted"),
        legend.key = element_blank(),
        legend.position = c(.142, .8675),
        axis.title = element_blank(),
        axis.text = element_text(colour = "#000000", size = 15, face = "bold"),
        axis.ticks = element_line(color = "black", size = .5)) +
  guides(fill = guide_colourbar(title = "Salinity", title.theme = element_text(size = 16, face = "bold"),
                                label.theme = element_text(size = 14, face = "bold"), label.position = "top",
                                barwidth = 12.3, barheight = 1, order = 1, frame.linetype = 1, frame.colour = "#000000",
                                ticks.colour = "#ffffff", direction = "horizontal", reverse = TRUE, even.steps = TRUE,
                                draw.ulim = TRUE, draw.llim = TRUE),
         starshape = guide_legend(title = "Sampling Localities", title.theme = element_text(size = 16, face = "bold"),
                                  label.theme = element_text(size = 14),
                                  override.aes = list(starshape = Shapes, size = 4), order = 2))