First, some info about a list of deities
name <- c("Loki", "Thor", "Odin", "Athena", "Zeus", "Hades", "Hel", "Isis", "Minerva", "Jupiter", "Osiris", "Pluto", "Baldur", "Pan", "Echo", "Valkyrie", "Aphrodite", "Heracles", "Hercules")
pantheon <- c("Norse", "Norse", "Norse", "Greek", "Greek", "Greek", "Norse", "Egyptian", "Roman", "Roman", "Egyptian", "Roman", "Norse", "Greek", "Greek", "Norse", "Greek", "Greek", "Roman")
type <- c("god", "god", "god", "god", "god", "god", "god", "god", "god", "god", "god", "god", "god", "god", "other", "warrior", "god", "warrior", "warrior")
domain <- c("Mischief", "Thunder", "Ruler", "Wisdom", "Ruler", "Underworld", "Underworld", "Nature", "Wisdom", "Ruler", "Underworld", "Underworld", "Beauty", "Nature", "Echo", "Fallen Heroes", "Beauty", "Strength", "Strength")
gender <- c("M", "M", "M", "F", "M", "M", "F", "F", "F", "M", "M", "M", "M", "M", "F", "F", "F", "M", "M")
gender_factor <- factor(gender)
levels(gender_factor) <- c("Female", "Male")
home <- c("Asgard", "Asgard", "Asgard", "Mt. Olympus", "Mt. Olympus", "Hell", "Hell", "Earth", "Mt. Olympus", "Mt. Olympus", "Hell", "Hell", "Asgard", "Earth", "Earth", "Earth", "Mt. Olympus", "Earth", "Earth")
deities <- data.frame(name, pantheon, type, domain, gender_factor, home)
deities## name pantheon type domain gender_factor home
## 1 Loki Norse god Mischief Male Asgard
## 2 Thor Norse god Thunder Male Asgard
## 3 Odin Norse god Ruler Male Asgard
## 4 Athena Greek god Wisdom Female Mt. Olympus
## 5 Zeus Greek god Ruler Male Mt. Olympus
## 6 Hades Greek god Underworld Male Hell
## 7 Hel Norse god Underworld Female Hell
## 8 Isis Egyptian god Nature Female Earth
## 9 Minerva Roman god Wisdom Female Mt. Olympus
## 10 Jupiter Roman god Ruler Male Mt. Olympus
## 11 Osiris Egyptian god Underworld Male Hell
## 12 Pluto Roman god Underworld Male Hell
## 13 Baldur Norse god Beauty Male Asgard
## 14 Pan Greek god Nature Male Earth
## 15 Echo Greek other Echo Female Earth
## 16 Valkyrie Norse warrior Fallen Heroes Female Earth
## 17 Aphrodite Greek god Beauty Female Mt. Olympus
## 18 Heracles Greek warrior Strength Male Earth
## 19 Hercules Roman warrior Strength Male Earthstr(deities)## 'data.frame': 19 obs. of 6 variables:
## $ name : Factor w/ 19 levels "Aphrodite","Athena",..: 11 17 13 2 19 5 6 9 12 10 ...
## $ pantheon : Factor w/ 4 levels "Egyptian","Greek",..: 3 3 3 2 2 2 3 1 4 4 ...
## $ type : Factor w/ 3 levels "god","other",..: 1 1 1 1 1 1 1 1 1 1 ...
## $ domain : Factor w/ 10 levels "Beauty","Echo",..: 4 8 6 10 6 9 9 5 10 6 ...
## $ gender_factor: Factor w/ 2 levels "Female","Male": 2 2 2 1 2 2 1 1 1 2 ...
## $ home : Factor w/ 4 levels "Asgard","Earth",..: 1 1 1 4 4 3 3 2 4 4 ...summary(deities)## name pantheon type domain gender_factor
## Aphrodite: 1 Egyptian:2 god :15 Underworld:4 Female: 7
## Athena : 1 Greek :7 other : 1 Ruler :3 Male :12
## Baldur : 1 Norse :6 warrior: 3 Beauty :2
## Echo : 1 Roman :4 Nature :2
## Hades : 1 Strength :2
## Hel : 1 Wisdom :2
## (Other) :13 (Other) :4
## home
## Asgard :4
## Earth :6
## Hell :4
## Mt. Olympus:5
##
##
## Next, some info about places:
## Down Below In the Middle High Above
## 1 1 2## Ord.factor w/ 3 levels "Down Below"<"In the Middle"<..: 3 2 1 3## 'data.frame': 4 obs. of 2 variables:
## $ location : Factor w/ 4 levels "Asgard","Earth",..: 1 2 3 4
## $ placement_factor: Ord.factor w/ 3 levels "Down Below"<"In the Middle"<..: 3 2 1 3## location placement_factor
## Asgard :1 Down Below :1
## Earth :1 In the Middle:1
## Hell :1 High Above :2
## Mt. Olympus:1## location placement_factor
## 1 Asgard High Above
## 2 Earth In the Middle
## 3 Hell Down Below
## 4 Mt. Olympus High AboveAnd now some info from Excel
library(tidyverse)## -- Attaching packages ------------------ tidyverse 1.2.1 --## v ggplot2 3.0.0 v purrr 0.2.5
## v tibble 1.4.2 v dplyr 0.7.6
## v tidyr 0.8.1 v stringr 1.3.1
## v readr 1.1.1 v forcats 0.3.0## -- Conflicts --------------------- tidyverse_conflicts() --
## x dplyr::filter() masks stats::filter()
## x dplyr::lag() masks stats::lag()library(readxl)
library(dplyr)
in_deities <- read_excel("Deities.xlsx")
in_deities## # A tibble: 19 x 6
## Name Pantheon Type Domain Gender Home
## <chr> <chr> <chr> <chr> <chr> <chr>
## 1 Loki Norse god Mischief M Asgard
## 2 Thor Norse god Thunder M Asgard
## 3 Odin Norse god Ruler M Asgard
## 4 Athena Greek god Wisdom F Mt. Olympus
## 5 Zeus Greek god Ruler M Mt. Olympus
## 6 Hades Greek god Underworld M Hell
## 7 Hel Norse god Underworld F Hell
## 8 Isis Egyptian god Nature F Earth
## 9 Minerva Roman god Wisdom F Mt. Olympus
## 10 Jupiter Roman god Ruler M Mt. Olympus
## 11 Osiris Egyptian god Underworld M Hell
## 12 Pluto Roman god Underworld M Hell
## 13 Baldur Norse god Beauty M Asgard
## 14 Pan Greek god Nature M Earth
## 15 Echo Greek other Echo F Earth
## 16 Valkyrie Norse warrior Fallen Heroes F Earth
## 17 Aphrodite Greek god Beauty F Mt. Olympus
## 18 Heracles Greek warrior Strength M Earth
## 19 Hercules Roman warrior Strength M Earthin_deities[3:4,1:2]## # A tibble: 2 x 2
## Name Pantheon
## <chr> <chr>
## 1 Odin Norse
## 2 Athena Greekin_deities["Pantheon"]## # A tibble: 19 x 1
## Pantheon
## <chr>
## 1 Norse
## 2 Norse
## 3 Norse
## 4 Greek
## 5 Greek
## 6 Greek
## 7 Norse
## 8 Egyptian
## 9 Roman
## 10 Roman
## 11 Egyptian
## 12 Roman
## 13 Norse
## 14 Greek
## 15 Greek
## 16 Norse
## 17 Greek
## 18 Greek
## 19 RomanLet’s take a look inside
deities## name pantheon type domain gender_factor home
## 1 Loki Norse god Mischief Male Asgard
## 2 Thor Norse god Thunder Male Asgard
## 3 Odin Norse god Ruler Male Asgard
## 4 Athena Greek god Wisdom Female Mt. Olympus
## 5 Zeus Greek god Ruler Male Mt. Olympus
## 6 Hades Greek god Underworld Male Hell
## 7 Hel Norse god Underworld Female Hell
## 8 Isis Egyptian god Nature Female Earth
## 9 Minerva Roman god Wisdom Female Mt. Olympus
## 10 Jupiter Roman god Ruler Male Mt. Olympus
## 11 Osiris Egyptian god Underworld Male Hell
## 12 Pluto Roman god Underworld Male Hell
## 13 Baldur Norse god Beauty Male Asgard
## 14 Pan Greek god Nature Male Earth
## 15 Echo Greek other Echo Female Earth
## 16 Valkyrie Norse warrior Fallen Heroes Female Earth
## 17 Aphrodite Greek god Beauty Female Mt. Olympus
## 18 Heracles Greek warrior Strength Male Earth
## 19 Hercules Roman warrior Strength Male Earthin_deities## # A tibble: 19 x 6
## Name Pantheon Type Domain Gender Home
## <chr> <chr> <chr> <chr> <chr> <chr>
## 1 Loki Norse god Mischief M Asgard
## 2 Thor Norse god Thunder M Asgard
## 3 Odin Norse god Ruler M Asgard
## 4 Athena Greek god Wisdom F Mt. Olympus
## 5 Zeus Greek god Ruler M Mt. Olympus
## 6 Hades Greek god Underworld M Hell
## 7 Hel Norse god Underworld F Hell
## 8 Isis Egyptian god Nature F Earth
## 9 Minerva Roman god Wisdom F Mt. Olympus
## 10 Jupiter Roman god Ruler M Mt. Olympus
## 11 Osiris Egyptian god Underworld M Hell
## 12 Pluto Roman god Underworld M Hell
## 13 Baldur Norse god Beauty M Asgard
## 14 Pan Greek god Nature M Earth
## 15 Echo Greek other Echo F Earth
## 16 Valkyrie Norse warrior Fallen Heroes F Earth
## 17 Aphrodite Greek god Beauty F Mt. Olympus
## 18 Heracles Greek warrior Strength M Earth
## 19 Hercules Roman warrior Strength M Earthlist()## list()head(deities)## name pantheon type domain gender_factor home
## 1 Loki Norse god Mischief Male Asgard
## 2 Thor Norse god Thunder Male Asgard
## 3 Odin Norse god Ruler Male Asgard
## 4 Athena Greek god Wisdom Female Mt. Olympus
## 5 Zeus Greek god Ruler Male Mt. Olympus
## 6 Hades Greek god Underworld Male Hellhead(in_deities)## # A tibble: 6 x 6
## Name Pantheon Type Domain Gender Home
## <chr> <chr> <chr> <chr> <chr> <chr>
## 1 Loki Norse god Mischief M Asgard
## 2 Thor Norse god Thunder M Asgard
## 3 Odin Norse god Ruler M Asgard
## 4 Athena Greek god Wisdom F Mt. Olympus
## 5 Zeus Greek god Ruler M Mt. Olympus
## 6 Hades Greek god Underworld M HellLet’s explore with dplyr
in_deities %>%
filter(Name == "Loki")## # A tibble: 1 x 6
## Name Pantheon Type Domain Gender Home
## <chr> <chr> <chr> <chr> <chr> <chr>
## 1 Loki Norse god Mischief M Asgardin_deities %>%
count(Pantheon)## # A tibble: 4 x 2
## Pantheon n
## <chr> <int>
## 1 Egyptian 2
## 2 Greek 7
## 3 Norse 6
## 4 Roman 4in_deities %>%
count(Home)## # A tibble: 4 x 2
## Home n
## <chr> <int>
## 1 Asgard 4
## 2 Earth 6
## 3 Hell 4
## 4 Mt. Olympus 5in_deities %>%
filter(Pantheon == "Norse")## # A tibble: 6 x 6
## Name Pantheon Type Domain Gender Home
## <chr> <chr> <chr> <chr> <chr> <chr>
## 1 Loki Norse god Mischief M Asgard
## 2 Thor Norse god Thunder M Asgard
## 3 Odin Norse god Ruler M Asgard
## 4 Hel Norse god Underworld F Hell
## 5 Baldur Norse god Beauty M Asgard
## 6 Valkyrie Norse warrior Fallen Heroes F Earthin_deities %>%
filter(Pantheon == "Norse", Home == "Asgard")## # A tibble: 4 x 6
## Name Pantheon Type Domain Gender Home
## <chr> <chr> <chr> <chr> <chr> <chr>
## 1 Loki Norse god Mischief M Asgard
## 2 Thor Norse god Thunder M Asgard
## 3 Odin Norse god Ruler M Asgard
## 4 Baldur Norse god Beauty M Asgardin_deities %>%
filter(Pantheon == "Norse", Home == "Asgard")## # A tibble: 4 x 6
## Name Pantheon Type Domain Gender Home
## <chr> <chr> <chr> <chr> <chr> <chr>
## 1 Loki Norse god Mischief M Asgard
## 2 Thor Norse god Thunder M Asgard
## 3 Odin Norse god Ruler M Asgard
## 4 Baldur Norse god Beauty M Asgardin_deities %>%
filter(Pantheon == "Greek", Home != "Mt. Olympus")## # A tibble: 4 x 6
## Name Pantheon Type Domain Gender Home
## <chr> <chr> <chr> <chr> <chr> <chr>
## 1 Hades Greek god Underworld M Hell
## 2 Pan Greek god Nature M Earth
## 3 Echo Greek other Echo F Earth
## 4 Heracles Greek warrior Strength M Earthin_deities %>%
count(Pantheon)## # A tibble: 4 x 2
## Pantheon n
## <chr> <int>
## 1 Egyptian 2
## 2 Greek 7
## 3 Norse 6
## 4 Roman 4in_deities %>%
count(Pantheon)## # A tibble: 4 x 2
## Pantheon n
## <chr> <int>
## 1 Egyptian 2
## 2 Greek 7
## 3 Norse 6
## 4 Roman 4in_deities %>%
filter(Pantheon != "Greek") %>%
count(Pantheon)## # A tibble: 3 x 2
## Pantheon n
## <chr> <int>
## 1 Egyptian 2
## 2 Norse 6
## 3 Roman 4in_deities %>%
count(Pantheon != "Greek")## # A tibble: 2 x 2
## `Pantheon != "Greek"` n
## <lgl> <int>
## 1 FALSE 7
## 2 TRUE 12in_deities %>%
filter(Domain == "Underworld")## # A tibble: 4 x 6
## Name Pantheon Type Domain Gender Home
## <chr> <chr> <chr> <chr> <chr> <chr>
## 1 Hades Greek god Underworld M Hell
## 2 Hel Norse god Underworld F Hell
## 3 Osiris Egyptian god Underworld M Hell
## 4 Pluto Roman god Underworld M Hellin_deities %>%
filter(Domain == "Underworld") %>%
count()## # A tibble: 1 x 1
## n
## <int>
## 1 4