통계의보고 통계청 통계자료 - 블로그 컨텐츠 개선하여 방문자 수 높이기

통계의 보고 - 통계청 - 자살통계샘플로 블로그 잘 운영하기

 
No. 6g29-4678851 

통계청 홈페이지에 가면 통계가 무지하게 많이 쌓여 있습니다. 아무거나 가지고 와서 가공하면 엄청난 블로그 컨텐츠가 될 것 같습니다. 자살생각을 가진적이 있는지에 대한 통계를 제가 가공해서 올려 보겠습니다.  블로그 글 쓰시는 분들 중에 통계를 참조하여 멋진 글을 쓰시고 싶은 분에게 도움이 되었으면 합니다. 블로그 방문자를 올리는 방법 중에 가장 쉽고 편리한 방법이 아닌가 싶습니다. 저도 이 방법으로 네이버블로그, 티스토리블로그 방문자 수 많이 올렸습니다. 

  통계청홈페이지

자살실태조사 통계정 홈페이지에서 보면

홈페이지
http://www.mohw.go.kr/front_new/jb/sjb1101vw.jsp?SEQ=165&MENU_ID=03320101&page=1&PAR_MENU_ID=03#

맨 아래 KOSIS가 있습니다. 이 를 눌러 보면 조사항목별 결과를 볼 수 있습니다.

KOSIS를 누르면 아래 창이 뜹니다.

아래 엑셀파일로 '거의 모든 사람들은 자살에 대해 한 두번 생각을 한 적이 있다' 항목을 저장한 것입니다.

이 데이타를 빅데이터화하기 위해 가로항목, 세로항목을 해당 값에 링크시켰습니다. 이때 vb스크립트로 만든 매크로를 이용했습니다. 

이렇게 세분화한 정보를 빅데이타 처리를 위해 데이타베이스(DB)에 저장했습니다. 아래 저장된 모습입니다.

No. 37990-6g29-46788 

그런 후 매우 동의하는 비율만 모아 보았습니다.

항목	비율(%)
남자	5.8
여자	5.9
19-25세	7.1
26-40세	5.6
41-60세	6.7
61세 이상	3
중학교 졸업 이하	4.4
고등학교 졸업	7.2
대학교 졸업 이상	5.1
미혼	7.7
기혼	5.5
이혼/사별	3.3
종교있음	7.1
종교없음	4.7
도시	5.4
농촌	8

위 통계를 보면 농촌 거주하는 분들이 가장 높게 나옵니다. 지금까지 조용한 농촌에 살면 자살충동이 적을 줄 알았는데 아님이 밝혀졌습니다.

위에서 데이타 가공에 쓰인 매크로 소스를 옮겨놓았습니다. 참조하시기 바랍니다.

Sub 가로세로드릴다운()

'

' 가로세로드릴다운 매크로

'

'

    Dim IC As Integer '시작할 줄

    Dim CC As String

    Dim tCol, tCol2 As String

    Dim 가로항목번호 As Integer

    

    IC = 3 '가로항목시작위치

    CC = "B"

    tCol = "CDEFGH"

    tCol2 = "IJK"

    가로항목번호 = 1

    

    

    For i = 1 To 16

        가로항목번호 = i Mod 16

        

        If 가로항목번호 = 0 Then

            가로항목번호 = 16

        End If

        

        For ii = 1 To 6 '세로항목번호

        

            Range("B" & 가로항목번호 + 2).Select '가로항목

            Selection.Copy

            Range("I" & IC).Select    '불러온 값이 첫번째 항목으로 들어가는 곳

            ActiveSheet.Paste

            

            Range(Mid(tCol, ii, 1) & 2).Select '세로항목

            Selection.Copy

            Range("J" & IC).Select    '불러온 값이 두번째 항목으로 들어가는 위치

            ActiveSheet.Paste

            

            Range(Mid(tCol, ii, 1) & 가로항목번호 + 2).Select '숫자

            Selection.Copy

            Range("K" & IC).Select    '불렁온 값이 세번째 항목으로 들어가는 위치

            ActiveSheet.Paste

            

            IC = IC + 1

    

        Next ii

        

        

    Next i

End Sub

보도자료, 홍보하실 내용 있으시면 보내주시기 바랍니다. 블로그 포스팅 해 드리겠습니다.

내일신문 백재원 부장