Гистограмма с накоплением ggplot исчезает при нажатии на легенду - PullRequest
Новая
       7

Гистограмма с накоплением ggplot исчезает при нажатии на легенду

0 голосов
/ 04 июля 2018

Я не уверен, почему, но моя столбчатая диаграмма с накоплением исчезает, а не падает на ось при нажатии на легенду. Я приложил снимок экрана с примером, который я скопировал с сайта сюжета, и код выглядит следующим образом: 

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)

Диаграмма с накоплением исчезает при нажатии на легенду

Может ли кто-нибудь помочь мне с этим?

1 Ответ

0 голосов
/ 04 июля 2018

Вы можете использовать API plotly напрямую, а не ggplotly, тогда он работает как положено: 

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

Если вам также необходимо встроить статическую версию графика в документ R Markdonw, вы можете использовать функцию export() для создания статической версии: 

---
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)
```
...