2016-03-10 25 views
1

我正在製作一個簡單的應用程序,用於呈現我的情感分析圖。如果我直接通過我在server.R中編寫的R運行代碼,則可以毫無問題地查看圖形。但是,當我想通過R光澤渲染時,問題就出現了。無法呈現r Rrts中的rcharts/nvd3圖形

我的代碼是:

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看起來像下面的圖片與極性柱:

enter image description here

+0

也許使用'renderChart2'而不是'renderChart',參見http://stackoverflow.com/questions/21758583/rcharts-plot-wont-appear-in-shiny-app-using-dimple-js/21807145#21807145 – Victorp

回答

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) 

enter image description here