单击图例时，plotly ggplot堆积的条形图消失 [英] Plotly ggplot stacked bar chart disappear when legend is clicked

问题描述

我不确定为什么，但是单击图例后，堆积的条形图消失了，而不是掉到了轴上.我已经附上了我从plotly网站复制的示例的屏幕截图，代码如下:

I'm not sure why but my stacked bar chart disappears instead of falling to the axis when the legend is clicked. I've attached a screenshot of the example that I copied from the plotly website and the code are as follows:

library(plotly)

DF <- read.table(text="Rank F1     F2     F3
1    500    250    50
2    400    100    30
3    300    155    100
4    200    90     10", header=TRUE)

library(reshape2)
DF1 <- melt(DF, id.var="Rank")

p <- ggplot(DF1, aes(x = Rank, y = value, fill = variable)) +
  geom_bar(stat = "identity")

p <- ggplotly(p)

单击图例时，堆积的条形图消失

有人可以帮助我吗?

推荐答案

您可以直接使用plotly API(而不是ggplotly)，然后按预期工作:

You can use the plotly API directly, rather than ggplotly, then it works as expected:

plot_ly(DF1) %>%
  add_bars(~Rank, ~value, color=~variable) %>%
  layout(barmode = 'stack')

如果您还需要在R Markdonw文档中嵌入图的静态版本，则可以使用export()函数创建静态版本:

If you need to also embed a static version of the plot in an R Markdonw document, you can use the export() function to create a static version:

---
title: "Untitled"
output: word_document
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
```

## R Markdown

Here's a barchart:

```{r chart}
library(plotly)
library(reshape2)

DF <- read.table(text="Rank F1     F2     F3
                 1    500    250    50
                 2    400    100    30
                 3    300    155    100
                 4    200    90     10", header=TRUE)
DF1 <- melt(DF, id.var="Rank")

p = plot_ly(DF1) %>%
  add_bars(~Rank, ~value, color=~variable) %>%
  layout(barmode = 'stack')
export(p)
```

这篇关于单击图例时，plotly ggplot堆积的条形图消失的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！