是的,阅读?dygraphs::dyLegend
。的描述labelsDiv
论证说:
在外部 div 中显示数据标签,而不是在图表上。该值应该是一个 div 元素 id。
这很容易在shiny当然,但不是在上下文中rstudio.
例如,在闪亮ui.R
文件中,我添加了这一行:
box(title = "Legend", textOutput("legendDivID"))
这会创建一个 HTML<div>
带有 ID 的标签legendDivID
。
然后,在闪亮server.R
文件中,我使用相同的 IDdygraphs params:
dygraph(...) %>% dyLegend(labelsDiv = "legendDivID")
它就像一个魅力。
对于您的情况,结果如下:
和代码(只需创建app.R
RStudio 中的脚本并通过调用运行它shiny::runApp()
):
## app.R ##
library(shinydashboard)
library(shiny)
library(dygraphs)
ui <- dashboardPage(
dashboardHeader(title = "Page title"),
dashboardSidebar(sidebarMenu(menuItem("tab title", tabName = "tab", icon = icon("globe")))),
dashboardBody(
tabItems(
tabItem(tabName = "tab",
fluidRow(
box(dygraphOutput("graph"), width=9),
box(textOutput("legendDivID"), title = "Legend", collapsible = TRUE, width=3)
)
)
)
)
)
server <- function(input, output) {
library(archivist)
library(dplyr)
seriesReactive <- loadFromGithubRepo( "db914a43536d4d3f00cf3df8bf236b4a", user= "MarcinKosinski", repo="Museum", value = TRUE)
output$graph <- renderDygraph({
withProgress(message = "Loading...", {
dygraph(seriesReactive, main = "Dzienna proporcja kliknięć do odsłon dla danych struktur", ylab = "Proporcja") %>%
dyRangeSelector() %>%
dyLegend(labelsDiv = "legendDivID")
})
})
}
shinyApp(ui, server)