在R中创建堆叠条形图

Question

我正在从excel转移到R创建更好的情节，我正在创建R中显示三列百分比的堆叠条形图。其实,百分比。内含子和百分比。每个样本在一个堆栈中进行基因间分析。这些堆栈图的值加起来等于100。在我的数据集中，这三列之后还有多个列。

我有一个大的数据集，看起来像这样(我从一个文本文件读到一个表)-

Sample_ID   Gene_ID  Percent.Mapped.Reads   Percent.Exonic  Percent.Intronic    Percent.Intergenic Col7 Col8 Col9 Col10
AAl 79.46  ABC  85  10  5 . . .
AA2 83.39  X82 96   2   2 . . . 
AAL3     AB9292  91.89  90  5   5 . . . 
AAL5    uw20  89.34 90  0   10
PBS1    wiw0  82.4  88  2   12
PBS3    vh27  81.88 100 0   0
Imr90_Rep2_54   eg282 92.29 100 0   0
Imr90_Rep2_72   yrt363 90.62    100 0   0

[![在这里输入图像描述][1][1]有人能分享一下如何得到这个包含所有样本的图吗?

到目前为止，我有这个代码，但我感到困惑，因为以前很少有关于这个主题的帖子使用as。还有矩阵?-

alignment <- read.table("Alignment.txt")
barplot(alignment,
    names.arg = alignment,
    cex.names = 0.7, 
    col = sequential, 
    xlab = "Samples",
    ylab = "Percent mapped",
    xlim = c(0,20), 
    width = 1))

谢谢!

Answer 1

我得到了它的工作基于一个以前的帖子-

    Data <- subset(Input, select=c(1,7,8,9)) # Row required columns 
    data_m <- melt(Data)
   ggplot(dat_m, aes(data_m$Sample_ID, value, fill = variable)) + 
      geom_bar(stat = "identity") + 
      xlab("Chr") + 
      ylab("Number of SNPs")+ theme(axis.text.x = element_text(angle = 90, hjust = 0)
     })

这里是原始帖子-我如何使用ggplot2制作堆叠条形图