輸入文件格式如下：

library(ggplot2)
setwd("C:/Users/lenovo/Desktop")
data <- read.csv(file="111.csv",header = T)

ggplot(data=data, aes(x=Species, y=Value, fill=Type)) + 
+     geom_bar(stat="identity") +
+     facet_grid(~Soft) + 
+     labs(title="Prediction of Disease-related Mutations.", x="", y="Percentage of deleterious mutations", fill="Type") + 
+     theme(plot.title = element_text(size=25, margin=margin(t=20, b=30)))

參考鏈接：
http://theduke.at/blog/science/beginners-guide-to-creating-grouped-and-stacked-bar-charts-in-r-with-ggplot2/
https://stackoverflow.com/questions/21409850/generate-paired-stacked-bar-charts-in-ggplot-using-position-dodge-only-on-some