2

我有一个包含当前项目的数据框：

情绪，颜色，推文
位置，绿色，58
否定，红色，3
中性，蓝色，46

在R Shiny 中，我使用 Cran Package GoogleVis。但是当我绘制柱形图时，所有的条都得到相同的颜色。

服务器脚本

# server.R
library(googleVis)
library(shiny)


shinyServer(function(input, output) {


datasetInput <- reactive({
   getFilteredBarFrame(input$dataset)
   }) 

output$view <- renderGvis({
   gvisColumnChart(datasetInput()

   )
}) 
})

用户界面脚本

library(shiny)
source("data.R")

lstCategorie <-     
   getlstCategorie(getGroupedData(getTweetTraining(openDBSentiment())))


shinyUI(pageWithSidebar(
    headerPanel("Tweet Sentiment"),
    sidebarPanel(
    selectInput("dataset", "Selecteer bank:"
                         ,  choices = lstCategorie
                         , selected = "Rabobank"
    )
 ),
mainPanel(
     htmlOutput("view")
   )
)

)

数据.r

library(RMongo)
library(data.table)
library(ggplot2)
library(googleVis)
library(plyr)

#Make connection with MongoDB
openDBSentiment <- function (){
dbSentiment <- mongoDbConnect('Sentiment')  
return (dbSentiment)  
}

#Get Trainingset of Tweets
getTweetTraining <- function (dbSentiment){
   getTrainingData <- dbGetQuery(dbSentiment,'TweetTraining','{}')
   TrainingData <- data.frame(getTrainingData) 
return (TrainingData)  
}

#Aggegrate dataset
getGroupedData <-function(TrainingData){
  grouped_data <- aggregate(TrainingData, by=list(TrainingData$colour, 
  TrainingData$tag, TrainingData$categorie), FUN=length)

  #Remove empty rows
  grouped_data <- subset(grouped_data,select=c(Group.1,Group.2,Group.3,   
  colour), subset =(Group.2 != "" ) )

  #Rename columns
  grouped_data <-  


    rename(grouped_data,c("Group.1"="kleur","Group.2"="sentiment","Group.3"="categorie","colour"="aantaltweets"))

  return (grouped_data)
}

#Get list of categories
getlstCategorie <- function (grouped_data){
  lstCategorie <- unique(grouped_data$categorie)
  return (lstCategorie)
}

#Get dataframe for barplot
getFilteredBarFrame <- function (input) {
 #Build dataframe from other functions
  dfBarFrame  <-  getGroupedData(getTweetTraining(openDBSentiment()))
  #Filter the data.frame based on the input parameter
  dfBarFrame <-  dfBarFrame[dfBarFrame$categorie ==  input , ]
  #select only 2 fields of the data.frame
  dfBarFrame <- dfBarFrame[c("sentiment","aantaltweets","kleur")]
  #return the result tot the function
return (dfBarFrame)
}

GoogleVis 绘图结果

在此处输入图像描述

我可以在 GGPLOT2 中实现它（参见下面的代码）。但不是GoogleVis！_

    ggplot(dfAGG, aes(x=categorie, y=aantaltweets, fill=sentiment)) +
  geom_bar(position="dodge" , colour = "black" ,stat="identity") +
  scale_fill_manual(values=c("red","orange","green"))

如何使用数据框中可用的颜色属性更改条形颜色。

非常感谢！

埃里克

4

2 回答 2

2

您可以在使用 绘图之前重命名该colour列，并将该列作为tweets.stylegvisColumnChartyvar

这是一个示例，我使用了您在顶部提供的虚拟数据和您的ui.R（刚刚删除了选择输入）：

服务器.R

library(googleVis)
library(shiny)

shinyServer(function(input, output) {
        data=data.frame(sentiment=c("pos","neg","neutral"),colour=c("green","red","blue"),tweets=c(58,3,46))
        names(data)<-c("sentiment","tweets.style","tweets")
        output$view <- renderGvis({
                gvisColumnChart(data,xvar="sentiment",yvar=c("tweets","tweets.style"))
 }) 
})

我得到这样的东西： 在此处输入图像描述

您可以在此处获取有关角色和自定义 gvis 图的更多信息

于 2015-02-22T18:22:11.900 回答
0

如果您使用的是 R，您可以简单地执行以下操作，例如：

counts <- table(mtcars$gear)
color <-  c("blue", "orange", "gold", "indianred", "skyblue4","light blue")
barplot(counts, main="Car Distribution", xlab="Number of Gears",col=color)
于 2015-02-22T13:14:10.047 回答