Question

所以我正在使用Phyloseq软件包进行RShiny项目。我想通过使用ggplotly（）函数使绘图更具交互性，但是每次使用它时，似乎都会改变绘图并在堆叠的条形图中包含白线，从而使输出信息不正确。

到目前为止，我的代码：

library(devtools)
library(phyloseq)
library(dplyr)
library(ggplot2)

cbPalette <- c("#556270", "#4ECDC4", "#C7F464", "#FF6B6B", "#008DD5", 
"#379F7A", "#78AE62", "#BBB749", "#E0FBAC", "#C8E011", "#174546", "#FF3700", 
"#FF0072")

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)

data("GlobalPatterns")

gp.ch <- subset_taxa(GlobalPatterns, Phylum == "Crenarchaeota")
p <- plot_bar_2(gp.ch) 
r <- p + geom_bar(stat = "identity") 
ggplotly(r)

How the Bar plots look without ggplotly

How the Bar plots look with ggplotly

如果有人可以帮助我理解为什么在添加ggplotly时为什么会有白线以及是否有任何办法可以解决这个问题，我会很乐意。这只是条形图的一个示例。由于白线全部填满，所以没有白线是没有意义的。谢谢！

ggplotly（）似乎正在向堆积的条形图中添加线条

0 个答案: