library(ggplot2)
## Warning: package 'ggplot2' was built under R version 4.0.5
dague <- read.csv("대구시 교통사고 통계_전체.csv",stringsAsFactors = F)
dague_plot <- ggplot(dague,aes(x=연도,y=발생횟수,color =교통사고구분,group =교통사고구분)) + geom_line() +labs(title = '대구시 전체 교통사고 통계')+ theme(title = element_text(size = 15))
dague_plot <-dague_plot + geom_point(aes(color=교통사고구분))
dague_plot