Shape of stories

Libraries

library(syuzhet)

## Warning: package 'syuzhet' was built under R version 3.5.3

library(ggplot2)

## Warning: package 'ggplot2' was built under R version 3.5.3

library(pdftools)

## Warning: package 'pdftools' was built under R version 3.5.3

library(ggpubr)

## Warning: package 'ggpubr' was built under R version 3.5.3

## Loading required package: magrittr

## Warning: package 'magrittr' was built under R version 3.5.3

library(jpeg)

Let us take an example of a story familiar to all of us,

                                    ** LION KING **
                                    

Lion King

Code

lionking<-get_text_as_string("Script-lion king.txt")

Getting sentences

lk<-get_sentences(lionking)

The script starts from 153 line so, ends at 6 before last

lk<-lk[153:length(lk)-6]

Get sentiment

sentiment_lion_king<-get_sentiment(lk,method = "syuzhet")
sentiment_pct_val<-get_percentage_values(sentiment_lion_king)
dct_transform<-get_transformed_values(sentiment_lion_king,low_pass_size = 3,scale_vals = F,scale_range = F)

## Warning in get_transformed_values(sentiment_lion_king, low_pass_size
## = 3, : This function is maintained for legacy purposes. Consider using
## get_dct_transform() instead.

Visualization

img<-readJPEG("lk.jpg")

                               The detailed curve

dct<-data.frame(index=1:length(sentiment_pct_val),value=sentiment_pct_val)
g<-ggplot(data=dct)+background_image(img)
g<-g+geom_line(color="grey",aes(x=dct$index,y=dct$value,colour="blue"))
g<-g+xlab("Nattative time")+ylab("Emotinal valence")+theme(legend.position = "none")
g

                                  Smooth Curve

dct<-data.frame(index=1:length(dct_transform),value=dct_transform)
g<-ggplot(data=dct)+background_image(img)
g<-g+geom_line(color="grey",aes(x=dct$index,y=dct$value))
g<-g+xlab("Nattative time")+ylab("Emotinal valence")+theme(legend.position = "none")
g

Aladin

code

aladin<-get_text_as_string("Script-Aladin.txt")

## Warning in readLines(path_to_file): incomplete final line found on 'Script-
## Aladin.txt'

Getting sentences

al<-get_sentences(aladin)

The script starts from 153 line so, ends at 6 before last

al<-al[2:length(al)-2]

Get sentiment

sentiment_aladin<-get_sentiment(al,method = "syuzhet")
sentiment_pct_val_al<-get_percentage_values(sentiment_aladin)
dct_transform_al<-get_transformed_values(sentiment_aladin,low_pass_size = 3,scale_vals = F,scale_range = F)

## Warning in get_transformed_values(sentiment_aladin, low_pass_size = 3,
## scale_vals = F, : This function is maintained for legacy purposes. Consider
## using get_dct_transform() instead.

Visualization

img_al<-readJPEG("aladin.jpg")

                               The detailed curve

dct_al<-data.frame(index=1:length(sentiment_pct_val_al),value=sentiment_pct_val_al)
g<-ggplot(data=dct_al)+background_image(img_al)
g<-g+geom_line(color="grey",aes(x=dct_al$index,y=dct_al$value))
g<-g+xlab("Nattative time")+ylab("Emotinal valence")+theme(legend.position = "none")
g

                                  Smooth Curve

dct_al<-data.frame(index=1:length(dct_transform_al),value=dct_transform_al)
g<-ggplot(data=dct_al)+background_image(img_al)
g<-g+geom_line(color="grey",aes(x=dct_al$index,y=dct_al$value,size=.5))
g<-g+xlab("Nattative time")+ylab("Emotinal valence")+theme(legend.position = "none")
g