R Pada Al-Qur’an

Moh. Ainur Rohman dan Prof. Dr. Suhartono, M.Kom.

UIN Maulana Malik Ibrahim Malang

Magister Informatika
9 November 2021

Pendahuluan

Tujuan dari tutorial ini adalah untuk membantu anda dalam menganalisis teks Al-Qur’an

Mengunduh data Al-Qur’an

Untuk mendapatkan data Al-Qur’an silakan klik Link ini dan pilih file yang sesuai. Pada tutorial kali ini menggunakan tipe “Simple Clean” kemudian menyimpan data pada folder tutorial

Sys.setlocale("LC_ALL", "arabic" )
## [1] "LC_COLLATE=Arabic_Saudi Arabia.1256;LC_CTYPE=Arabic_Saudi Arabia.1256;LC_MONETARY=Arabic_Saudi Arabia.1256;LC_NUMERIC=C;LC_TIME=Arabic_Saudi Arabia.1256"
q = read.csv("data/quran-simple-clean.txt", header=F, stringsAsFactor=F, encoding="UTF-8", sep="|")
head(q)
##   V1 V2                     V3
## 1  1  1 بسم الله الرحمن الرحيم
## 2  1  2  الحمد لله رب العالمين
## 3  1  3          الرحمن الرحيم
## 4  1  4         مالك يوم الدين
## 5  1  5 إياك نعبد وإياك نستعين
## 6  1  6  اهدنا الصراط المستقيم
tail(q)
##       V1 V2                                       V3
## 6231 114  1 بسم الله الرحمن الرحيم قل أعوذ برب الناس
## 6232 114  2                                ملك الناس
## 6233 114  3                                إله الناس
## 6234 114  4                     من شر الوسواس الخناس
## 6235 114  5                 الذي يوسوس في صدور الناس
## 6236 114  6                          من الجنة والناس

Menampilkan surat pertama (Al-Fatihah) dan surat terakhir (An-Nas) Pada Al-Qur’an

Merapikan Teks

Struktur Al-Qur’an di R

str(q)
## 'data.frame':    6236 obs. of  3 variables:
##  $ V1: int  1 1 1 1 1 1 1 2 2 2 ...
##  $ V2: int  1 2 3 4 5 6 7 1 2 3 ...
##  $ V3: chr  "بسم الله الرحمن الرحيم" "الحمد لله رب العالمين" "الرحمن الرحيم" "مالك يوم الدين" ...

Coba perhatikan pada output sebelumnya pada heading apakah melihat V1, V2, dan V3 ? hal ini dikarenakan kita tidak menamai ketiga heading kolom tersebut. Kita perlu merubah nama kolom menjadi

colnames(q) = c("surat", "ayat", "teks")

Kolom heading sudah dirubah, setelah itu mari kita tampilkan ayat pertama dalam 10 ayat pertama

q$teks[q$ayat==1 & q$surat<=10]
##  [1] "بسم الله الرحمن الرحيم"                                                                                                                                                            
##  [2] "بسم الله الرحمن الرحيم الم"                                                                                                                                                        
##  [3] "بسم الله الرحمن الرحيم الم"                                                                                                                                                        
##  [4] "بسم الله الرحمن الرحيم يا أيها الناس اتقوا ربكم الذي خلقكم من نفس واحدة وخلق منها زوجها وبث منهما رجالا كثيرا ونساء <U+06DA> واتقوا الله الذي تساءلون به والأرحام <U+06DA> إن الله كان عليكم رقيبا"
##  [5] "بسم الله الرحمن الرحيم يا أيها الذين آمنوا أوفوا بالعقود <U+06DA> أحلت لكم بهيمة الأنعام إلا ما يتلى عليكم غير محلي الصيد وأنتم حرم <U+06D7> إن الله يحكم ما يريد"                 
##  [6] "بسم الله الرحمن الرحيم الحمد لله الذي خلق السماوات والأرض وجعل الظلمات والنور <U+06D6> ثم الذين كفروا بربهم يعدلون"                                                                
##  [7] "بسم الله الرحمن الرحيم المص"                                                                                                                                                       
##  [8] "بسم الله الرحمن الرحيم يسألونك عن الأنفال <U+06D6> قل الأنفال لله والرسول <U+06D6> فاتقوا الله وأصلحوا ذات بينكم <U+06D6> وأطيعوا الله ورسوله إن كنتم مؤمنين"                      
##  [9] "براءة من الله ورسوله إلى الذين عاهدتم من المشركين"                                                                                                                                 
## [10] "بسم الله الرحمن الرحيم الر <U+06DA> تلك آيات الكتاب الحكيم"

