P Ramlee - Getaran Jiwa Lyrics Mining

The lyrics

“Getaran Jiwa” is a well known song by Allahyarham Tan Sri P. Ramlee, with lyrics by S. Sudarmaji.

library(dplyr)

## 
## Attaching package: 'dplyr'

## The following objects are masked from 'package:stats':
## 
##     filter, lag

## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union

library(magrittr)
library(tidytext)
getaranjiwa <- c("Andai dipisah lagu dan irama",
          "Lemah tiada berjiwa",
          "Hampa",
          "Getaran jiwa melanda hatiku",
          "Tersusun nada, irama dan lagu",
          "Walau hanya sederhana",
          "Tetapi tak mengapa",
          "Moga dapat membangkitkan",
          "Sedarlah kamu wahai insan",
          "Tak mungkin hilang",
          "Irama dan lagu",
          "Tak mungkin hilang",
          "Bagaikan kembang",
          "Sentiasa bermadu",
          "Andai dipisah lagu dan irama",
          "Lemah tiada berjiwa",
          "Hampa",
          "Tak mungkin hilang",
          "Irama dan lagu",
          "Bagaikan kembang",
          "Sentiasa bermadu",
          "Andai dipisah lagu dan irama",
          "Lemah tiada berjiwa",
          "Hampa",
          "Tak mungkin hilang",
          "Sinar bintangmu tetap terus gemilang",
          "Dan jasamu, segala baktimu",
          "Akan terus kekal ke akhir waktu",
          "Andai dipisah lagu dan irama",
          "Lemah tiada berjiwa",
          "Hampa",
          "Lemah tiada berjiwa",
          "Hampa"
            )

The tidy text format

text_df <- tibble(line = 1:33, text = getaranjiwa)
text1 <- text_df %>% 
  unnest_tokens(word, text) %>% #tokenization 
  count(word, sort = TRUE) #counting

Generating wordcloud

#install.packages("wordcloud") 
#install.packages("RColorBrewer")
library("wordcloud")

## Loading required package: RColorBrewer

library("RColorBrewer")
set.seed(1234)
wordcloud(words = text1$word, freq = text1$n, min.freq = 1,max.words=200, random.order=FALSE, rot.per=0.35, colors=brewer.pal(8, "Dark2"))