# CSV 파일 불러오기
tv <- read.csv("tv.csv", fileEncoding = "euc-kr")
head(tv)
str(tv)
length(unique(tv$V_CODE))
unique(tv$VEHICLE_TYPE)
# 데이터 처리
library(dplyr)
library(ggplot2)
# '이륜'과 '승용차' 데이터만 추출
filtered_data <- tv %>%
filter(VEHICLE_TYPE %in% c("이륜", "승용차"))
# police_agency별 v_code 합산
summarized_data <- filtered_data %>%
group_by(POLICE_AGENCY, VEHICLE_TYPE) %>%
summarise(V_CODE_COUNT = n()) %>%
ungroup()
# 히스토그램 그리기
ggplot(summarized_data, aes(x = POLICE_AGENCY, y = V_CODE_COUNT, fill = VEHICLE_TYPE)) +
geom_bar(stat = "identity", position = "dodge") +
labs(title = "Police Agency 별 V_CODE 합산 값",
x = "Police Agency",
y = "V_CODE 합산 값",
fill = "Vehicle Type") +
theme(axis.text.x = element_text(angle = 90, hjust = 1))