kali ini kita akan mempelajari tentang cara menganalisis text mining data Al-Qur’an. sebelum mengolah datanya, kita perlu mendapatkan text Al-Qur’an terlebih dahulu
untuk mendapatkan data Al-Qur’an bisa di download di http://tanzil.net/download/ 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"code ini berfungsi untuk menampilkan tulisa arabnya.
q = read.csv("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 اهدنا الصراط المستقيمkita harus mengetahui terlebih dahulu struktur dari data Al-Qur’an
str(q)## 'data.frame': 6264 obs. of 3 variables:
## $ V1: chr "1" "1" "1" "1" ...
## $ V2: int 1 2 3 4 5 6 7 1 2 3 ...
## $ V3: chr "بسم الله الرحمن الرحيم" "الحمد لله رب العالمين" "الرحمن الرحيم" "مالك يوم الدين" ...dikarenakan data kita pada awalnya tidak kita beri judul, maka R secara otomatis memberi nama pada kolom dengan V1, V2 dan V3. untuk lebih memudahkan kita dalam menganalisa, kita perlu mengubah nama kolom tersebut.
colnames(q) = c("surat", "ayat", "isiayat")setelah diberi nama Kolom, maka kita akan lebih mudah dalam menganalisanya.
sebagai contoh, mari kita tampilkan ayat pertama dalam 5 surat pertama
q$isiayat[q$ayat==1 & q$surat<=5]## [1] "بسم الله الرحمن الرحيم"
## [2] "بسم الله الرحمن الرحيم الم"
## [3] "بسم الله الرحمن الرحيم الم"
## [4] "بسم الله الرحمن الرحيم يا أيها الناس اتقوا ربكم الذي خلقكم من نفس واحدة وخلق منها زوجها وبث منهما رجالا كثيرا ونساء <U+06DA> واتقوا الله الذي تساءلون به والأرحام <U+06DA> إن الله كان عليكم رقيبا"
## [5] "بسم الله الرحمن الرحيم يا أيها الذين آمنوا أوفوا بالعقود <U+06DA> أحلت لكم بهيمة الأنعام إلا ما يتلى عليكم غير محلي الصيد وأنتم حرم <U+06D7> إن الله يحكم ما يريد"
## [6] "بسم الله الرحمن الرحيم الر <U+06DA> تلك آيات الكتاب الحكيم"
## [7] "بسم الله الرحمن الرحيم الر <U+06DA> كتاب أحكمت آياته ثم فصلت من لدن حكيم خبير"
## [8] "بسم الله الرحمن الرحيم الر <U+06DA> تلك آيات الكتاب المبين"
## [9] "بسم الله الرحمن الرحيم المر <U+06DA> تلك آيات الكتاب <U+06D7> والذي أنزل إليك من ربك الحق ولكن أكثر الناس لا يؤمنون"
## [10] "بسم الله الرحمن الرحيم الر <U+06DA> كتاب أنزلناه إليك لتخرج الناس من الظلمات إلى النور بإذن ربهم إلى صراط العزيز الحميد"
## [11] "بسم الله الرحمن الرحيم الر <U+06DA> تلك آيات الكتاب وقرآن مبين"
## [12] "بسم الله الرحمن الرحيم أتى أمر الله فلا تستعجلوه <U+06DA> سبحانه وتعالى عما يشركون"
## [13] "بسم الله الرحمن الرحيم سبحان الذي أسرى بعبده ليلا من المسجد الحرام إلى المسجد الأقصى الذي باركنا حوله لنريه من آياتنا <U+06DA> إنه هو السميع البصير"
## [14] "بسم الله الرحمن الرحيم الحمد لله الذي أنزل على عبده الكتاب ولم يجعل له عوجا <U+06DC>"
## [15] "بسم الله الرحمن الرحيم كهيعص"
## [16] "بسم الله الرحمن الرحيم طه"
## [17] "بسم الله الرحمن الرحيم اقترب للناس حسابهم وهم في غفلة معرضون"
## [18] "بسم الله الرحمن الرحيم يا أيها الناس اتقوا ربكم <U+06DA> إن زلزلة الساعة شيء عظيم"
## [19] "بسم الله الرحمن الرحيم قد أفلح المؤمنون"
## [20] "بسم الله الرحمن الرحيم سورة أنزلناها وفرضناها وأنزلنا فيها آيات بينات لعلكم تذكرون"
## [21] "بسم الله الرحمن الرحيم تبارك الذي نزل الفرقان على عبده ليكون للعالمين نذيرا"
## [22] "بسم الله الرحمن الرحيم طسم"
## [23] "بسم الله الرحمن الرحيم طس <U+06DA> تلك آيات القرآن وكتاب مبين"
## [24] "بسم الله الرحمن الرحيم طسم"
## [25] "بسم الله الرحمن الرحيم الم"
## [26] "بسم الله الرحمن الرحيم الم"
## [27] "بسم الله الرحمن الرحيم الم"
## [28] "بسم الله الرحمن الرحيم الم"
## [29] "بسم الله الرحمن الرحيم يا أيها النبي اتق الله ولا تطع الكافرين والمنافقين <U+06D7> إن الله كان عليما حكيما"
## [30] "بسم الله الرحمن الرحيم الحمد لله الذي له ما في السماوات وما في الأرض وله الحمد في الآخرة <U+06DA> وهو الحكيم الخبير"
## [31] "بسم الله الرحمن الرحيم الحمد لله فاطر السماوات والأرض جاعل الملائكة رسلا أولي أجنحة مثنى وثلاث ورباع <U+06DA> يزيد في الخلق ما يشاء <U+06DA> إن الله على كل شيء قدير"
## [32] "بسم الله الرحمن الرحيم يس"
## [33] "بسم الله الرحمن الرحيم والصافات صفا"
## [34] "بسم الله الرحمن الرحيم ص <U+06DA> والقرآن ذي الذكر"
## [35] "بسم الله الرحمن الرحيم تنزيل الكتاب من الله العزيز الحكيم"
## [36] "بسم الله الرحمن الرحيم حم"
## [37] "بسم الله الرحمن الرحيم حم"
## [38] "بسم الله الرحمن الرحيم حم"
## [39] "بسم الله الرحمن الرحيم حم"
## [40] "بسم الله الرحمن الرحيم حم"
## [41] "بسم الله الرحمن الرحيم حم"
## [42] "بسم الله الرحمن الرحيم حم"
## [43] "بسم الله الرحمن الرحيم الذين كفروا وصدوا عن سبيل الله أضل أعمالهم"
## [44] "بسم الله الرحمن الرحيم إنا فتحنا لك فتحا مبينا"
## [45] "بسم الله الرحمن الرحيم يا أيها الذين آمنوا لا تقدموا بين يدي الله ورسوله <U+06D6> واتقوا الله <U+06DA> إن الله سميع عليم"
## [46] "بسم الله الرحمن الرحيم والعاديات ضبحا"
## [47] "بسم الله الرحمن الرحيم القارعة"
## [48] "بسم الله الرحمن الرحيم ألهاكم التكاثر"
## [49] "بسم الله الرحمن الرحيم والعصر"
## [50] "بسم الله الرحمن الرحيم ويل لكل همزة لمزة"
## [51] "بسم الله الرحمن الرحيم ألم تر كيف فعل ربك بأصحاب الفيل"
## [52] "بسم الله الرحمن الرحيم لإيلاف قريش"
## [53] "بسم الله الرحمن الرحيم أرأيت الذي يكذب بالدين"
## [54] "بسم الله الرحمن الرحيم إنا أعطيناك الكوثر"
## [55] "بسم الله الرحمن الرحيم قل يا أيها الكافرون"
## [56] "بسم الله الرحمن الرحيم إذا جاء نصر الله والفتح"
## [57] "بسم الله الرحمن الرحيم تبت يدا أبي لهب وتب"
## [58] "بسم الله الرحمن الرحيم قل هو الله أحد"
## [59] "بسم الله الرحمن الرحيم قل أعوذ برب الفلق"
## [60] "بسم الله الرحمن الرحيم قل أعوذ برب الناس"
## [61] NA
## [62] NA
## [63] NA
## [64] NA
## [65] NA
## [66] NA
## [67] NA
## [68] NA
## [69] NA
## [70] NA
## [71] NA
## [72] NA
## [73] NA
## [74] NA
## [75] NA
## [76] NA
## [77] NA
## [78] NA
## [79] NA
## [80] NA
## [81] NA
## [82] NA
## [83] NA
## [84] NA
## [85] NA
## [86] NA
## [87] NA
## [88] NAdari hasil output tersebut bisa disimpulkan bahwa kalimat “بسم الله الرحمن الرحيم” dianggap ayat pertama dalam semua surat.
sekarang bagaimana caranya menampilkan ayat alqur’an, tetapi ayat pertamanya bukan bismillah, kecuali surat pertama dan ke sembilan.
q$isiayat= gsub("^بسم الله الرحمن الرحيم","",q$isiayat)Sekarang, bagaimana caranya menampilkan 1 surat penuh. contoh kita menampilkan surat ke 99 secara penuh.
q[q$surat==99,]## surat ayat isiayat
## 6139 99 1 إذا زلزلت الأرض زلزالها
## 6140 99 2 وأخرجت الأرض أثقالها
## 6141 99 3 وقال الإنسان ما لها
## 6142 99 4 يومئذ تحدث أخبارها
## 6143 99 5 بأن ربك أوحى لها
## 6144 99 6 يومئذ يصدر الناس أشتاتا ليروا أعمالهم
## 6145 99 7 فمن يعمل مثقال ذرة خيرا يره
## 6146 99 8 ومن يعمل مثقال ذرة شرا يرهsetelah kita bisa menampilkan satu surat penuh,
sekarang bagaimana cara mencari kata tertentu dalam Al-Qur’an. berikut adalah source code nya.
q[which(grepl("محمد", q$isiayat)),]## surat ayat
## 437 3 144
## 3573 33 40
## 4547 47 2
## 4612 48 29
## isiayat
## 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> وعد الله الذين آمنوا وعملوا الصالحات منهم مغفرة وأجرا عظيما