如何删除非常细的条形图轮廓/边框

穆罕默德·拉曼(Mohammed Rahman)

我想在条形图的边缘删除这些线。我正在使用phyloseq库。这是我的代码,我尝试将colour / color / col更改为“ NA”,结果是相同的。我只是不喜欢那细小的黑色轮廓。

library(phyloseq)
data("GlobalPatterns")
gp.ch <- subset_taxa(GlobalPatterns, Phylum == "Spirochaetes")
p <- plot_bar(gp.ch, fill = "Phylum") 
p + geom_bar(stat = "identity") + scale_fill_manual(values = cbPalette)

在此处输入图片说明

达里克·比恩科夫斯基(Darek Bienkowski)

您的问题出在plot_bar()包装的功能上phyloseq-内部为黑色边框。您可以只使用额外的参数来创建函数,也可以border_color不使用它。

plot_bar_2 <-  function (physeq, x = "Sample", y = "Abundance", fill = NULL, title = NULL, facet_grid = NULL, border_color = NA) 
{
  mdf = psmelt(physeq)
  p = ggplot(mdf, aes_string(x = x, y = y, fill = fill))
  p = p + geom_bar(stat = "identity", position = "stack",  color = border_color)
  p = p + theme(axis.text.x = element_text(angle = -90, hjust = 0))
  if (!is.null(facet_grid)) {
    p <- p + facet_grid(facet_grid)
  }
  if (!is.null(title)) {
    p <- p + ggtitle(title)
  }
  return(p)
}

并打电话

library(phyloseq)
data("GlobalPatterns")
gp.ch <- subset_taxa(GlobalPatterns, Phylum == "Spirochaetes")
p <- plot_bar_2(gp.ch, fill = "Phylum") 
p + geom_bar(stat = "identity") + scale_fill_manual(values = cbPalette)

或使用任何其他边框颜色

p <- plot_bar_2(gp.ch, fill = "Phylum", border_color = "red") 

本文收集自互联网,转载请注明来源。

如有侵权,请联系 [email protected] 删除。

编辑于
0

我来说两句

0 条评论
登录 后参与评论

相关文章