Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Update Analisis_hominidos_poyato_ridruejo.Rmd #1

Open
wants to merge 1 commit into
base: main
Choose a base branch
from
Open

Update Analisis_hominidos_poyato_ridruejo.Rmd #1

Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
30 changes: 16 additions & 14 deletions Analisis_hominidos_poyato_ridruejo.Rmd
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -114,13 +114,15 @@ ggplot(mydata, aes(x = Cranial_Capacity)) +
+ **Gráfico barras apiladas**: El siguiente gráfico representa cómo se distribuyen las distintas especies de homínidos con respecto a las distintas zonas geográficas. En el eje X se encuentran las especies, mientras que el eje Y muestra la proporción relativa de cada zona. El color que predomina en la barra, indica que esa especie está mayoritariamente asociada a esa zona geógrafica.

```{r, echo=FALSE}
ggplot(mydata, aes(x = Genus_._Specie, fill = Zone)) +
geom_bar() +
mydata %>%
group_by(Zone) %>%
count(Genus_._Specie) %>%
mutate(perce = scales::percent(n/sum(n))) %>%
ggplot(aes(Zone, y = n, fill = Genus_._Specie)) +
geom_bar(aes(), stat="identity", position="stack") +
theme(axis.text.x = element_text(angle = 90, hjust = 1)) +
labs(title = "Frecuencia de especies por zona geográfica",
x = "Especie",
y = "Frecuencia",
fill = "Zona geográfica")
labs(title = "Distribución de especies por zona geográfica",
x = "Zona geográfica", y = "")
```
**Figura 2:** Muestra un gráfico de barras que relaciona la variable zona y la variable género y especie. Fue generado con la librería ggplot2 [@R-ggplot2; @ggplot22016].

Expand Down Expand Up @@ -195,14 +197,14 @@ ggplot(mydata, aes(x = Cranial_Capacity)) +
+ **Gráfico barras apiladas**: El siguiente gráfico representa cómo se distribuyen los distintos níveles de tecnología entre las especies de homínidos. En el eje X se encuentran las especies, mientras que el eje Y muestra la proporción relativa de cada nivel tecnológico. El color que predomina en la barra, indica que esa especie está mayoritariamente asociada a ese nivel tecnológico.

```{r, echo=FALSE}
ggplot(mydata, aes(x = Genus_._Specie, fill = Tecno)) +
geom_bar(position = "fill", color = "black") +
labs(title = "Distribución de Tecnología por Género/Especie",
x = "Género/Especie",
y = "Proporción",
fill = "Tecnología") +
theme(axis.text.x = element_text(angle = 45, hjust = 1)) +
scale_fill_brewer(palette = "Pastel1")
mydata %>%
group_by(Tecno) %>%
count(Genus_._Specie) %>%
mutate(perce = scales::percent(n/sum(n))) %>%
ggplot(aes(Tecno, fill = Genus_._Specie)) +
geom_bar(position="stack") +
labs(title = "Distribución de Especies por Tecnología",
x = "", y = "")
```
**Figura 2:** Muestra un gráfico de barras que relaciona la variable tecno y la variable género y especie. Fue generado con la librería ggplot2 [@R-ggplot2; @ggplot22016].

Expand Down