Illumina Sabela Andrea

1 Community B09

1.1 Full

df2_sel <- df2 %>% select(ASV_ID3, B09_S1_L001) %>% filter(B09_S1_L001 >0) 
df2_sel$sample <- "B09_S1_L001"

ggplot(df2_sel, aes(x = factor(sample), y = B09_S1_L001, fill = ASV_ID3)) +
  geom_col(position = "fill") +
  scale_y_continuous(labels = percent_format()) +
  theme_minimal() +
  theme(
    axis.text.x = element_text(angle = 90, vjust = 0.5, hjust = 1)
  ) +
  labs(
    x    = "Muestra",
    y    = "Porcentaje de lecturas",
    fill = "Taxon"
  )

1.2 Filter counts <10

df2_sel <- df2 %>% select(ASV_ID3, B09_S1_L001) %>% filter(B09_S1_L001 >10) 
df2_sel$sample <- "B09_S1_L001"

ggplot(df2_sel, aes(x = factor(sample), y = B09_S1_L001, fill = ASV_ID3)) +
  geom_col(position = "fill") +
  scale_y_continuous(labels = percent_format()) +
  theme_minimal() +
  theme(
    axis.text.x = element_text(angle = 90, vjust = 0.5, hjust = 1)
  ) +
  labs(
    x    = "Muestra",
    y    = "Porcentaje de lecturas",
    fill = "Taxon"
  )

2 Community C09

2.1 Full

df2_sel <- df2 %>% select(ASV_ID3, C09_S4_L001) %>% filter(C09_S4_L001 >0) 
df2_sel$sample <- "B09_S1_L001"

ggplot(df2_sel, aes(x = factor(sample), y = C09_S4_L001, fill = ASV_ID3)) +
  geom_col(position = "fill") +
  scale_y_continuous(labels = percent_format()) +
  theme_minimal() +
  theme(
    axis.text.x = element_text(angle = 90, vjust = 0.5, hjust = 1)
  ) +
  labs(
    x    = "Muestra",
    y    = "Porcentaje de lecturas",
    fill = "Taxon"
  )

2.2 Filter counts <10

df2_sel <- df2 %>% select(ASV_ID3, C09_S4_L001) %>% filter(C09_S4_L001 >10) 
df2_sel$sample <- "B09_S1_L001"

ggplot(df2_sel, aes(x = factor(sample), y = C09_S4_L001, fill = ASV_ID3)) +
  geom_col(position = "fill") +
  scale_y_continuous(labels = percent_format()) +
  theme_minimal() +
  theme(
    axis.text.x = element_text(angle = 90, vjust = 0.5, hjust = 1)
  ) +
  labs(
    x    = "Muestra",
    y    = "Porcentaje de lecturas",
    fill = "Taxon"
  )

3 Community F05

3.1 Full

df2_sel <- df2 %>% select(ASV_ID3, F05_S5_L001) %>% filter(F05_S5_L001 >0) 
df2_sel$sample <- "B09_S1_L001"

ggplot(df2_sel, aes(x = factor(sample), y = F05_S5_L001, fill = ASV_ID3)) +
  geom_col(position = "fill") +
  scale_y_continuous(labels = percent_format()) +
  theme_minimal() +
  theme(
    axis.text.x = element_text(angle = 90, vjust = 0.5, hjust = 1)
  ) +
  labs(
    x    = "Muestra",
    y    = "Porcentaje de lecturas",
    fill = "Taxon"
  )

3.2 Filter counts <10

df2_sel <- df2 %>% select(ASV_ID3, F05_S5_L001) %>% filter(F05_S5_L001 >10) 
df2_sel$sample <- "B09_S1_L001"

ggplot(df2_sel, aes(x = factor(sample), y = F05_S5_L001, fill = ASV_ID3)) +
  geom_col(position = "fill") +
  scale_y_continuous(labels = percent_format()) +
  theme_minimal() +
  theme(
    axis.text.x = element_text(angle = 90, vjust = 0.5, hjust = 1)
  ) +
  labs(
    x    = "Muestra",
    y    = "Porcentaje de lecturas",
    fill = "Taxon"
  )

4 Community E03

4.1 Full

df2_sel <- df2 %>% select(ASV_ID3, E03_S6_L001) %>% filter(E03_S6_L001 >0) 
df2_sel$sample <- "B09_S1_L001"

ggplot(df2_sel, aes(x = factor(sample), y = E03_S6_L001, fill = ASV_ID3)) +
  geom_col(position = "fill") +
  scale_y_continuous(labels = percent_format()) +
  theme_minimal() +
  theme(
    axis.text.x = element_text(angle = 90, vjust = 0.5, hjust = 1)
  ) +
  labs(
    x    = "Muestra",
    y    = "Porcentaje de lecturas",
    fill = "Taxon"
  )

4.2 Filter counts <10

df2_sel <- df2 %>% select(ASV_ID3, E03_S6_L001) %>% filter(E03_S6_L001 >10) 
df2_sel$sample <- "B09_S1_L001"

ggplot(df2_sel, aes(x = factor(sample), y = E03_S6_L001, fill = ASV_ID3)) +
  geom_col(position = "fill") +
  scale_y_continuous(labels = percent_format()) +
  theme_minimal() +
  theme(
    axis.text.x = element_text(angle = 90, vjust = 0.5, hjust = 1)
  ) +
  labs(
    x    = "Muestra",
    y    = "Porcentaje de lecturas",
    fill = "Taxon"
  )

