多行 plot 与 ggplot，geom_line()

Question

I want to plot multiple lines in the same chart. Each line represent an age group (grupo_edad). In the x axis is the week when the cases are notified (epiweek) and the y axis is the incidence rate (inc).

These is my data:

inc_015

When I use plotly the result is perfect:

p <- plot_ly()%>%
  layout(title = "Curvas de tasas de incidencia de casos notificados de COVID-19 \n en la Región Metropolitana, según grupo etario y semana epidemiológica primeros síntomas",
         xaxis = list(title = "Semana Epidemiológica"),
         yaxis = list (title = "Tasa x 100.000 habitantes") ) %>% 
  add_trace(x = inc_015$epiweek, y = inc_015$inc, type = 'scatter', mode = 'line', name = '0 a 15', 
            line=list(color='#16e3ff',dash='dashed')) %>% 
  add_trace(x = inc_1525$epiweek, y = inc_1525$inc, type = 'scatter', mode = 'line', name = '15 a 25',
            line=list(color='#00c9e4',dash='dashed'))
p

But when I try with ggplot the result is totally different, the points are connected vertically

ggplot(data=incidencia1,
       aes(x=epiweek, y=inc, colour=grupo_edad)) +
  geom_point()

Can someone tell me how to display the same graph that I made with plotly in ggplot2?

Answer 1

For ggplot2 you need to specify the group aesthetic in this case it is the same as colour

ggplot(data=incidencia1,
       aes(x=epiweek, y=inc, group=grupo_edad, colour=grupo_edad)) +
  geom_point() + geom_line()

Answer 2

If there is someone that need the answer, here is the solution:

incidencia1$grupo_edad <- incidencia1$grupo_edad %>% as.factor()

f <- ggplot(data=incidencia1,
        aes(x=epiweek, y=inc, group=grupo_edad, col=grupo_edad)) +
        geom_path() + 
        scale_color_manual(name = 'Grupo Etario', labels = c("0-14", "15-24", '25-49', '50-64', '65-80', '>=80'), 
                                      values = c("#FDD700", 'red', "#FE882D", "darkolivegreen3", 'darkblue', 'deepskyblue3')) +
        theme_ipsum_rc(grid = 'Y') + theme(axis.text.x = element_text(angle = 90)) +
        xlab('Semana Epidemiológica') +
        ylab('Tasa de Incidencia') + theme(axis.text.x = element_text(angle = 90)) +
        labs(title = 'Curvas de tasas de incidencia de casos notificados de COVID-19', 
             subtitle = 'Región Metropolitana, según grupo etario y semana epidemiológica primeros síntomas')

f

thanks to @Sinh Nguyen and sorry for don't knnow how to label you