Pengenalan

Hallo semua , kali ini saya akan membawakan sebuah artikel Data tentang bunuh diri di beberapa negara yang terjadi padah tahun 1985 sampai 2016. Kenapa harus data bunuh diri???

karna sebelum puncak dari perang dunia,ekonomi global sangat rusak. tidak ada yg namanya kenaikan ekonomi yg signifikan dalam peperangan, bahkan seluruh negara mengalami dampak krisis ekonomi dalam peperangan tersebut.

penyebab bunuh diri memiliki banyak faktor, dan yg paling umum adalah Gangguan mental, Depresi, Bullying, Kecanduan narkotika, Masalah keuangan, dan Masalah asmara sumbernya dari sini

Tentang Data

Data ini mereprentasikan tahun, negara, jarak umur ,dan kelamin contoh : dalam negara Albania di tahun 2000 jumlah bunuh diri pada range tahun 15 - 24 tahun angkanya adalah 5


data column HDI.for.year banyak sekali yg null , untuk saat ini saya tidak akan mengolah data tersebut

detail column dalam data


ï..country: pencatatan negara dalam data

year: pencatatan tahun dalam data

sex: Kelamin

age: umur bunuh diri, umur di kategorikan menjadi 6 tipe

suicides_no: angka bunuh diri

population: populasi yg berdasarkan jarak umur , tahun , generasi dan negara

suicides.100k.pop: hitungan jumlah bunuh diri dan populasi per 100k

gdp_for_year....: nilai PDB pada tahun yg di keluarkan

gdp_per_capita....: rasio antara PDB negara dan populasinya

generation: generasi manusia , dikategorikan menjadi 6 tipe

data category tahun

levels(df$age)
## [1] "15-24 years" "25-34 years" "35-54 years" "5-14 years"  "55-74 years"
## [6] "75+ years"

data category generation

levels(df$generation)
## [1] "Boomers"         "G.I. Generation" "Generation X"    "Generation Z"   
## [5] "Millenials"      "Silent"

Explore Japan Data

kita perlu mengambil data yg menandakan negara Japan saja

japan = subset(df,df$ï..country == "Japan")
head(japan)
##       ï..country year    sex         age suicides_no population
## 13365      Japan 1985   male   75+ years        1340    1791000
## 13366      Japan 1985 female   75+ years        1553    2862400
## 13367      Japan 1985   male 55-74 years        3763    8996900
## 13368      Japan 1985   male 35-54 years        6962   17833300
## 13369      Japan 1985   male 25-34 years        1982    8465800
## 13370      Japan 1985 female 55-74 years        2543   11024900
##       suicides.100k.pop country.year HDI.for.year  gdp_for_year....
## 13365             74.82    Japan1985        0.791 1,398,892,744,821
## 13366             54.26    Japan1985        0.791 1,398,892,744,821
## 13367             41.83    Japan1985        0.791 1,398,892,744,821
## 13368             39.04    Japan1985        0.791 1,398,892,744,821
## 13369             23.41    Japan1985        0.791 1,398,892,744,821
## 13370             23.07    Japan1985        0.791 1,398,892,744,821
##       gdp_per_capita....      generation
## 13365              12401 G.I. Generation
## 13366              12401 G.I. Generation
## 13367              12401 G.I. Generation
## 13368              12401          Silent
## 13369              12401         Boomers
## 13370              12401 G.I. Generation

Melihat jumlah kematian per tahun

check_jp = aggregate(formula = suicides_no ~ sex + year , data = japan , FUN = "sum")

ggplot(data = check_jp,aes(x = year,y = suicides_no, fill = sex)) +
  geom_col() + 
  scale_x_continuous(breaks = seq(1985,2016,5)) +
  labs(y = "Frequensi", x = "Tahun", 
       color = "Color by Generation",
       title = "Frequensi Bunuh Diri di Japan",
       subtitle = "1985 - 2016",
       caption = "Kaggle")


bisa kita lihat bahwa ada peningkatan kematian bunuh diri di antara tahun 1997 - 1998

lalu cari generasi apa yg paling banyak mati dan umurnya di jepang

kable(aggregate(formula = suicides_no ~ age + generation , data = japan , FUN = "sum"))
age generation suicides_no
25-34 years Boomers 23964
35-54 years Boomers 174911
55-74 years Boomers 42545
55-74 years G.I. Generation 39707
75+ years G.I. Generation 50950
15-24 years Generation X 25598
25-34 years Generation X 55268
35-54 years Generation X 51957
5-14 years Generation X 469
5-14 years Generation Z 657
15-24 years Millenials 26690
25-34 years Millenials 15297
5-14 years Millenials 1004
35-54 years Silent 51811
55-74 years Silent 190453
75+ years Silent 55621

setelah diliat yg paling tinggi anka bunuh diri adalah dari generasi :
Boomers dengan kisaran umur 35-53 tahun dengan jumlah 174911
Silent dengan kisaran umur 55-74 tahun dengan jumlah 190453

Kesimpulan

sebelum saya menarik kesimpulan saya membaca artikel tentang generasi2 tersebut di sini. di artikel ini menjelaskan tentang kisaran umur mereka dan dengan pada jaman apa mereka hidup.
Kalau sudah mari kita lanjut dengan kesimpulan saya

  1. Perbandingan angka kematian bunuh diri dari tahun 1865 - 2016 adalah 3:1 dan dominan ialah gender laki - laki

  2. pada tahun 2016 jumlah kematian bunuh diri turun pesat secara mendadak, kemungkinan karna generasi G.I. Generation atau biasa kita sebut dengan Alpha generation sudah paham tentang hidup di jaman Teknologi yang di wariskan oleh generasi Z dan hidup berkecukupan,

  3. generasi silent yg bunuh diri kebanyakan pada umur 55+, karna pada saat itu mereka hidup dengan serba kurang dan umur mereka yg menjelang tua sudah tidak kuat untuk menahan penderitaan yg di akibatkan oleh perang dunia dan kemungkinan penyebab bunuh diri adalah karna Masalah keuangan

  4. generasi Boomers yg bunuh diri kebanyakan dari umur 35 - 54, karna semenjak selesainya perang kenaikan populasi manusia cukup tinggi sehingga mereka saling berkompetisi untuk menunjang karier dimana mereka hanya berpikir untuk mensejahterakan kehidupan anak dan cucu" nya kelak nanti dan biayasanya penyebab bunuh diri adalah karna depresi dan ganguan mental

  5. tidak menjelaskan bahwa GDP/capita tinggi akan menurunkan jumlah kematian

  6. di Japan Generasi yg paling banyak mati adalah :
    Boomers dengan kisaran umur 35-53 tahun dengan jumlah 174911
    Silent dengan kisaran umur 55-74 tahun dengan jumlah 190453
    karena pada masa itu mereka merasakan dampak dari kekalah perang dunia ke 2 yg mengakibatkan depresi dan ganguan mental, belom lagi mereka juga harus berlomba dalam segi teknologi dengan negara"lainnya. mengapa begitu??? karna sudah menjadi pola pikiran negara jepang yang salah satunya adalah kebanggaan dan harga diri.

Penutup

sekian dari saya membawakan artikel tentang kematian dari bunuh diri, kita cukup banyak mengetahui tentang generasi dan jaman mereka hidup yang bisa mengacu pada penyebab mereka bunuh diri.
Terimakasih telah membaca sampai akhir dan nantikan artikel saya selanjutnya di github dan rpubs dan mohon suportnya


berikut link" yg saya cantumkan di artikel saya
artikel tentang generasi
artikel tentang penyebab bunuh diri yg sering terjadi