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() +labs(title = '대구시 어린이 교통사고 통계')+ theme(title = element_text(size = 15))
dague_plot <-dague_plot + geom_point(aes(color=교통사고구분))+scale_y_continuous(breaks=seq(0,1000, 100))
dague_plot