R 动态用户界面,googlevis绘图,闪亮
我在尝试使用谷歌的动态用户界面时遇到了一些问题。本质上,我希望允许用户通过一个滑块输入感兴趣的范围,并相应地更改绘图。在下面的示例中,我使用了googlevis软件包中的数据集来说明我的意思。如果运行以下代码,则不会出现错误,但不会生成绘图: 用户界面 服务器.R 服务器.RR 动态用户界面,googlevis绘图,闪亮,r,shiny,googlevis,R,Shiny,Googlevis,我在尝试使用谷歌的动态用户界面时遇到了一些问题。本质上,我希望允许用户通过一个滑块输入感兴趣的范围,并相应地更改绘图。在下面的示例中,我使用了googlevis软件包中的数据集来说明我的意思。如果运行以下代码,则不会出现错误,但不会生成绘图: 用户界面 服务器.R 服务器.R 从renderUI获取输入时,google绘图向应用程序的呈现似乎存在问题,可能是因为它将其呈现为html。。。任何帮助都将不胜感激。谢谢 这个问题似乎不太受欢迎,但由于我花了多少时间试图解决它,我想我会发布我的答案,希望
从renderUI获取输入时,google绘图向应用程序的呈现似乎存在问题,可能是因为它将其呈现为html。。。任何帮助都将不胜感激。谢谢 这个问题似乎不太受欢迎,但由于我花了多少时间试图解决它,我想我会发布我的答案,希望它能帮助以后的人。我仍然不完全理解原始代码中的两个问题,但我认为它们是由gvis绘图生成的javascript造成的 首先,对于renderSlider1和renderSlider2两种情况,RenderRui中的输入变量必须是不同的: 服务器.R 我不知道为什么会发生这种情况,我很想听听,但这解决了问题。ui.R和server.R的其余部分与上面相同,只是确保更改所有输入变量。希望这对别人有帮助
library(shiny)
shinyUI(fluidPage(
titlePanel("Example"),
sidebarLayout(
sidebarPanel(
radioButtons('data_choice', 'choose a dataset',
choices= c('dataset1', 'dataset2')),
uiOutput('slider')
),
mainPanel(
htmlOutput('view')
)
)
))
library(shiny)
library(googleVis)
library(ggplot2)
dataset1= dino
dataset2= Fruits[,c(1,6)]
shinyServer(function(input, output) {
#Output new slider depending on dataset chosen
output$slider<- renderUI({
if(input$data_choice== 'dataset1'){
sliderInput('rangeSlider', 'Choose data range',
min= 0, max= max(dataset1$Length),
value= c(0, max(dataset1$Length)))
}else if(input$data_choice== 'dataset2'){
sliderInput('rangeSlider', 'Choose data range',
min= 0, max= max(dataset2$Profit),
value= c(0, max(dataset2$Profit)))
}
})
#plot adjust
adjustPlot<- reactive({
#Adjust dataframes based on input from slider
if(input$data_choice== 'dataset1'){
adjusted_dataset1<- subset(dataset1,
Length >= input$rangeSlider[1] & Length <= input$rangeSlider[2])
}else if(input$data_choice== 'dataset2'){
adjusted_dataset2<- subset(dataset2,
Profit >= input$rangeSlider[1] & Profit <= input$rangeSlider[2])
}
})
output$view <- renderGvis({
gvisBarChart(adjustPlot(), options= list(height= 700))
})
})
mainPanel(
plotOutput('view')
)
#ggplot that works
output$view <- renderPlot({
if(input$data_choice=='dataset1'){
p<-ggplot(adjustPlot(), aes(x=Dinosaur, y=Length))
p<-p + geom_bar(stat='identity', fill='navyblue') + coord_flip()
}else if(input$data_choice=='dataset2') {
p<-ggplot(adjustPlot(), aes(x=Fruit, y=Profit))
p<-p + geom_bar(stat='identity', fill= 'forestgreen') + coord_flip()
}
print(p)
}, height=550)
#Output new slider depending on interested paramter chosen
output$slider<- renderUI({
if(input$data_choice== 'dataset1'){
sliderInput('rangeSlider1', 'Choose data range',
min= 0, max= max(dataset1$Length),
value= c(0, max(dataset1$Length)), round=T)
}else if(input$data_choice== 'dataset2'){
sliderInput('rangeSlider2', 'Choose data range',
min= 0, max= max(dataset2$Profit),
value= c(0, max(dataset2$Profit)), round=T)
}
})
output$view <- renderGvis({
if(nrow(adjustPlot())!= 0){
chart<-gvisBarChart(adjustPlot(), options= list(height= 700))
return(chart)
}
})