[단순회귀] 서울시 지역구별 총 범죄율 - 경찰관 수(1)

1) 관서별 발생 범죄 수 가공하기

1. 서울시 지역구별 경찰관 수 가공 (csv파일)

파일명은 경찰관수.csv 로 했다.

2. 서울시 지역구별 5대 범죄 발생 및 검거 수 가공 (csv파일)

파일명은 5대범죄발생및검거수.csv 로 했다.

3. R studio CSV 파일 로드

3-1. 파일 위치 명시
프로젝트 파일이 위치한 폴더를 기준으로 csv파일을 Data 디렉토리에 담았기 때문에 자료가 있는 위치를 상대경로로 아주 간단하게 "Data"라고 명시했다.

setwd("Data") 

3-2. csv 파일 로드

• 위에서 가공한 csv 파일을 로드한다.
  • 경찰관수.csv 는 police_num 으로 로드한다.
  • 5대범죄발생및검거수.csv 는 total_Crime 으로 로드한다.
• fileEncoding을 따로 기재한 이유는 이전에 윈도우에서 작성한 csv파일을 맥에서 오픈하려하니 오류가 나서이다. ->> 관련링크
• header=TRUE 옵션은 디폴트 옵션값이며 데이터의 제목줄(header)의 존재여부를 설정하는 것이다. 데이터가 제목줄을 가지고 있으면 TRUE, 없으면 FALSE로 설정한다.

  police_num<-read.csv("경찰관수.csv",fileEncoding = "euc-kr")
  total_Crime<-read.csv("5대범죄발생및검거수.csv",header=TRUE,fileEncoding = "euc-kr")

  3-3. 로드된 csv 데이터 확인
• obs는 행의 수를 , variables는 열의 수를 가르킨다.
  

4. 관서(지역)별 총 '발생' 범죄 수 가공

4-1. 지역별 '발생' 범죄 행만 추출하기
다음은 total_prime에서 '강남구'에서 '발생'한 범죄의 데이터만 추출한 예시이다.

강남구<-total_Crime[total_Crime$구분=="강남",]
강남구<-강남구[강남구$발생검거=="발생",]
강남구<-강남구[-c(1,2,3)]
강남구<-sum(강남구)

• total_Crime에서 구분이 '강남'인 데이터를 추출한다.
• 추출된 '강남' 데이터에서 발생 검거가 '발생'인 데이터를 추출한다.
• 추출된 데이터에서 '건수'열만 추출한다.
• 추출된 '건수' 데이터를 모두 합해 해당 지역의 총 '발생' 범죄 수를 구한다.

4-2. 추출된 특정 지역 '발생' 범죄 수 총합
강남구 라는 이름으로 강남구 총 발생 범죄 수를 가르키는 변수가 생성되었다.

4-3. 각 관서별로 총 범죄수 추출

• 위 과정을 각 관서별로 실행해준다.
  
  4-4. 각 관서별 범죄수를 모아 하나의 시트 안에 넣어 CSV 파일로 추출하기
• 각 관서별 총 범죄수를 나타내는 변수를 모아 total_Crime이름으로 하나의 데이터(시트)안에 담도록한다.
• 루트에서 Output 디렉토리의 Data 디렉토리에 total_Crime.csv 이름으로 해당 데이터 결과를 추출하였다.

  total_Crime<-rbind(강남구,강동구,강북구,강서구,관악구,광진구,구로구,금천구,노원구,
                        도봉구,동대문구,동작구,마포구,서대문구,서초구,성동구,성북구,송파구,양천구,영등포구,
                        용산구,은평구,종로구,중구,중랑구)
  write.csv(total_Crime, "../Output/Data/total_Crime.csv, row.names=T)

  

5. 관서(지역)별 총 '발생' 범죄 수 가공 R 스크립트 저장

• total_crime_data_proc.R 이름으로 스크립트를 저장한다.
  • 해당 스크립트 파일은 Script 디렉토리에 위치한다.

요약

지역별 범죄 발생수 , 검거수가 나열된 로우 데이터로부터 지역별 발생 범죄수 총합 데이터를 하나의 시트로 추려내어 CSV파일로 추출하였다.
👍 굿!