我想在条形图的边缘删除这些线条。我正在使用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)
答案 0 :(得分:1)
您的问题出在软件包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")