Two directional bar plots for BL

library(ggplot2)

name_color <- read.table("16s-color.csv", comment.char = "", sep = ",")
name <- name_color$V2
color <- name_color$V3
name_number <- length(name)
group_number <- 10

data <- data.frame(matrix(rnorm(name_number * group_number), name_number, group_number))
data3 <- NULL
for (i in 1 : group_number) {
  od <- order(data[, i])
  data2 <- NULL
  data2 <- cbind(data2, data[od, i])
  data2 <- cbind(data2, name[od])
  data2 <- cbind(data2, color[od])
  data2 <- cbind(data2, data.frame(group = rep(paste0("X", i), name_number)))
  data2[, 1] <- as.numeric(data2[, 1])
  pos <- which(data2[, 1] > 0)
  od_pos <- rev(pos)
  data2[pos, ] <- data2[od_pos, ]
  data3 <- rbind(data3, data2)
}
colnames(data3) <- c("Value", "Name", "Color", "Group")
data3$Value <- as.numeric(data3$Value)
data3$Name <- as.factor(data3$Name)
data3$Group <- factor(data3$Group, levels = paste0("X", seq(1, group_number)))

data3$Ordering <- factor(x = seq(1, name_number * group_number), levels = seq(1, name_number * group_number))

labelss=data.frame(x=1:10,y=-20,family=rep(c("CD","BL"),5))

p <- ggplot(data3, aes(x=Group, y=Value, fill=Ordering)) + 
  geom_bar(stat="identity", position="stack",width=0.75) + 
  geom_hline(yintercept = 0, color = "black", size = 1) +
  scale_fill_manual(values=data3$Color) +
  labs(title="", y="Value", x=NULL) +
  theme_classic(base_size = 16) +
  theme(legend.position = "none")+theme(axis.text.x = element_blank(),
        axis.ticks.x = element_blank(),axis.line.x=element_line(color="white"))+geom_segment(aes(x = 0.5, y = -20, xend = 2.3, yend = -20),linetype="dashed",width=2)+geom_text(aes(x=1,y=-19,label="CD"))+geom_text(aes(x=2,y=-19,label="BL"))+geom_text(aes(x=3,y=-19,label="CD"))+geom_text(aes(x=4,y=-19,label="BL"))+geom_text(aes(x=5,y=-19,label="CD"))+geom_text(aes(x=6,y=-19,label="BL"))+geom_text(aes(x=7,y=-19,label="CD"))+geom_text(aes(x=8,y=-19,label="BL"))+geom_text(aes(x=9,y=-19,label="CD"))+geom_text(aes(x=10,y=-19,label="BL"))+geom_segment(aes(x = 2.5, y = -20, xend = 4.3, yend = -20),linetype="dashed",width=2)+geom_segment(aes(x = 4.5, y = -20, xend = 6.3, yend = -20),linetype="dashed",width=2)+geom_segment(aes(x = 6.5, y = -20, xend = 8.3, yend = -20),linetype="dashed",width=2)+geom_segment(aes(x = 8.5, y = -20, xend = 10.3, yend = -20),linetype="dashed",width=2)+geom_text(aes(x=1.5,y=-21,label="2-month"))+geom_text(aes(x=3.5,y=-21,label="3-month"))+geom_text(aes(x=5.5,y=-21,label="4-month"))+geom_text(aes(x=7.5,y=-21,label="5-month"))+geom_text(aes(x=9.5,y=-21,label="6-month"))

Warning: Ignoring unknown parameters: `width`Warning: Ignoring unknown parameters: `width`Warning: Ignoring unknown parameters: `width`Warning: Ignoring unknown parameters: `width`Warning: Ignoring unknown parameters: `width`

print(p)