Langkah pertama memulai latihan text mining pada Al-Qur’an adalah mendapatkan data teks Al Qur’an. Data teks Al-Qur’an bisa didapatkan di http://tanzil.net/download/. Pilih “Simple Clean” dan “Text (with aya numbers)”. Lalu simpan file di folder yang diberi nama “data”. Kemudian memanggilnya di R.
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("C:/Users/ASUS/Downloads/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 من الجنة والناسLangkah selanjutnya yaitu merapikan data Al-Qur’an
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 "بسم الله الرحمن الرحيم" "الحمد لله رب العالمين" "الرحمن الرحيم" "مالك يوم الدين" ...Lalu kita menamai 3 kolom (variabel) di atas
colnames(q)=c("surat", "ayat", "teks")Selanjutnya menampilkan ayat pertama dari 10 surat 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> تلك آيات الكتاب الحكيم"Dari hasil tersebut dapat disimpulkan bahwa lafadz “بسم الله الرحمن الرحيم” dianggap ayat pertama dalam semua surat.
Lalu langkah berikutnya bagaimana caranya menampilkan teks Al-Qur’an, tetapi ayat pertamanya bukan lafadz basmalah, kecuali surat pertama dan ke sembilan.
q$teks= gsub("^بسم الله الرحمن الرحيم","",q$teks)Berikutnya yakni menampilkan teks ayat dari surat yang dikehendaki. Sebagai contoh, akan ditampilkan teks ayat di surat ke-102 (At-Takatsur)
q[q$surat==102,]## surat ayat teks
## 6169 102 1 ألهاكم التكاثر
## 6170 102 2 حتى زرتم المقابر
## 6171 102 3 كلا سوف تعلمون
## 6172 102 4 ثم كلا سوف تعلمون
## 6173 102 5 كلا لو تعلمون علم اليقين
## 6174 102 6 لترون الجحيم
## 6175 102 7 ثم لترونها عين اليقين
## 6176 102 8 ثم لتسألن يومئذ عن النعيمLangkah selanjutnya yakni bagaimana cara mencari kata tertentu dalam Al-Qur’an. Sebagai contoh, kita akan mencari kata “مسجد”
q[which(grepl("مسجد", q$teks)),]## surat ayat
## 151 2 144
## 156 2 149
## 157 2 150
## 198 2 191
## 203 2 196
## 224 2 217
## 671 5 2
## 983 7 29
## 985 7 31
## 1194 8 34
## 1242 9 7
## 1254 9 19
## 1263 9 28
## 1342 9 107
## 1343 9 108
## 2030 17 1
## 2036 17 7
## 2161 18 21
## 2620 22 25
## 4608 48 25
## 4610 48 27
## teks
## 151 قد نرى تقلب وجهك في السماء <U+06D6> فلنولينك قبلة ترضاها <U+06DA> فول وجهك شطر المسجد الحرام <U+06DA> وحيث ما كنتم فولوا وجوهكم شطره <U+06D7> وإن الذين أوتوا الكتاب ليعلمون أنه الحق من ربهم <U+06D7> وما الله بغافل عما يعملون
## 156 ومن حيث خرجت فول وجهك شطر المسجد الحرام <U+06D6> وإنه للحق من ربك <U+06D7> وما الله بغافل عما تعملون
## 157 ومن حيث خرجت فول وجهك شطر المسجد الحرام <U+06DA> وحيث ما كنتم فولوا وجوهكم شطره لئلا يكون للناس عليكم حجة إلا الذين ظلموا منهم فلا تخشوهم واخشوني ولأتم نعمتي عليكم ولعلكم تهتدون
## 198 واقتلوهم حيث ثقفتموهم وأخرجوهم من حيث أخرجوكم <U+06DA> والفتنة أشد من القتل <U+06DA> ولا تقاتلوهم عند المسجد الحرام حتى يقاتلوكم فيه <U+06D6> فإن قاتلوكم فاقتلوهم <U+06D7> كذلك جزاء الكافرين
## 203 وأتموا الحج والعمرة لله <U+06DA> فإن أحصرتم فما استيسر من الهدي <U+06D6> ولا تحلقوا رءوسكم حتى يبلغ الهدي محله <U+06DA> فمن كان منكم مريضا أو به أذى من رأسه ففدية من صيام أو صدقة أو نسك <U+06DA> فإذا أمنتم فمن تمتع بالعمرة إلى الحج فما استيسر من الهدي <U+06DA> فمن لم يجد فصيام ثلاثة أيام في الحج وسبعة إذا رجعتم <U+06D7> تلك عشرة كاملة <U+06D7> ذلك لمن لم يكن أهله حاضري المسجد الحرام <U+06DA> واتقوا الله واعلموا أن الله شديد العقاب
## 224 يسألونك عن الشهر الحرام قتال فيه <U+06D6> قل قتال فيه كبير <U+06D6> وصد عن سبيل الله وكفر به والمسجد الحرام وإخراج أهله منه أكبر عند الله <U+06DA> والفتنة أكبر من القتل <U+06D7> ولا يزالون يقاتلونكم حتى يردوكم عن دينكم إن استطاعوا <U+06DA> ومن يرتدد منكم عن دينه فيمت وهو كافر فأولئك حبطت أعمالهم في الدنيا والآخرة <U+06D6> وأولئك أصحاب النار <U+06D6> هم فيها خالدون
## 671 يا أيها الذين آمنوا لا تحلوا شعائر الله ولا الشهر الحرام ولا الهدي ولا القلائد ولا آمين البيت الحرام يبتغون فضلا من ربهم ورضوانا <U+06DA> وإذا حللتم فاصطادوا <U+06DA> ولا يجرمنكم شنآن قوم أن صدوكم عن المسجد الحرام أن تعتدوا <U+06D8> وتعاونوا على البر والتقوى <U+06D6> ولا تعاونوا على الإثم والعدوان <U+06DA> واتقوا الله <U+06D6> إن الله شديد العقاب
## 983 قل أمر ربي بالقسط <U+06D6> وأقيموا وجوهكم عند كل مسجد وادعوه مخلصين له الدين <U+06DA> كما بدأكم تعودون
## 985 يا بني آدم خذوا زينتكم عند كل مسجد وكلوا واشربوا ولا تسرفوا <U+06DA> إنه لا يحب المسرفين
## 1194 وما لهم ألا يعذبهم الله وهم يصدون عن المسجد الحرام وما كانوا أولياءه <U+06DA> إن أولياؤه إلا المتقون ولكن أكثرهم لا يعلمون
## 1242 كيف يكون للمشركين عهد عند الله وعند رسوله إلا الذين عاهدتم عند المسجد الحرام <U+06D6> فما استقاموا لكم فاستقيموا لهم <U+06DA> إن الله يحب المتقين
## 1254 أجعلتم سقاية الحاج وعمارة المسجد الحرام كمن آمن بالله واليوم الآخر وجاهد في سبيل الله <U+06DA> لا يستوون عند الله <U+06D7> والله لا يهدي القوم الظالمين
## 1263 يا أيها الذين آمنوا إنما المشركون نجس فلا يقربوا المسجد الحرام بعد عامهم هذا <U+06DA> وإن خفتم عيلة فسوف يغنيكم الله من فضله إن شاء <U+06DA> إن الله عليم حكيم
## 1342 والذين اتخذوا مسجدا ضرارا وكفرا وتفريقا بين المؤمنين وإرصادا لمن حارب الله ورسوله من قبل <U+06DA> وليحلفن إن أردنا إلا الحسنى <U+06D6> والله يشهد إنهم لكاذبون
## 1343 لا تقم فيه أبدا <U+06DA> لمسجد أسس على التقوى من أول يوم أحق أن تقوم فيه <U+06DA> فيه رجال يحبون أن يتطهروا <U+06DA> والله يحب المطهرين
## 2030 سبحان الذي أسرى بعبده ليلا من المسجد الحرام إلى المسجد الأقصى الذي باركنا حوله لنريه من آياتنا <U+06DA> إنه هو السميع البصير
## 2036 إن أحسنتم أحسنتم لأنفسكم <U+06D6> وإن أسأتم فلها <U+06DA> فإذا جاء وعد الآخرة ليسوءوا وجوهكم وليدخلوا المسجد كما دخلوه أول مرة وليتبروا ما علوا تتبيرا
## 2161 وكذلك أعثرنا عليهم ليعلموا أن وعد الله حق وأن الساعة لا ريب فيها إذ يتنازعون بينهم أمرهم <U+06D6> فقالوا ابنوا عليهم بنيانا <U+06D6> ربهم أعلم بهم <U+06DA> قال الذين غلبوا على أمرهم لنتخذن عليهم مسجدا
## 2620 إن الذين كفروا ويصدون عن سبيل الله والمسجد الحرام الذي جعلناه للناس سواء العاكف فيه والباد <U+06DA> ومن يرد فيه بإلحاد بظلم نذقه من عذاب أليم
## 4608 هم الذين كفروا وصدوكم عن المسجد الحرام والهدي معكوفا أن يبلغ محله <U+06DA> ولولا رجال مؤمنون ونساء مؤمنات لم تعلموهم أن تطئوهم فتصيبكم منهم معرة بغير علم <U+06D6> ليدخل الله في رحمته من يشاء <U+06DA> لو تزيلوا لعذبنا الذين كفروا منهم عذابا أليما
## 4610 لقد صدق الله رسوله الرؤيا بالحق <U+06D6> لتدخلن المسجد الحرام إن شاء الله آمنين محلقين رءوسكم ومقصرين لا تخافون <U+06D6> فعلم ما لم تعلموا فجعل من دون ذلك فتحا قريبا