[英]R Shiny: scatter plot not showing
我正在嘗試基於動態滑動條渲染 plot_ly 散點圖。 但是,我似乎錯過了一些東西。
當我運行該應用程序時,我看到的錯誤如下:
錯誤:第一個參數無效
我真的很感謝你幫助理解出了什么問題。
請在代碼下方找到(希望它現在具有足夠的可重現性)。
#load libraries to be used. Pacman ensures library reproducibility
if (!require("pacman")) install.package("pacman")
pacman::p_load(ggplot2,dplyr,tidyr, rpart, shiny, shinydashboard, plotly, DT)
#load Titanic dataset
dataset<-read.csv(".../titanic.csv")
ui <- fluidPage(
dashboardHeader(
title = "My trial",
titleWidth = 300
),
dashboardSidebar(
sidebarMenu(
sidebarMenu(
menuItem("Visualization", tabName = "visualization", icon = icon("dashboard")),
menuItem("Data Table", tabName = "datatable", icon = icon("th"))
)
)
),
dashboardBody(
tabItems(
# Content of first tab
tabItem(tabName = "visualization",
h2("Visualization using Plot_ly"),
fluidRow(
box(plotlyOutput("Trialplot")),
box(
title = "Age range",
status="primary",
solidHeader=TRUE,
collapsible=TRUE,
sliderInput("slider", "Please select the age range to be seen:", 0, max(dataset$Age), c(0,max(dataset$Age)/2), ticks=FALSE)
)
),
box(plotlyOutput("Trialplot"))
),
# Content of second tab
tabItem(tabName = "datatable",
h2("Data table")
)
)
)
)
server = shinyServer(function(input, output,session) {
output$Trialplot<-renderPlotly({
dataset_filtered<-dataset[dataset$Age ==input$slider,]
plot_ly(data = dataset_filtered, x = ~Fare, y = ~get(input$slider) ,
color=~Survived,
colors=pal,
type='scatter',
marker=list(size=10),
hoverinfo='text',
text=~paste("Name:",Name,", Age:",Age,", Fare",Fare)
)%>%
layout(title="Age vs.Fare")})
}
)
shinyApp(ui,server)
提前致謝。
你不應該在你閃亮的應用程序中調用plotlyOutput("Trialplot")
兩次,而且, sliderInput
有兩個值,分別是你的滑塊的最小值和最大值,所以你不能使用這樣的dataset$Age == input$slider
:
我試圖重現您的代碼,現在它對我dput(data)
,下次嘗試使用dput(data)
函數的輸出發布您的數據。
library(shiny)
pacman::p_load(ggplot2,dplyr,tidyr, rpart, shiny, shinydashboard, plotly, DT)
#load Titanic dataset
dataset<-read.csv("titanic.csv")
ui <- fluidPage(
dashboardHeader(
title = "My trial",
titleWidth = 300
),
dashboardSidebar(
sidebarMenu(
sidebarMenu(
menuItem("Visualization", tabName = "visualization", icon = icon("dashboard")),
menuItem("Data Table", tabName = "datatable", icon = icon("th"))
)
)
),
dashboardBody(
tabItems(
# Content of first tab
tabItem(tabName = "visualization",
h2("Visualization using Plot_ly"),
fluidRow(
# box(plotlyOutput("Trialplot")),
box(
title = "Age range",
status="primary",
solidHeader=TRUE,
collapsible=TRUE,
sliderInput("slider", "Please select the age range to be seen:", 0, max(dataset$Age,na.rm = T), c(0,max(dataset$Age,na.rm = T)/2), ticks=FALSE)
)
),
box(plotlyOutput("Trialplot"))
),
# Content of second tab
tabItem(tabName = "datatable",
h2("Data table")
)
)
)
)
server = shinyServer(function(input, output,session) {
observe({
print(input$slider)
})
output$Trialplot<-renderPlotly({
dataset_filtered<-dataset[dataset$Age >= input$slider[1] & dataset$Age <= input$slider[2],]
plot_ly(data = dataset_filtered, x = ~Fare, y = ~Age ,
color=~Survived,
colors=NULL,
type='scatter',
marker=list(size=10),
hoverinfo='text',
text=~paste("Name:",Name,", Age:",Age,", Fare",Fare)
)%>%
layout(title="Age vs.Fare")
})
}
)
shinyApp(ui,server)
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.