library(dplyr)
library(readr)
jungle <- read_csv("jungle_animal_survival_extended_300 - jungle_animal_survival_extended_300.csv")
jungle <- jungle %>%
mutate(across(c(Animal,
Type,
Camouflage,
Arboreal,
Omnivore,
Nocturnal,
Social,
Keen_Senses,
Swimmer,
Predator,
Food_Source),
factor))
jungle <- jungle %>%
mutate(across(c(Lifespan_Years,
Size_kg), as.numeric))
library(ggplot2)
ggplot(jungle,aes(as.factor(Food_Source)))+
geom_bar()+
labs(x="Food Source")Jungle
How the traits of animal help them survive in the jungle
First we need to understand what are the food sources and the counts of each type of food source in the jungle because food is one of the most important thing for animal to survive
Now lets check what animals we got and what are their type
library(ggplot2)
ggplot(jungle,aes(Animal))+
geom_bar()+
coord_flip()| Animal | Type |
|---|---|
| Agouti | Rodent |
| Capuchin Monkey | Primate |
| Jaguar | Big Cat |
| Poison Dart Frog | Amphbian |
| Green Tree Python | Reptile |
Let’s see whats the food source for each animal
| Animal | Food Source |
|---|---|
| Agouti | Fruit, Nut |
| Capuchin Monkey | Fruit, Insect |
| Jaguar | Meat |
| Poison Dart Frog | Insect |
| Green Tree Python | Small Mammal |
Camouflage is a very useful ability for animal either hunting or running away, is there any relationship between the lifespan of animals and camouflage
| Animal | Camouflage |
|---|---|
| Agouti | Yes |
| Capuchin Monkey | No |
| Green Tree Python | Yes |
| Poison Dart Frog | Yes |
| Jaguar | Yes |
Looks like there is no relationship between lifespan and camouflage, How about the lifespan of each animal
| Animal | Lifespan |
|---|---|
| Agouti | 18 |
| Green Tree Python | 20 |
| Jaguar | 15 |
| Capuchin Monkey | 25 |
| Poison Dart Frog | 10 |
| Animal | Social |
|---|---|
| Agouti | No |
| Capuchin Monkey | Yes |
| Jaguar | No |
| Poison Dart Frog | No |
| Green Tree Python | No |
MVP = Capuchin Monkey (Social, Primate, and Eat Fruit & Insect)