Twitter Network Analysis Hutan Papua
Irdiansyah
1/20/2022
Deforestation Social Network Analysis
Deforestasi adalah suatu peristiwa hilangnya hutan alam beserta dengan atributnya yang diakibatkan oleh penebangan hutan. Penebangan hutan sendiri bertujuan mengubah lahan hutan menjadi non hutan.
Beberapa waktu lalu ada pernyaataan yang sangat kontroversial dari Menteri Lingkungan Hidup dan Kehutanan (Menteri LHK) Siti Nurbaya. Pernyataan itu, diunggahnya di akun Twitter resminya @SitiNurbayaLHK pada Rabu (3/11/2021). “Pembangunan besar-besaran era Presiden Jokowi tidak boleh berhenti atas nama emisi karbon atau atas nama deforestasi,” tulis Menteri Siti.
Kali ini saya akan melakukan Social Network Analysis melalui perbincangan di Twitter mengenai Deforestasi, siapa-siapa saja yang menjadi pusat pembicaraannya dan apa yang dibicarakan.
Library dan Setup
Untuk dapat menajalankan analisis ini, berikut ini adalah beberapa packages yang diperlukan sebagai alat bantu:
library(tidyverse)
# graph
library(tidygraph)
library(ggraph)
library(igraph)Exploratory Data Analysis
Setelah memanggil package yang diperlukan, saya mengambil data dari Twitter API (20 Januari 2022) dengan menggunakan package rtweet di twitter developer dengan screet token dan key. Demi keamanan, codenya tidak saya tampilkan.
Menarik data Twitter dengan keyword tertentu
Data diambil dengan keyword “hutan papua” pada jumlah tertentu.
## Rows: 232
## Columns: 91
## $ user_id <chr> "x124390203", "x564181300", "x1245805722601811…
## $ status_id <chr> "x1513003841876279299", "x1512919985685168133"…
## $ created_at <chr> "2022-04-10 04:00:00", "2022-04-09 22:26:47", …
## $ screen_name <chr> "beritaKBR", "mughaghii", "__jiaming__", "monk…
## $ text <chr> "”Hutan kami berikan, kehidupan kami dicabut, …
## $ source <chr> "Twitter Web App", "Twitter for Android", "Twi…
## $ display_text_width <int> 278, 67, 140, 235, 107, 50, 273, 114, 140, 140…
## $ reply_to_status_id <chr> "", "", "", "", "", "x1512675122423156739", "x…
## $ reply_to_user_id <chr> "", "", "", "", "", "x1444666845135454211", "x…
## $ reply_to_screen_name <chr> "", "", "", "", "", "Moejaaaa", "elkrova", "em…
## $ is_quote <lgl> FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALS…
## $ is_retweet <lgl> FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE…
## $ favorite_count <int> 0, 0, 0, 2, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0…
## $ retweet_count <int> 0, 0, 3, 0, 0, 0, 0, 0, 3, 3, 3, 2, 1, 0, 0, 0…
## $ quote_count <lgl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA…
## $ reply_count <lgl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA…
## $ hashtags <chr> "PodcastHumanity PodcastIndonesia", "", "", ""…
## $ symbols <lgl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA…
## $ urls_url <chr> "bit.ly/CeritaMamaET", "", "theconversation.co…
## $ urls_t.co <chr> "https://t.co/cwT8HqZ86h", "", "https://t.co/n…
## $ urls_expanded_url <chr> "http://bit.ly/CeritaMamaET", "", "https://the…
## $ media_url <chr> "http://pbs.twimg.com/ext_tw_video_thumb/15119…
## $ media_t.co <chr> "https://t.co/qFKopmHnWF", "", "", "https://t.…
## $ media_expanded_url <chr> "https://twitter.com/beritaKBR/status/15130038…
## $ media_type <chr> "photo", "", "", "photo", "", "", "", "", "", …
## $ ext_media_url <chr> "http://pbs.twimg.com/ext_tw_video_thumb/15119…
## $ ext_media_t.co <chr> "https://t.co/qFKopmHnWF", "", "", "https://t.…
## $ ext_media_expanded_url <chr> "https://twitter.com/beritaKBR/status/15130038…
## $ ext_media_type <lgl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA…
## $ mentions_user_id <chr> "x911694822", "", "x265920482 x892211698030989…
## $ mentions_screen_name <chr> "asia_ajar", "", "gintingski ConversationIDN",…
## $ lang <chr> "in", "in", "in", "in", "in", "in", "in", "in"…
## $ quoted_status_id <chr> "", "", "", "", "", "", "", "", "", "", "", ""…
## $ quoted_text <chr> "", "", "", "", "", "", "", "", "", "", "", ""…
## $ quoted_created_at <chr> "", "", "", "", "", "", "", "", "", "", "", ""…
## $ quoted_source <chr> "", "", "", "", "", "", "", "", "", "", "", ""…
## $ quoted_favorite_count <int> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA…
## $ quoted_retweet_count <int> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA…
## $ quoted_user_id <chr> "", "", "", "", "", "", "", "", "", "", "", ""…
## $ quoted_screen_name <chr> "", "", "", "", "", "", "", "", "", "", "", ""…
## $ quoted_name <chr> "", "", "", "", "", "", "", "", "", "", "", ""…
## $ quoted_followers_count <int> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA…
## $ quoted_friends_count <int> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA…
## $ quoted_statuses_count <int> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA…
## $ quoted_location <chr> "", "", "", "", "", "", "", "", "", "", "", ""…
## $ quoted_description <chr> "", "", "", "", "", "", "", "", "", "", "", ""…
## $ quoted_verified <lgl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA…
## $ retweet_status_id <chr> "", "", "x1455137247825522689", "", "", "", ""…
## $ retweet_text <chr> "", "", "Riset: Sekitar 4,5 juta hektare hutan…
## $ retweet_created_at <chr> "", "", "2021-11-01 11:38:49", "", "", "", "",…
## $ retweet_source <chr> "", "", "Twitter for iPhone", "", "", "", "", …
## $ retweet_favorite_count <int> NA, NA, 7, NA, NA, NA, NA, NA, 1, 1, NA, 4, 5,…
## $ retweet_retweet_count <int> NA, NA, 3, NA, NA, NA, NA, NA, 3, 3, NA, 2, 1,…
## $ retweet_user_id <chr> "", "", "x265920482", "", "", "", "", "", "x48…
## $ retweet_screen_name <chr> "", "", "gintingski", "", "", "", "", "", "Mon…
## $ retweet_name <chr> "", "", "Longgena Ginting", "", "", "", "", ""…
## $ retweet_followers_count <int> NA, NA, 4473, NA, NA, NA, NA, NA, 158079, 1580…
## $ retweet_friends_count <int> NA, NA, 1928, NA, NA, NA, NA, NA, 899, 899, NA…
## $ retweet_statuses_count <int> NA, NA, 17565, NA, NA, NA, NA, NA, 35934, 3593…
## $ retweet_location <chr> "", "", "Jakarta", "", "", "", "", "", "", "",…
## $ retweet_description <chr> "", "", "Life's too short to drink bad coffee"…
## $ retweet_verified <lgl> NA, NA, FALSE, NA, NA, NA, NA, NA, TRUE, TRUE,…
## $ place_url <lgl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA…
## $ place_name <lgl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA…
## $ place_full_name <lgl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA…
## $ place_type <lgl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA…
## $ country <lgl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA…
## $ country_code <lgl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA…
## $ geo_coords <chr> "NA NA", "NA NA", "NA NA", "NA NA", "NA NA", "…
## $ coords_coords <chr> "NA NA", "NA NA", "NA NA", "NA NA", "NA NA", "…
## $ bbox_coords <chr> "NA NA NA NA NA NA NA NA", "NA NA NA NA NA NA …
## $ status_url <chr> "https://twitter.com/beritaKBR/status/15130038…
## $ name <chr> "KBR", "susu beruang", "🦑 Jia 铭 ليمْ 🦗", "Ju…
## $ location <chr> "Jakarta, Indonesia", "", "Selangor, Malaysia"…
## $ description <chr> "Inspiratif, Tepercaya | Podcast: https://t.co…
## $ url <chr> "", "", "", "", "", "", "", "", "", "", "http:…
## $ protected <lgl> FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALS…
## $ followers_count <int> 136823, 137, 220, 182, 647, 63, 3338, 3535, 33…
## $ friends_count <int> 7, 153, 921, 198, 792, 180, 2898, 3606, 182, 9…
## $ listed_count <int> 507, 0, 1, 0, 1, 0, 1, 0, 2, 11, 160, 0, 0, 0,…
## $ statuses_count <int> 233425, 2603, 3411, 305, 19155, 646, 8524, 128…
## $ favourites_count <int> 147, 979, 17748, 584, 10306, 2476, 5979, 12312…
## $ account_created_at <chr> "2010-03-19 07:17:03", "2012-04-27 01:05:13", …
## $ verified <lgl> TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE…
## $ profile_url <chr> "", "", "", "", "", "", "", "", "", "", "http:…
## $ profile_expanded_url <chr> "", "", "", "", "", "", "", "", "", "", "http:…
## $ account_lang <lgl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA…
## $ profile_banner_url <chr> "https://pbs.twimg.com/profile_banners/1243902…
## $ profile_background_url <chr> "http://abs.twimg.com/images/themes/theme15/bg…
## $ profile_image_url <chr> "http://pbs.twimg.com/profile_images/704505450…
## $ query <chr> "hutan papua", "hutan papua", "hutan papua", "…Dari data yang ditarik (20 Januari 2022) cuma didapat 232 tweets yang mengandung keyword “hutanpapua”.
Dari data, dapat diketahui bahwa melalui kolom is_retweet kita dapat melakukan filter mana yang retweet mana yang bukan, kemudian menghitung jumlah baris dari semua data yang retweet saja dengan syntax berikut:
Dapat diketahui bahwa ada 141 retweet.
Kemudian dapat diketahui juga akun (screen_name) dengan jumlah retweet berbanyak dengan syntax berikut:
Dapat diketahui bahwa ada beberapa akun yang jumlah retweetnya sama. Ini suatu anomali, apakah ini mungkin yang disebut akun bot?
Data cleansing
Mengambil kolom screen_name, dan mentions_screen_name
Membuat Edges
Membuat Nodes
Membuat graph
Centrality Measurement
Untuk mengetahui user name yang memiliki nilai tertinggi untuk masing-masing ukuran centrality kita dapat mengubahnya menjadi format di bawah:
Dari data diatas kita bisa melihat bahwa akun jubidotcom merupakan akun dengan degree, betweeness, closeness dan eigen tertinggi.
## [1] "Papua Ratusan ekskavator digunakan mengeruk emas sekaligus merusak hutan https://t.co/tqEVpVFq50 https://t.co/NMhV6tbT7i"
## [2] "Sudah dicabut izinnya, perusahaan ini masih buka hutan di Namblong, Kabupaten #Jayapura.\n\nMereka membuat jalan dan beberapa blok perkebunan dari konsesi lahan mereka.\n\n#PapuanLivesMatter \n#Papua\nhttps://t.co/sVv6uqgtkg"
## [3] "Papua Penambangan emas di Wasirawi picu kerusakan hutan dan sungai https://t.co/mIqL78Rtrd https://t.co/1mUswdCfQd"
## [4] "Papua Sudah dicabut izinnya, perusahaan ini diduga masih buka hutan di Namblong, Kabupaten Jayapura https://t.co/0lPf9kHpVf https://t.co/rkN9crKO7k"
## [5] "Papua Kekayaan Hutan Adat Warbon yang terancam bandar antariksa LAPAN https://t.co/e4q32bxUb4 https://t.co/7rKhrGuu5f"
## [6] "Penambangan emas di Wasirawi picu kerusakan hutan dan sungai\n\nRatusan unit ekskavator terpantau melakukan aktivitas perambahan hutan dan pengerukan material di luar bantaran sungai.\n\n#PapuanLivesMatter \n#Papua\nhttps://t.co/JSasXxY8fU"
## [7] "\"...Cukup ambil emas saja, jangan merusak hutan karena akan mendatangkan bencana bagi kami' \n\n#PapuanLivesMatter \n#Papua\n\nhttps://t.co/WKPi2261IT"
## [8] "Artikel 4\nKolaborasi Jurnalistik Jubi, Tempo, https://t.co/grT8MoD3bl dan Project Multatuli tentang masyarakat adat Biak yang berjuang mengambil kembali hutan adat mereka yang beralih kepemilikan kepada LAPAN (BRIN)\n#collaborativejournalism #jubinews\nhttps://t.co/SUYBVuwOYP"
## [9] "Artikel 1\nKolaborasi Jurnalistik Jubi, Tempo, Suaracom dan Project Multatuli tentang masyarakat adat Biak yang berjuang mengambil kembali hutan adat mereka yang beralih kepemilikan kepada LAPAN (BRIN)\n#Journalism #Papua #collaborativejournalism #jubinews\nhttps://t.co/cvwK5vCYPr"
## [10] "Artikel 2\nKolaborasi Jurnalistik Jubi, Tempo, https://t.co/grT8MoD3bl dan Project Multatuli tentang masyarakat adat Biak yang berjuang mengambil kembali hutan adat mereka yang beralih kepemilikan kepada LAPAN (BRIN)\n#collaborativejournalism #jubinews\nhttps://t.co/oIVfYUdjVa"
## [11] "Papua Aplikasi Mapbiomas dan Trase membantu kerja jurnalis mengadvokasi kasus kerusakan hutan https://t.co/J6tF8gbUAT https://t.co/9S65kQtF2v"
## [12] "Papua Kalau hutan hilang dan tanah adat kami diambil, kami kehilangan jati diri, kehidupan, dan identitas https://t.co/3SRnOss9c6 https://t.co/PESstJjT1X"
## [13] "Papua “Perusahaan Bayangan” dalam bisnis kelapa sawit terus buka hutan tropis Papua https://t.co/fhzUh7lAeR https://t.co/YnUp08Cb5L"
## [14] "Artikel 6\nKolaborasi Jurnalistik Jubi, Tempo, https://t.co/grT8MoD3bl dan Project Multatuli tentang masyarakat adat Biak yang berjuang mengambil kembali hutan adat mereka yang beralih kepemilikan kepada LAPAN (BRIN)\n#collaborativejournalism #jubinews\nhttps://t.co/fXl71k5HmK"
## [15] "Papua Sumber obat tradisional hutan adat Warbon diantara empat patok LAPAN https://t.co/1yBUiNJo4x https://t.co/3rLGyZGc0K"
## [16] "“Perusahaan Bayangan” dalam bisnis kelapa sawit terus buka hutan tropis Papua\n\nCitra satelit mengungkapkan bahwa pembukaan hutan tropis untuk kelapa sawit telah dimulai kembali di #Papua setelah bertahun-tahun tidak aktif.\n\n#PapuanLivesMatter \nhttps://t.co/mnGWbQg7z7"
## [17] "Aplikasi Mapbiomas dan Trase membantu kerja jurnalis mengadvokasi kasus kerusakan lingkungan di Indonesia dan secara khusus di #Papua\n\n#PapuanLivesMatter \nhttps://t.co/x12tKfcysu"
## [18] "Kalau hutan hilang dan tanah adat kami diambil, kami kehilangan jati diri, kehidupan, dan identitas\n\n#PapuanLivesMatter \n#Papua\nhttps://t.co/FhHWIwcTW9"Graph Visualization
Membuat cluster
Mendapatkan orang-orang penting di tiap cluster
## [1] "jubidotcom" "" "Yensei5" "ISTANA_CLina10"
## [5] "dsangg377" "suaradotcom" "faiyol_8" "PapuaDataNet"
## [9] "Bonom99" "w_kobogau" "VictorcMambor"Data Graph Berdasarkan Nilai Degree Centrality
Degree centrality merupakan ukuran pemusatan yang menghitung banyaknya edges yang terhubung ke suatu node. Degree centrality dapat memberitahu seberapa banyak hubungan langsung yang dimiliki setiap node sehingga ketika kita ingin mencari individu yang memiliki koneksi langsung terbanyak dengan orang lain (orang paling populer) kita bisa melihat metrics ini.
