-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathstandardDeviation.r
76 lines (42 loc) · 3.64 KB
/
standardDeviation.r
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
setwd("C:\\Users\\Peter\\Documents\\PhD\\CaseStudy\\R") ;
d <- read.csv("data.csv", header= TRUE )
d1 <- d[ which( d$volume == 'Poems') , ]
P <- c( sd( d1$perfectRhyme_N ) , sd( d1$assonanceRhyme_N ), sd( d1$consonanceRhyme_N ), sd( d1$internalRhyme_N ), sd( d1$semiRhyme_N ), sd( d1$deibide_N ) )
d1 <- d[ which( d$volume == 'TheEarthCompels') , ]
TEC <- c( sd( d1$perfectRhyme_N ) , sd( d1$assonanceRhyme_N ), sd( d1$consonanceRhyme_N ), sd( d1$internalRhyme_N ), sd( d1$semiRhyme_N ), sd( d1$deibide_N ) )
d1 <- d[ which( d$volume == 'AutumnJournal') , ]
AJ <- c( sd( d1$perfectRhyme_N ) , sd( d1$assonanceRhyme_N ), sd( d1$consonanceRhyme_N ), sd( d1$internalRhyme_N ), sd( d1$semiRhyme_N ), sd( d1$deibide_N ) )
d1 <- d[ which( d$volume == 'PlantAndPhantom') , ]
PP <- c( sd( d1$perfectRhyme_N ) , sd( d1$assonanceRhyme_N ), sd( d1$consonanceRhyme_N ), sd( d1$internalRhyme_N ), sd( d1$semiRhyme_N ), sd( d1$deibide_N ) )
d1 <- d[ which( d$volume == 'SpringBoard') , ]
SB <- c( sd( d1$perfectRhyme_N ) , sd( d1$assonanceRhyme_N ), sd( d1$consonanceRhyme_N ), sd( d1$internalRhyme_N ), sd( d1$semiRhyme_N ), sd( d1$deibide_N ) )
d1 <- d[ which( d$volume == 'HolesInTheSky') , ]
HIS <- c( sd( d1$perfectRhyme_N ) , sd( d1$assonanceRhyme_N ), sd( d1$consonanceRhyme_N ), sd( d1$internalRhyme_N ), sd( d1$semiRhyme_N ), sd( d1$deibide_N ) )
d1 <- d[ which( d$volume == 'Solstices') , ]
S <- c( sd( d1$perfectRhyme_N ) , sd( d1$assonanceRhyme_N ), sd( d1$consonanceRhyme_N ), sd( d1$internalRhyme_N ), sd( d1$semiRhyme_N ), sd( d1$deibide_N ) )
d1 <- d[ which( d$volume == 'Visitations') , ]
V <- c( sd( d1$perfectRhyme_N ) , sd( d1$assonanceRhyme_N ), sd( d1$consonanceRhyme_N ), sd( d1$internalRhyme_N ), sd( d1$semiRhyme_N ), sd( d1$deibide_N ) )
d1 <- d[ which( d$volume == 'AutumnSequel') , ]
AS <- c( sd( d1$perfectRhyme_N ) , sd( d1$assonanceRhyme_N ), sd( d1$consonanceRhyme_N ), sd( d1$internalRhyme_N ), sd( d1$semiRhyme_N ), sd( d1$deibide_N ) )
d1 <- d[ which( d$volume == 'TenBurntOfferings') , ]
TBO <- c( sd( d1$perfectRhyme_N ) , sd( d1$assonanceRhyme_N ), sd( d1$consonanceRhyme_N ), sd( d1$internalRhyme_N ), sd( d1$semiRhyme_N ), sd( d1$deibide_N ) )
d1 <- d[ which( d$volume == 'TheBurningPerch') , ]
TBP <- c( sd( d1$perfectRhyme_N ) , sd( d1$assonanceRhyme_N ), sd( d1$consonanceRhyme_N ), sd( d1$internalRhyme_N ), sd( d1$semiRhyme_N ), sd( d1$deibide_N ) )
vols <- as.data.frame( cbind( P , TEC , AJ , PP , SB, HIS , AS , TBO , S , V , TBP ) )
vols <- as.data.frame(t( vols ))
colnames(vols) <- c("perfectRhyme", "assonanceRhyme","consonanceRhyme","internalRhyme","semiRhyme","deibideRhyme")
#colours <- c( "#2E2E83","#363699","#3E3EAF","#4545C5","#4D4DDB","#5F5FDF","#7171E2","#8282E6","#9494E9","#A6A6ED","#B8B8F1" ) ;
par( mfrow = c(2,3) )
#7f50ff
barplot( vols$perfectRhyme , names.arg = rownames(vols) , main="Perfect rhyme", ylab= "Total",
beside=TRUE, col= "#6E797D" , las = 2 )
barplot( vols$assonanceRhyme , names.arg = rownames(vols) , main="Assonance rhyme", ylab= "Total",
beside=TRUE, col= "#6E797D" , las = 2 )
barplot( vols$consonanceRhyme , names.arg = rownames(vols) , main="Consonance rhyme", ylab= "Total",
beside=TRUE, col= "#6E797D" , las = 2 )
barplot( vols$internalRhyme , names.arg = rownames(vols) , main="Internal rhyme", ylab= "Total",
beside=TRUE, col= "#6E797D" , las = 3 )
barplot( vols$semiRhyme , names.arg = rownames(vols) , main="Semi rhyme", ylab= "Total",
beside=TRUE, col= "#6E797D" , las = 3 )
barplot( vols$deibide , names.arg = rownames(vols) , main="Deibide rhyme", ylab= "Total",
beside=TRUE, col= "#6E797D" , las = 3 )