5

I want to make a simple sales report line chart that shows product sales over time for a given product from a drop down menu. I have made a report using plotly and shiny, but I can't find a way to share the report with my colleagues, without having to use Shiny Server or Shinyapps.IO. Ideally, I would want a standalone html file, but I can't find a way to insert an interactive graph to R Markdown.

Here is an example dataframe:

df = data.frame(month=rep_len(1:12, length.out=12*5), product=rep(1:5, each=12),sales=rnorm(12*5,100,50))
Improve this question
2

2 Answers 2

Reset to default
8

The following example accomplishes exactly what you want and can be embedded in RMarkdown, then converted to a standalone HTML page that can be viewed offline or hosted on a server:

## Create random data. cols holds the parameter that should be switched
l <- lapply(1:100, function(i) rnorm(100))
df <- as.data.frame(l)
cols <- paste0(letters, 1:100)
colnames(df) <- cols
df[["c"]] <- 1:100

## Add trace directly here, since plotly adds a blank trace otherwise
p <- plot_ly(df,
      type = "scatter",
      mode = "lines",
      x = ~c, 
      y= ~df[[cols[[1]]]], 
      name = cols[[1]])
## Add arbitrary number of traces
## Ignore first col as it has already been added
for (col in cols[-1]) {
  p <- p %>% add_lines(x = ~c, y = df[[col]], name = col, visible = FALSE)
}

p <- p %>%
    layout(
      title = "Dropdown line plot",
      xaxis = list(title = "x"),
      yaxis = list(title = "y"),
      updatemenus = list(
        list(
            y = 0.7,
            ## Add all buttons at once
            buttons = lapply(cols, function(col) {
              list(method="restyle", 
                args = list("visible", cols == col),
                label = col)
            })
        )
      )
    )

print(p)
Improve this answer
Sign up to request clarification or add additional context in comments.

7 Comments

Thank you! This gets me one step closer at least. But does this approach require a hard coding of each group? I have several hundred groups, is there a way to make this work in a dataframe that is formatted with a group and a value column, instead of one column for each group of values? e.g. a product name and sales number column.
See updated answer for a general solution. I assume that you mean "tidy" type data? This won't work with that, so it would probably be easier to use reshape2 to make the data "wide" before plotting
On second viewing, there seems to be a bug. The column in the dropdown doesnt correspond to the correct line showing up in the chart
b2 shows both the line for a1 and v100, while c3 onwards shows the line for column x minus 2, so c3 shows a1, d4 shows b2 etc.
This is now fixed
|
2

No, that's sort of the point of Shiny - that you have a live session with an R server. If you want to get the result completely in an html file, you'd probably want to pre-make all the charts and then display the results from a markdown file. I believe you can use drop-down menus in markdown with the bsselectR package.

Improve this answer

1 Comment

I am playing around with plot.ly/r/dropdowns but I can't quite understand if the dropdown can be used to filter a data set or to just modify the plots. Will check out bsselectR

Your Answer

By clicking “Post Your Answer”, you agree to our terms of service and acknowledge you have read our privacy policy.

Start asking to get answers

Find the answer to your question by asking.

Ask question

Explore related questions

See similar questions with these tags.