5 Community F06

5.1 Full

df2_sel <- df2 %>% select(ASV_ID3, F06_S12_L001) %>% filter(F06_S12_L001 >0) 
df2_sel$sample <- "B09_S1_L001"

ggplot(df2_sel, aes(x = factor(sample), y = F06_S12_L001, fill = ASV_ID3)) +
  geom_col(position = "fill") +
  scale_y_continuous(labels = percent_format()) +
  theme_minimal() +
  theme(
    axis.text.x = element_text(angle = 90, vjust = 0.5, hjust = 1)
  ) +
  labs(
    x    = "Muestra",
    y    = "Porcentaje de lecturas",
    fill = "Taxon"
  )

5.2 Filter counts <10

df2_sel <- df2 %>% select(ASV_ID3, F06_S12_L001) %>% filter(F06_S12_L001 >10) 
df2_sel$sample <- "B09_S1_L001"

ggplot(df2_sel, aes(x = factor(sample), y = F06_S12_L001, fill = ASV_ID3)) +
  geom_col(position = "fill") +
  scale_y_continuous(labels = percent_format()) +
  theme_minimal() +
  theme(
    axis.text.x = element_text(angle = 90, vjust = 0.5, hjust = 1)
  ) +
  labs(
    x    = "Muestra",
    y    = "Porcentaje de lecturas",
    fill = "Taxon"
  )

6 Community E06

6.1 Full

df2_sel <- df2 %>% select(ASV_ID3, E06_S7_L001) %>% filter(E06_S7_L001 >0) 
df2_sel$sample <- "B09_S1_L001"

ggplot(df2_sel, aes(x = factor(sample), y = E06_S7_L001, fill = ASV_ID3)) +
  geom_col(position = "fill") +
  scale_y_continuous(labels = percent_format()) +
  theme_minimal() +
  theme(
    axis.text.x = element_text(angle = 90, vjust = 0.5, hjust = 1)
  ) +
  labs(
    x    = "Muestra",
    y    = "Porcentaje de lecturas",
    fill = "Taxon"
  )

6.2 Filter counts <10

df2_sel <- df2 %>% select(ASV_ID3, E06_S7_L001) %>% filter(E06_S7_L001 >10) 
df2_sel$sample <- "B09_S1_L001"

ggplot(df2_sel, aes(x = factor(sample), y = E06_S7_L001, fill = ASV_ID3)) +
  geom_col(position = "fill") +
  scale_y_continuous(labels = percent_format()) +
  theme_minimal() +
  theme(
    axis.text.x = element_text(angle = 90, vjust = 0.5, hjust = 1)
  ) +
  labs(
    x    = "Muestra",
    y    = "Porcentaje de lecturas",
    fill = "Taxon"
  )

7 Community E07

7.1 Full

df2_sel <- df2 %>% select(ASV_ID3, E07_S8_L001) %>% filter(E07_S8_L001 >0) 
df2_sel$sample <- "B09_S1_L001"

ggplot(df2_sel, aes(x = factor(sample), y = E07_S8_L001, fill = ASV_ID3)) +
  geom_col(position = "fill") +
  scale_y_continuous(labels = percent_format()) +
  theme_minimal() +
  theme(
    axis.text.x = element_text(angle = 90, vjust = 0.5, hjust = 1)
  ) +
  labs(
    x    = "Muestra",
    y    = "Porcentaje de lecturas",
    fill = "Taxon"
  )

7.2 Filter counts <10

df2_sel <- df2 %>% select(ASV_ID3, E07_S8_L001) %>% filter(E07_S8_L001 >10) 
df2_sel$sample <- "B09_S1_L001"

ggplot(df2_sel, aes(x = factor(sample), y = E07_S8_L001, fill = ASV_ID3)) +
  geom_col(position = "fill") +
  scale_y_continuous(labels = percent_format()) +
  theme_minimal() +
  theme(
    axis.text.x = element_text(angle = 90, vjust = 0.5, hjust = 1)
  ) +
  labs(
    x    = "Muestra",
    y    = "Porcentaje de lecturas",
    fill = "Taxon"
  )

8 Community c11

8.1 Full

df2_sel <- df2 %>% select(ASV_ID3, C11_S10_L001) %>% filter(C11_S10_L001 >0) 
df2_sel$sample <- "B09_S1_L001"

ggplot(df2_sel, aes(x = factor(sample), y = C11_S10_L001, fill = ASV_ID3)) +
  geom_col(position = "fill") +
  scale_y_continuous(labels = percent_format()) +
  theme_minimal() +
  theme(
    axis.text.x = element_text(angle = 90, vjust = 0.5, hjust = 1)
  ) +
  labs(
    x    = "Muestra",
    y    = "Porcentaje de lecturas",
    fill = "Taxon"
  )

8.2 Filter counts <10

df2_sel <- df2 %>% select(ASV_ID3, C11_S10_L001) %>% filter(C11_S10_L001 >10) 
df2_sel$sample <- "B09_S1_L001"

ggplot(df2_sel, aes(x = factor(sample), y = C11_S10_L001, fill = ASV_ID3)) +
  geom_col(position = "fill") +
  scale_y_continuous(labels = percent_format()) +
  theme_minimal() +
  theme(
    axis.text.x = element_text(angle = 90, vjust = 0.5, hjust = 1)
  ) +
  labs(
    x    = "Muestra",
    y    = "Porcentaje de lecturas",
    fill = "Taxon"
  )