library(ggplot2)

## Warning: package 'ggplot2' was built under R version 4.0.5

dague <- read.csv("1. 대구시 교통사고 통계.csv",stringsAsFactors = F)
dague_plot <- ggplot(dague,aes(x=연도,y=발생횟수,color =교통사고,group =교통사고)) + geom_line()
dague_plot <-dague_plot + geom_point(aes(color=교통사고))
dague_plot