使用shiny在R-markdown中创建动态图表

Question

我正在尝试使用RStudio中的shiny创建动态图表的RMarkdown。我的数据描述了销售点交易，看起来像这样：

Date|Time|Timestamp|CustomerID|Amount|City
11-Nov-15,0:00:59,11/11/15 00:00:59,6350000476,214584,City A
11-Nov-15,0:00:59,11/11/15 00:01:00,7800004763,165,City B
11-Nov-15,0:01:00,11/11/15 00:01:01,4547000063,65132,City C
11-Nov-15,0:01:01,11/11/15 00:01:34,6350000476,4676,City C
11-Nov-15,0:01:34,11/11/15 00:01:36,4657000063,16556,City A
11-Nov-15,0:01:36,11/11/15 00:02:55,7800009476,684,City A

该数据集大约有250,000行。

我有一个包含十个城市的列表，我希望读者可以从下拉列表中选择一个城市，在散点图上，Timestamp在x轴上，Amount在y轴上。为了使可视化更清晰，我还希望可以通过滑块选择Amount值。

简而言之，我正在尝试重新创建这里找到的内容。

我尝试的代码在这里:

{r, echo=FALSE}
require(ggplot2)

inputPanel(
 selectInput("city_choose", label = "Select city",
              choices = c("City A"="City A","City B"="City B", "City C"="City C",multiple=TRUE ), selected ="City C" ),

 sliderInput("amount_adjust", label = "Amount",min = 0, max = 350000, value = 1, step = 10000)
)

renderPlot({
  ggplot(data=d2, aes(x=timestamp,y=amount_adjust,color=city_choose))+ geom_point()
})

问题

• 我的数据在d2中，但RStudio无法“找到”它。我通过使用R脚本在会话开始时手动将其加载到内存中来解决了这个问题，但是否有更好的方法？
• 绘图使用了selectInput和sliderInput中的值，但我不确定如何在绘图函数中调用它们。我尝试过input$city_choose、as.Text(input$city_choose)和只是city_choose。但它们都找不到。我在Amount列也遇到了同样的问题。如何通过从下拉列表和滑块中获取值来绘制图形，就像示例中一样？
• 我也无法使用server.R/ui.R设置。我希望输出在一个可以自由共享的RMarkdown中。

- H-Finch

---

几点需要说明。1）你还没有编写完整的Shiny应用程序，甚至没有完整的R-markdown文件。2）您尚未创建一个包含样本数据的小型独立示例，这将导致大量的反对票。3）嵌入R-markdown中的Shiny小部件并不是真正“可自由共享”的，而只能在R-Studio中运行（目前如此）。 - Mike Wise

请仔细阅读本文，特别是结论前的斜体文字。http://shiny.rstudio.com/articles/interactive-docs.html - Mike Wise

非常感谢@Mike Wise。你分享的链接中的细节我完全忽略了，当我发现闪亮时。此外，（这可能听起来很傻），在我有机会添加示例数据之前，我不小心发布了问题。 - H-Finch

是的，我也错过了那个，直到几个月前我花了一个小时才试图让它工作 :) - Mike Wise

我现在已经添加了示例数据。我仍然想要完成这个任务，所以你能否详细说明一下你说的“完整的闪亮应用程序或完整的R-markdown”是什么意思？ - H-Finch

Answer 1

这里有一个基本可用的东西，尽管我不太确定你需要什么样的情节。这是R-markdown文件：

---
title: "City Plot"
author: "Someone"
date: "December 24, 2015"
runtime: shiny
output: html_document
---

Test 

```{r,echo=F}
require(ggplot2)
shinyApp(
  ui = fluidPage(
    selectInput("city_choose", label = "Select city",
               choices = c("City A"="City A","City B"="City B", 
                           "City C"="City C",multiple=TRUE ), selected ="City C" ),

    sliderInput("amount_adjust", 
                 label = "Amount",min = 1, max = 10, value = 1, step = 1),
    plotOutput("cityplt")
  ),
  server = function(input, output) {
    set.seed(1234)
    n <- 200
    sdate <- as.POSIXct("2015-11-11 00:00:00",tz="UCT")
    edate <- as.POSIXct("2015-11-11 23:59:59",tz="UCT")
    d3 <- data.frame(
      Timestamp =  as.POSIXct(runif(n,sdate,edate),tz="UCT",origin="1970-01-01"),
      Amount = runif(n,10000,1000000),
      City = sample(c("City A","City B","City C"),n,replace=T)
    )
    d3 <- d3[ order(d3$Timestamp), ]

    output$cityplt <- renderPlot({
      d4 <- d3[ d3$City==input$city_choose, ] 
      d4$AdjAmount <- input$amount_adjust*d4$Amount
      ggplot(data=d4,aes(x=Timestamp,y=AdjAmount)) + 
        geom_bar(stat="Identity") +
        labs(title=input$city_choose)
    })
  },
  options = list(height = 800)
)

```

Finished

产出：

产出：

- Mike Wise

---

好的，我添加了更多虚构数据，使其交互式，并调整了高度。 - Mike Wise

抱歉回复晚了，Mike。一切正常。谢谢！ :-) - H-Finch