Kalau anda teliti apakah selalu terlihat lafadz “بسم الله الرحمن الرحيم” ? itu karena orang-orang tanzil memakai pedoman bahwasanya lafadz “بسم الله الرحمن الرحيم” merupakan ayat pertama di semua surat (kecuali surat nomer 9). Bagaimana cara menghapusnya dari semua surat ? berikut caranya:

q$teks = gsub("^بسم الله الرحمن الرحيم ","",q$teks)

Mari lanjutkan tutorial selanjutnya !!!

Menampilkan Surat

Mari kita tampilkan surat no. 100

q[q$surat==100,]
##      surat ayat                            teks
## 6147   100    1                  والعاديات ضبحا
## 6148   100    2                  فالموريات قدحا
## 6149   100    3                  فالمغيرات صبحا
## 6150   100    4                   فأثرن به نقعا
## 6151   100    5                   فوسطن به جمعا
## 6152   100    6           إن الإنسان لربه لكنود
## 6153   100    7              وإنه على ذلك لشهيد
## 6154   100    8            وإنه لحب الخير لشديد
## 6155   100    9 أفلا يعلم إذا بعثر ما في القبور
## 6156   100   10               وحصل ما في الصدور
## 6157   100   11         إن ربهم بهم يومئذ لخبير

Mencari kata

Berikut adalah cara untuk melihat bagaimana waktu dan dimana kata-kata Muhammad (محمد) disebutkan dalam Al-Qur’an

q[which(grepl("محمد", q$teks)),]
##      surat ayat
## 437      3  144
## 3573    33   40
## 4547    47    2
## 4612    48   29
##                                                                                                                                                                                                                                                                                                                                                                      teks
## 437                                                                                                                                                                                                      وما محمد إلا رسول قد خلت من قبله الرسل <U+06DA> أفإن مات أو قتل انقلبتم على أعقابكم <U+06DA> ومن ينقلب على عقبيه فلن يضر الله شيئا <U+06D7> وسيجزي الله الشاكرين
## 3573                                                                                                                                                                                                                                                                          ما كان محمد أبا أحد من رجالكم ولكن رسول الله وخاتم النبيين <U+06D7> وكان الله بكل شيء عليما
## 4547                                                                                                                                                                                                                                                          والذين آمنوا وعملوا الصالحات وآمنوا بما نزل على محمد وهو الحق من ربهم <U+06D9> كفر عنهم سيئاتهم وأصلح بالهم
## 4612 محمد رسول الله <U+06DA> والذين معه أشداء على الكفار رحماء بينهم <U+06D6> تراهم ركعا سجدا يبتغون فضلا من الله ورضوانا <U+06D6> سيماهم في وجوههم من أثر السجود <U+06DA> ذلك مثلهم في التوراة <U+06DA> ومثلهم في الإنجيل كزرع أخرج شطأه فآزره فاستغلظ فاستوى على سوقه يعجب الزراع ليغيظ بهم الكفار <U+06D7> وعد الله الذين آمنوا وعملوا الصالحات منهم مغفرة وأجرا عظيما

Itulah beberapa tutorial text mining pada Al-Qur’an kita telah membaca data text Al-Qur’an, menampilkan surat, mencari kata tertentu dari Al-Qur’an, selanjutnya bisa dikembangkan lagi lebih dalam.

Referensi

[1] http://textminingthequran.com/tutorial/quran.html