无法在 R 中渲染 rcharts/nvd3 图形答案

【问题标题】：Unable to render rcharts/nvd3 graph in R shiny无法在 R 中渲染 rcharts/nvd3 图形
【发布时间】：2016-03-10 07:01:02
【问题描述】：

我正在制作一个简单的应用程序，我想在其中呈现我的情绪分析图。如果我直接通过我在 server.R 中编写的 R 运行代码，我可以毫无问题地查看图形。但是当我想通过 R Shiny 渲染相同的内容时，问题就来了。

我的代码是：

require(rCharts)
a =shinyUI(pageWithSidebar(
  headerPanel("rCharts: Interactive Charts from R | NVD3"),

  sidebarPanel(),
  mainPanel(
    showOutput("myChart", "nvd3")
  )
))

require(rCharts)
require(ddply)
b= shinyServer(function(input, output) {
  output$myChart <- renderChart({
    newData<-read.csv("data.csv")
    finaldata = data.frame()
    finaldata = as.data.frame(newData$Polarity)
    colnames(finaldata)<- "Polarity"
    finaldata$Freq<-1
    finaldata = ddply(finaldata, .(Polarity), summarize, Freq = sum(Freq), Group = "Sentiment Analysis")
    n1 <- nPlot(Freq ~ Group, data = finaldata, group = 'Polarity', type = 'multiBarChart')
    n1
  })
})
shinyApp(ui=a, server=b)

我的 data.csv 如下图所示，以 Polarity 为一列：

【问题讨论】：

也许用renderChart2代替renderChart，见stackoverflow.com/questions/21758583/…

标签： r shiny nvd3.js rcharts shinydashboard

【解决方案1】：

按照@Victorp 的建议，更改为renderChart2

rm(list = ls())
library(rCharts)
library(shiny)
library(plyr)

Polarity <- c(rep("positive",3),"neutral",rep("positive",4),"negative",rep("positive",10),"neutral")

newData <- as.data.frame(Polarity)


a =shinyUI(pageWithSidebar(
  headerPanel("rCharts: Interactive Charts from R | NVD3"),

  sidebarPanel(),
  mainPanel(
    showOutput("myChart", "nvd3")
  )
))

b= shinyServer(function(input, output) {
  output$myChart <- renderChart2({
    finaldata = data.frame()
    finaldata = as.data.frame(newData$Polarity)
    colnames(finaldata)<- "Polarity"
    finaldata$Freq<-1
    finaldata = ddply(finaldata, .(Polarity), summarize, Freq = sum(Freq), Group = "Sentiment Analysis")
    n1 <- nPlot(Freq ~ Group, data = finaldata, group = 'Polarity', type = 'multiBarChart')
    n1
  })
})
shinyApp(ui=a, server=b)

【讨论】：