I want to hide a specific legend entry, while keeping the main aesthetic in ggplot. How would yo go about it?

Question

I dont want the CRF part to show up in my legend. I tried to use a scale_color_manual but could not figure out how to get rid of that entry.

    fr30_clean <- ex37_fr30 %>% 
  select(1,3) %>% 
  rowid_to_column() %>% 
  rename(response = rowid,
         time = Time,
         schedule = Schedule) %>% 
  mutate(schedule = as.factor(schedule))

vi5_clean <- ex37_vi5 %>% 
  select (1,3) %>% 
  rowid_to_column() %>% 
  rename(response = rowid,
         time = Time,
         schedule = Schedule) %>% 
  mutate(schedule = as.factor(schedule))

plot01 <- ggplot(data = fr30_clean, aes(x = time, y = response)) +
  geom_point(aes(color = schedule), size = 3) +
  xlim (217860,230135) + 
  ylim (98,431) +
  xlab("Time [ms]") +
  ylab ("Cumulative Responses") +
  labs(color = "Schedule") +
  ggtitle(label = "Figure 1",
          subtitle = "Extinction under FR30") +
  theme_apa() +
  geom_line(linetype = "dashed")

plot01

Any help would be greatly appreciated :) Thank you.