我正在构建一个应用程序,该应用程序允许用户使用selectInput在可打印图上动态添加和删除迹线。
我试图从plotly包中尝试使用plotlyProxy()和plotlyProxyInvoke()。
下面是我的基本代码:
library(shiny)
library(shinydashboard)
library(plotly)
ui <- dashboardPage(
dashboardHeader(),
dashboardSidebar(
sidebarMenu(
menuItem("Search", tabName = "Tabs", icon = icon("object-ungroup"))
)
),
dashboardBody(
tabItem(tabName = "Tabs",
fluidRow(
column(width=3,
box(
title="SELECT ",
solidHeader=TRUE,
collapsible=TRUE,
width=NULL,
selectInput(
inputId="Player",
selected = NULL, multiple = TRUE,
label=" Choose Player",
choices=c("Messi", "Suarez", "Ronaldo" )),
selectInput(
inputId="Delete",
selected = NULL, multiple = TRUE,
label=" Choose Player",
choices=c("Messi", "Suarez", "Ronaldo" )),
submitButton("Select")
)
),
column( width=9,
tabBox(
width="100%",
tabPanel("tab1",
plotlyOutput("Plot1")
)))))))
server <- function(input, output, session) {
output$Plot1 <- renderPlotly({
goals <- data.frame(Name = c("Messi", "Suarez", "Ronaldo", "Messi", "Suarez", "Ronaldo", "Messi", "Suarez", "Ronaldo" ),
Number= c(47, 35, 40, 49, 32, 31, 51, 49, 44 ),
Year = c("2018","2018","2018", "2017", "2017", "2017", "2016","2016","2016")
)
plot_ly(goals, x = ~Year, y = ~Number, type = 'scatter', mode = 'lines', color = ~input$Player )%>% layout(showlegend = TRUE)%>%
layout(title = 'Number of goals')
})
# plotly.addTraces
observeEvent(input$Player, {
plotlyProxy("Plot1", session) %>%
plotlyProxyInvoke("addTraces", list(x = ~Year,
y = ~Number,
type = 'scatter',
mode = 'lines'))
})
# plotly.deleteTraces
observeEvent(input$Delete, {
plotlyProxy("Plot1", session) %>%
plotlyProxyInvoke("deleteTraces")
})
}
shinyApp(ui, server)
有没有一种方法可以动态使用 plotlyProxyInvoke()添加和删除跟踪,而不必使用 addTrace()对跟踪进行硬编码?
答案 0 :(得分:1)
这是一种解决方法,可以在将data.frame传递到plotlyProxy()
之前通过过滤{.1}:
plot_ly