{"id":359,"date":"2016-11-15T05:33:29","date_gmt":"2016-11-15T05:33:29","guid":{"rendered":"https:\/\/scholarblogs.emory.edu\/582atextmining\/?p=359"},"modified":"2016-11-15T05:33:29","modified_gmt":"2016-11-15T05:33:29","slug":"imperial-titles-in-late-roman-documents","status":"publish","type":"post","link":"https:\/\/scholarblogs.emory.edu\/582atextmining\/2016\/11\/15\/imperial-titles-in-late-roman-documents\/","title":{"rendered":"Imperial Titles in Late Roman Documents"},"content":{"rendered":"

Sorry for the delay on my blog post! I’ve finally managed to figure out the coding to search for all inflections of the various\u00a0nostra<\/em>\/mea<\/em> epithets in Latin documents. I was having trouble using .*? to account for varying numbers of characters between\u00a0nostra\/mea<\/em> and its accompanying noun (e.g.\u00a0nostra clementia<\/em>), as R was, despite the “?”, still being far too greedy. str_locate_all showed that it was pairing\u00a0nostra<\/em>‘s and\u00a0titles that were thousands of characters apart!<\/p>\n

My solution has been to ask R to search for combinations of\u00a0nostra<\/em>\/mea<\/em> and the accompanying noun with anywhere from 0 to 80 characters inbetween. Furthermore, I’ve simplified my code by only\u00a0searching for the parts of these words that don’t inflect. So, for example, I wrote:<\/p>\n

str_extract_all(string = CTh.df$text, pattern = “nostra.{0,80}clementia.{0,80}|clementia.{0,80}nostra.{0,80}|mea.{0,80}clementia.{0,80}|clementia.{0,80}mea.{0,80}”) #CLEMENTIA<\/p>\n

This accounts for all inflections; it turns up\u00a0nostra\/mea clementia<\/em>,\u00a0nostrae\/meae clementiae,<\/em>\u00a0and nostram\/meam clementiam<\/em>. I did this for all of the imperial epithets that I have identified within the Theodosian Code. I then used those results to locate and read each instance in the Latin text, both so as to confirm their use as imperial epithets within their respective contexts, and so as to record\u00a0their exact location within the Code. It’s been time consuming, but very rewarding. I now have\u00a0complete and accurate results for their frequency within the Code:<\/p>\n

\"rplot\"<\/p>\n

Now that I have an effective formula down, I will run through the rest of my documents this week: the main ones are the Code of Justinian, Symmachus’\u00a0Relationes<\/em> to the emperors, and a series of Latin Panegyrics. I hope to have a few of these done before class on Thursday; I’ll update this post with those results.<\/p>\n

My code<\/span><\/p>\n

#THEODOSIAN CODE<\/p>\n

CTh.scan <- scan(“~\/Education\/Emory\/Coursework\/Digital Humanities Methods\/Project\/Theodosian Code Raw Text.txt”,
\nwhat=”character”, sep=”\\n”)
\nCTh.df <- data.frame(CTh.scan, stringsAsFactors=FALSE)
\nCTh.df <- str_replace_all(string = CTh.df$CTh.scan, pattern = “[:punct:]”, replacement = “”)
\nCTh.df <- data.frame(CTh.df, stringsAsFactors = FALSE)
\nCTh.lines <- tolower(CTh.df[,1])
\nbook.headings <- grep(“book”, CTh.lines)
\nstart.lines <- book.headings + 1
\nend.lines <- book.headings[2:length(book.headings)] – 1
\nend.lines <- c(end.lines, length(CTh.lines))
\nCTh.df <- data.frame(“start” = start.lines, “end”=end.lines, “text”=NA)
\ni <- 1
\nfor (i in 1:length(CTh.df$end))
\n{CTh.df$text[i] <- paste(CTh.lines[CTh.df$start[i]:CTh.df$end[i]], collapse = ” “)}<\/p>\n

CTh.df$Book <- seq.int(nrow(CTh.df))<\/p>\n

#String Extracts of Imperial Titles<\/p>\n

str_extract_all(string = CTh.df$text, pattern = “nostra.{0,80}aeternita.{0,80}|aeternita.{0,80}nostra.{0,80}|mea.{0,80}aeternita.{0,80}|aeternita.{0,80}mea.{0,80}”) #AETERNITAS<\/p>\n

str_extract_all(string = CTh.df$text, pattern = “nostra.{0,80}clementia.{0,80}|clementia.{0,80}nostra.{0,80}|mea.{0,80}clementia.{0,80}|clementia.{0,80}mea.{0,80}”) #CLEMENTIA<\/p>\n

str_extract_all(string = CTh.df$text, pattern = “nostra.{0,80}lenita.{0,80}|lenita.{0,80}nostra.{0,80}|mea.{0,80}lenita.{0,80}|lenita.{0,80}mea.{0,80}”) #LENITAS<\/p>\n

str_extract_all(string = CTh.df$text, pattern = “nostra.{0,80}lenitud.{0,80}|lenitud.{0,80}nostra.{0,80}|mea.{0,80}lenitud.{0,80}|lenitud.{0,80}mea.{0,80}”) #LENITUDO<\/p>\n

str_extract_all(string = CTh.df$text, pattern = “nostra.{0,80}maiesta.{0,80}|maiesta.{0,80}nostra.{0,80}|mea.{0,80}maiesta.{0,80}|maiesta.{0,80}mea.{0,80}”) #MAIESTAS<\/p>\n

str_extract_all(string = CTh.df$text, pattern = “nostra.{0,80}mansuetud.{0,80}|mansuetud.{0,80}nostra.{0,80}|mea.{0,80}mansuetud.{0,80}|mansuetud.{0,80}mea.{0,80}”) #MANSUETUDO<\/p>\n

str_extract_all(string = CTh.df$text, pattern = “nostra.{0,80}moderatio.{0,80}|moderatio.{0,80}nostra.{0,80}|mea.{0,80}moderatio.{0,80}|moderatio.{0,80}mea.{0,80}”) #MODERATIO<\/p>\n

str_extract_all(string = CTh.df$text, pattern = “nostrum.{0,80}numen.{0,80}|numen.{0,80}nostrum.{0,80}|nostr.{0,80}numin.{0,80}|numin.{0,80}nostr.{0,80}|meum.{0,80}numen.{0,80}|numen.{0,80}meum.{0,80}|me.{0,80}numin.{0,80}|numin.{0,80}me.{0,80}”) #NUMEN<\/p>\n

str_extract_all(string = CTh.df$text, pattern = “nostra.{0,80}perennita.{0,80}|perennita.{0,80}nostra.{0,80}|mea.{0,80}perennita.{0,80}|perennita.{0,80}mea.{0,80}”) #PERENNITAS<\/p>\n

str_extract_all(string = CTh.df$text, pattern = “nostra.{0,80}pieta.{0,80}|pieta.{0,80}nostra.{0,80}|mea.{0,80}pieta.{0,80}|pieta.{0,80}mea.{0,80}”) #PIETAS<\/p>\n

str_extract_all(string = CTh.df$text, pattern = “nostra.{0,80}scientia.{0,80}|scientia.{0,80}nostra.{0,80}|mea.{0,80}scientia.{0,80}|scientia.{0,80}mea.{0,80}”) #SCIENTIA<\/p>\n

str_extract_all(string = CTh.df$text, pattern = “nostra.{0,80}serenita.{0,80}|serenita.{0,80}nostra.{0,80}|mea.{0,80}serenita.{0,80}|serenita.{0,80}mea.{0,80}”) #SERENITAS<\/p>\n

str_extract_all(string = CTh.df$text, pattern = “nostra.{0,80}tranquillita.{0,80}|tranquillita.{0,80}nostra.{0,80}|mea.{0,80}tranquillita.{0,80}|tranquillita.{0,80}mea.{0,80}”) #TRANQUILLITAS<\/p>\n

#Imperial Title Sums<\/p>\n

aeternitas <- 2
\nclementia <- 93
\nlenitas <- 2
\nlenitudo <- 2
\nmaiestas <- 12
\nmansuetudo <- 59
\nmoderatio <- 2
\nnumen <- 27
\nperennitas <- 12
\npietas <- 9
\nscientia <- 32
\nserenitas <- 57
\ntranquillitas <- 10<\/p>\n

#Imperial Title Sum Graph<\/p>\n

Frequency <- c(clementia, mansuetudo, serenitas, scientia, numen, maiestas, tranquillitas, pietas, aeternitas, lenitas, lenitudo, moderatio)
\nTitle <- c(“Clementia”, “Mansuetudo”, “Serenitas”, “Scientia”, “Numen”, “Maiestas”, “Tranquillitas”, “Pietas”, “Aeternitas”, “Lenitas”, “Lenitudo”, “Moderatio”)
\nsum.df <- cbind.data.frame(Title, Frequency)
\nsum.df$Title <- factor(sum.df$Title, levels = sum.df$Title[order(sum.df$Frequency)]) #Reorders dataframe based on Frequency<\/p>\n

ggplot(data=sum.df, aes(x=Title, Frequency), y=Frequency) + geom_bar(stat = “identity”) + coord_flip() #Word Total Graph<\/p>\n

Index of Imperial Epithets in the Theodosian Code<\/span><\/p>\n

Nostra Aeternitas<\/p>\n

10.22.3<\/p>\n

Mea Aeternitas<\/p>\n

12.1.160<\/p>\n

Nostra Clementia<\/p>\n

1.1.5
\n1.7.4
\n1.14.1
\n2.6.1
\n2.8.20
\n2.23.1
\n5.1.2
\n5.2.1
\n5.15.21
\n5.16.31
\n6.2.26
\n6.4.18
\n6.4.33
\n6.23.4
\n6.30.4
\n6.35.14
\n7.1.16
\n7.1.17
\n7.4.21
\n7.4.25
\n7.6.5
\n7.13.13
\n7.21.4
\n8.5.1
\n8.5.5
\n8.5.30
\n8.5.44
\n8.5.50
\n8.5.54
\n8.5.56
\n8.5.57
\n8.10.3
\n9.16.12
\n9.17.2
\n9.21.6
\n9.34.7
\n9.40.16
\n9.40.16
\n9.41.1
\n9.45.4
\n10.1.16
\n10.10.26
\n10.10.32
\n10.10.34
\n10.14.1
\n10.15.2
\n11.7.15
\n11.16.7
\n11.16.8
\n11.20.4
\n11.28.3
\n11.28.14
\n11.30.13
\n11.30.54
\n11.30.57
\n11.30.61
\n11.36.24
\n12.1.14
\n12.1.14
\n12.1.15
\n12.1.146
\n12.1.169
\n12.1.184
\n12.6.30
\n12.10.1
\n12.12.4
\n12.12.14
\n13.1.20
\n13.3.17
\n14.10.3
\n14.15.5
\n14.17.5
\n14.17.14
\n15.1.44
\n15.1.49
\n15.3.4
\n15.6.1
\n16.1.2
\n16.2.42
\n16.3.2
\n16.5.46
\n16.5.49
\n16.5.54
\n16.5.54
\n16.5.60
\n16.5.63
\n16.8.17
\n16.11.2<\/p>\n

Mea Clementia<\/p>\n

1.8.2
\n1.8.3
\n6.26.17
\n7.16.2
\n11.20.5<\/p>\n

Nostra Lenitas<\/p>\n

1.22.2
\n10.8.3<\/p>\n

Nostra Lenitudo<\/p>\n

8.12.6
\n15.1.5<\/p>\n

Nostra Maiestas<\/p>\n

6.21.1
\n6.27.17
\n6.27.17
\n8.4.26
\n8.5.39
\n11.29.1
\n11.30.66
\n11.30.68
\n13.3.18
\n14.3.18
\n15.1.47
\n16.10.20<\/p>\n

Nostra Mansuetudo<\/p>\n

1.2.8
\n1.5.9
\n1.10.1
\n1.15.8
\n1.28.1
\n3.9.1
\n4.14.1
\n6.2.19
\n6.22.8
\n6.23.4
\n6.30.18
\n6.30.20
\n7.13.9
\n8.5.12
\n8.5.22
\n8.5.54
\n8.5.58
\n8.8.2
\n8.10.2
\n9.16.10
\n9.30.2
\n10.7.2
\n10.7.2
\n10.9.2
\n10.9.3
\n10.10.20
\n10.16.2
\n11.7.21
\n11.12.4
\n11.16.11
\n11.16.14
\n11.28.3
\n11.28.5
\n11.30.32
\n11.30.41
\n11.30.41
\n12.6.5
\n12.6.12
\n12.6.28
\n12.12.5
\n12.12.10
\n12.12.10
\n12.19.3
\n13.3.4
\n13.5.38
\n13.6.5
\n14.1.2
\n14.4.3
\n14.9.1
\n15.3.1
\n15.5.5
\n15.7.4
\n15.7.6
\n15.7.9
\n16.2.12
\n16.5.7
\n16.5.38
\n16.10.2<\/p>\n

Mea Mansuetudo<\/p>\n

12.1.121<\/p>\n

Nostra Moderatio<\/p>\n

6.30.24
\n8.18.3<\/p>\n

Nostrum Numen<\/p>\n

1.2.12
\n1.9.2
\n2.23.1
\n2.33.4
\n5.12.3
\n5.12.3
\n6.4.29
\n6.4.32
\n6.5.2
\n6.14.3
\n6.23.3
\n6.30.15
\n7.7.4
\n7.8.3
\n8.1.13
\n8.5.40
\n8.5.62
\n9.40.11
\n11.21.3
\n11.28.15
\n11.30.49
\n12.12.7
\n15.4.1
\n15.5.5
\n16.4.4
\n16.8.13<\/p>\n

Meum Numen<\/p>\n

11.1.33<\/p>\n

Nostra Perennitas<\/p>\n

1.1.5
\n2.4.4
\n4.4.5
\n5.15.18
\n7.7.4
\n9.19.3
\n9.38.8
\n10.20.10
\n12.12.9
\n13.5.12
\n15.1.31<\/p>\n

Mea Perennitas<\/p>\n

6.30.21<\/p>\n

Nostra Pietas<\/p>\n

5.12.3
\n6.10.1
\n10.26.1
\n11.1.34
\n11.1.36
\n13.1.21
\n14.26.2
\n15.1.37<\/p>\n

Mea Pietas<\/p>\n

14.16.2<\/p>\n

Nostra Serenitas<\/p>\n

1.1.2
\n1.12.5
\n1.22.2
\n2.16.2
\n4.4.3
\n5.13.2
\n5.16.31
\n6.8.1
\n6.22.3
\n6.23.1
\n6.26.13
\n6.27.8
\n6.29.3
\n6.30.17
\n7.1.17
\n7.8.10
\n8.5.14
\n8.5.22
\n8.5.32
\n8.5.45
\n8.5.48
\n8.5.56
\n8.7.16
\n9.19.3
\n9.38.6
\n9.38.9
\n9.40.7
\n9.40.20
\n9.42.14
\n9.42.19
\n9.42.20
\n10.10.11
\n11.2.5
\n11.16.20
\n11.28.4
\n11.30.47
\n11.30.56
\n11.30.64
\n11.31.9
\n11.31.9
\n12.13.6
\n13.10.8
\n14.2.1
\n14.4.8
\n15.1.11
\n15.1.26
\n15.1.42
\n15.1.51
\n15.5.5
\n15.7.6
\n15.7.6
\n16.2.37
\n16.5.12
\n16.5.14
\n16.8.22
\n16.11.3<\/p>\n

Mea Serenitas
\n11.20.5<\/p>\n

Nostra Scientia<\/p>\n

1.1.5
\n1.5.1
\n1.15.2
\n1.16.6
\n1.29.1
\n2.18.1
\n6.4.21
\n7.1.12
\n8.5.25
\n9.1.1
\n9.1.13
\n9.4.1
\n9.21.1
\n9.34.3
\n10.8.3
\n11.7.16
\n11.16.8
\n11.16.8
\n11.29.2
\n11.30.1
\n11.30.1
\n11.30.9
\n11.30.18
\n11.30.18
\n11.37.1
\n12.1.1
\n12.12.3
\n15.1.2
\n15.1.2
\n15.1.30
\n16.10.1
\n16.10.15<\/p>\n

Nostra Tranquillitas<\/p>\n

1.2.10
\n1.6.4
\n5.15.18
\n6.4.31
\n6.12.1
\n8.7.16
\n11.30.31
\n16.1.4
\n16.2.15
\n16.4.1<\/p>\n

 <\/p>\n","protected":false},"excerpt":{"rendered":"

Sorry for the delay on my blog post! I’ve finally managed to figure out the coding to search for all inflections of the various\u00a0nostra\/mea epithets in Latin documents. I was having trouble using .*? to account for varying numbers of characters between\u00a0nostra\/mea and its accompanying noun (e.g.\u00a0nostra clementia), as R was, despite the “?”, still … Continue reading Imperial Titles in Late Roman Documents<\/span><\/a><\/p>\n","protected":false},"author":4011,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[1],"tags":[],"class_list":["post-359","post","type-post","status-publish","format-standard","hentry","category-uncategorized"],"_links":{"self":[{"href":"https:\/\/scholarblogs.emory.edu\/582atextmining\/wp-json\/wp\/v2\/posts\/359","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/scholarblogs.emory.edu\/582atextmining\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/scholarblogs.emory.edu\/582atextmining\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/scholarblogs.emory.edu\/582atextmining\/wp-json\/wp\/v2\/users\/4011"}],"replies":[{"embeddable":true,"href":"https:\/\/scholarblogs.emory.edu\/582atextmining\/wp-json\/wp\/v2\/comments?post=359"}],"version-history":[{"count":3,"href":"https:\/\/scholarblogs.emory.edu\/582atextmining\/wp-json\/wp\/v2\/posts\/359\/revisions"}],"predecessor-version":[{"id":363,"href":"https:\/\/scholarblogs.emory.edu\/582atextmining\/wp-json\/wp\/v2\/posts\/359\/revisions\/363"}],"wp:attachment":[{"href":"https:\/\/scholarblogs.emory.edu\/582atextmining\/wp-json\/wp\/v2\/media?parent=359"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/scholarblogs.emory.edu\/582atextmining\/wp-json\/wp\/v2\/categories?post=359"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/scholarblogs.emory.edu\/582atextmining\/wp-json\/wp\/v2\/tags?post=359"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}