Polyptoton.r

setwd("C:\\Users\\Peter\\Documents\\PhD\\CaseStudy\\R") ;

library(ggplot2)
library(reshape)

d <- read.csv("data.csv") ; 
nrs <- 1:nrow(d) ;  


dN <- cbind( nrs , d$polyptoton_N   ); 
dN <- as.data.frame( dN ) ; 
colnames(dN) <- c( "poem" , "Polyptoton" ) ; 

dM <- melt( dN , id = c("poem") ) 


p <- ggplot( data = dM , aes( x = poem , y = value , colour = variable ) )
p <- p + geom_line(  , size = 1 ) 
#31 , 53 , 77 , 108 , 141 , 172 , 182 , 208 , 232 , 275
#p <- p + geom_line ( aes ( x = 31 , y = -1:1 )  , size = 1 , colour = "#FFFFFF" , linetype = "dashed" )
#p <- p + geom_line ( aes ( x = 53  )  , size = 1 )
#p <- p + geom_line ( aes ( x = 77  )  , size = 1 )
#p <- p + geom_line ( aes ( x = 108  )  , size = 1 )
p <- p + ylim( -0.1 , 0.5 ) ; 
 
p <- p + scale_colour_manual( values = c("#ED4113" , "#2D9E08" , "darkblue" ) ) 
p <- p + xlab( "Poems" ) + ylab("Devices") + ggtitle("Polyptoton") ;   

print( p ) ;