About adding legend in R shiny

Question

Here is part of my code after getting a table named full,

full <- full %>% pivot_longer(cols = -num)
    p <- ggplot(full, aes(x=num,y=value,group=name,c