使共享共同观察/条目的各个条形并排显示，而不是根据 R 中的轴标签分散

Question

基本上，我有一个包含三个变量的数据集，我对绘图感兴趣。一个称为亚组，具有菌株所属亚组的名称。其中至少有两个共享相同的子组。目前，当我对它们进行条形图绘制并按子组填充时，我会得到根据子组的彩色条，但它们不会彼此相邻出现（而是按菌株名称按字母顺序排列）。我想要一个包含来自同一子组的任何应变的条形图。

代码如下：

`ggplot(data = Phylogeny_Pseudomonads_BasicGenomeData,
       aes(x= Strain,
           y= genome_size_in_Mb))+
  aes(fill = Subgroups, y= genome_size_in_Mb, x=Strain)+
  labs(title = "Genome Sizes Across Strains",
       x= "Strain", y= "Genome Size in Mb")+
  scale_x_discrete(guide = guide_axis(angle = 90)) +
  geom_bar(position="dodge", stat="identity", width = 0.5)`

这就是我所拥有的： 在此输入图片描述

dput():
structure(list(Subgroups = c("Jessenii", "fluorescens", "fluorescens", 
"gessardii", "gessardii", "fragi", "fragi"), `Species Name + Strain` = c("Pseudomonas umsongensis", 
"Pseudomonas fluorescens", "Pseudomonas extremaustralis", "Pseudomonas sp.", 
"Pseudomonas fluorescens", "Pseudomonas psychrophila", "Pseudomonas taetrolens"
), Strain = c("GO16", "SBW25", "DSM17835", "Ag1", "R8", "HA4", 
"LMG2336"), `refseq assembly` = c("GCF_008824165.1", "GCF_000009225.2", 
"GCF_900102035.1", "GCF_000006765.1", "GCF_000297195.3", "GCF_000282975.1", 
"GCF_900104825.1"), genome_size_in_Mb = c(7.4, 6.7, 6.7, 6.3, 
7, 5.2, 4.9), `chromosome number` = c("2", "1", "1", "1", "1", 
"-", "-"), `GC content` = c(59, 60.5, 60.5, 66.5, 61, 56.5, 58
), `Number of CDS genes` = c(6441, 5974, 6000, 5572, 6307, 4666, 
4360), `Genes number` = c(6698, 6154, 6228, 6708, 6440, 4823, 
4507)), row.names = c(NA, -7L), class = c("tbl_df", "tbl", "data.frame"
))

Answer 1

这会将应变条分组为子组：

ggplot(data = Phylogeny_Pseudomonads_BasicGenomeData, 
       aes(fill = Strain, x = Subgroups, group = Strain, y = genome_size_in_Mb), color = "white") +
  geom_bar(position = position_dodge(width = .8, preserve = "single"), 
           stat = "identity",
           width = .8)