2025-03-06

Backround

  • Roman Empire before splitting into east and west lasted from 26 BC to 395 AD.

  • Theodosius I caused this split by stating in his will that the Empire was to be divided between his two sons, Arcadius and Honorious

  • In 476 the Western Roman Empire, wracked by both internal and external crisis, finally fell to the Germanic warlord Odacer

Backround II

  • The period this presentation will be looking into is the Roman Emperors from 26 BC to 395 AD, before the splitting of the Empire.

Places of Birth in the Roman Empire

  • Many think of Rome being the center of the Roman Empire where most of its politicians came from, and the center of political power. However this graph shows that that is not necessarily true

On a Province Level

On a Province Level

-Here we can see that the province Italia has the most Emperors, meaning that a birth in Rome was not the end all be all for Emperor ship.

-A fun fact, Sicily was integrated into the province of Italia in 292 AD by Diocletian. Sicily being the home of Archimedes, the great mathematician. One of his equations, to estimate pie is as follows:

  • \(a(n) = 2 n tan(\frac{\pi}{n})\)
  • \(b(n) = 2 n sin(\frac{\pi}{n})\)

Another Fun Fact

-Samos, the island on which the mathematician Pythagoras was born, was folded into the Roman of Asia in 133 BC.

-Pythagoras of course, is famous for the Pythagorim thereom, as Follows: - \(a^2+b^2 = c^2\)

Succession by Birthright

  • Here below shows the amount of Emperors whom the Emperor ship was its birthright. This shows how radically different the Empire was from the republic. Great republican figures would be rolling in their graves at this statistic.

Code From Previous Slide

  • Here below is the code used to create the chart on the previous slide. It takes the amount of emperors with and without birthright succession, puts it in its own data frame and uses that data frame to populate the barplot.

df = read.csv(“roman-emperors.csv”)

birthRight <- sum(df\(Succession == "Birthright", na.rm = TRUE) notbirthRight <- sum(df\)Succession != “Birthright”, na.rm = TRUE)

barDF <- data.frame( Category = c(“Birthright”, “Non-Birthright”), Count = c(birthRight, notbirthRight)

) barplot( height = barDF\(Count, names.arg = barDF\)Category,
col = c(“red”, “blue”),
main = “Roman Emperor Succession”,
xlab = ““, ylab =”Number of Emperors”,
ylim = c(0,35) )