R 如何在已堆叠的条形图（丰度与时间序列）中分组（m/f）？

我对R很陌生，并设法使用谷歌的ggplot2 我想“叠加图”相对丰度与时间块（1-8）

现在的情节是什么样的：

现在谈谈我的目标和问题： 我有男性和女性的数据。我的目标是将每个时间段的m/f分组，使其彼此相邻。因此，每个时间序列1-8有两个堆叠的条形图（m和f），彼此相邻（不幸的是，无法添加第二张图片）

下载数据链接（txt文件）：

family\u


（我不想下载你的数据。）



（我不想下载你的数据。）
你的数据应该是（与Axeman的想法几乎相同）：

您的数据应该类似于（与Axeman的想法几乎相同）：

你好，阿克塞曼，为你的快速回答干杯。我想我在网上看到过类似的例子。然而，这对我没有多大帮助，因为我的数据帧是完全不同的。这里是数据帧的另一个链接：那么请包含一个最小的可复制示例。请阅读相关信息以及如何给出建议。这将使其他人更容易帮助您。我在上面的评论中添加的数据框就是实际的数据集。然而，它已经相当小和直观！我没有看到有数据的评论，你的问题只包含一个链接。请将数据包含在问题本身中（如我刚才给你的第二个链接所示）。使用
dput
或类似方法。您好，axeman为您的快速回答干杯。我想我在网上看到过类似的例子。然而，这对我没有多大帮助，因为我的数据帧是完全不同的。这里是数据帧的另一个链接：那么请包含一个最小的可复制示例。请阅读相关信息以及如何给出建议。这将使其他人更容易帮助您。我在上面的评论中添加的数据框就是实际的数据集。然而，它已经相当小和直观！我没有看到有数据的评论，你的问题只包含一个链接。请将数据包含在问题本身中（如我刚才给你的第二个链接所示）。使用
dput
或类似工具。非常感谢！这正是我想要的！显然，我还需要进一步阅读facet_网格和ggplot的aes。干杯谢谢！这正是我想要的！显然，我还需要进一步阅读facet_网格和ggplot的aes。干杯
family_abundance<-read.table("family_abundance.txt", header=T)
ggplot(family_abundance, aes(x=row, y=value, fill=factor(variable))) 
        + geom_bar(stat="identity", )
        + scale_fill_manual(values=c("#523A00","#143952","#0B1E0B","#112D10","#163C16","#1C4B1B","#215A20","#2D782B","#389636","#7071b6","#390528","#4B0636","#5E0843","#710950","#970C6B","#BD0F86","#BD0F86","#E212A1","#F042B9","#5CC45A","#f7d899","#A26F3F","#C6986C","#32dcd0","#7071b6","#35bfd7","#faa756","#D4D125","#048c92","#bc94e3","#22776e","#f294d1","#c64b3f","#fac049","#491209","#A42913","#E54124","#7f8ba7","#2972A3","#EBFEF4","#c9aba5","#1f7366","#7A5800","#8F6600","#B88400","#D89A00","#FFBA0A","#A1C8E3","#B1ADA0","#996836","#58a56d","#f5a05f"))
        + xlab("Week") 
        + ylab("Abundance") 
        + facet_grid(. ~sex)

ggplot(mpg, aes(interaction(year, class))) + 
  geom_bar(aes(fill = drv), position = "stack")

ggplot(mpg, aes(as.factor(year))) + 
  geom_bar(aes(fill = drv), position = "stack") +
  facet_grid(~class, scales = 'free')

ggplot(family_abundance, aes(x=interaction(sex,row), y=value, group=sex,fill=factor(variable))) +
  geom_bar(stat="identity")+
  facet_grid(.~row, scales = 'free')+
  scale_x_discrete("Week",labels=levels(family_abundance$sex))