闪亮 - 悬停时没有文字与情节

用户3206440

我正在尝试在 Shiny 应用程序中绘制一个简单的条形图。

全球

library(shiny)
library(ggplot2)
library(plotly)
dat <- data.frame(
  time = factor(c("Lunch","Dinner"), levels=c("Lunch","Dinner")),
  total_bill = c(14.89, 17.23)
)

用户界面

ui <- navbarPage(title = "My Shiny App",
                 tabPanel(title = "App",
                          pageWithSidebar(

                            headerPanel("Shiny App"),

                            sidebarPanel(
                              actionButton(inputId = "clicks",
                                           label = "Click me")
                            ),
                            mainPanel("Main Panel",
                                      plotlyOutput("norm"),
                                      actionButton("renorm", "Resample")
                                      )
                          )         
                 ),
                 tabPanel(title = "Tab2",
                          plotOutput("unif"),
                          actionButton("reunif", "Resample")
                 ),
                 tabPanel(title = "Tab3",
                          plotOutput("chisq"),
                          actionButton("rechisq", "Resample")
                 )             
)

服务器

server <- function(input, output) {

  output$norm <- renderPlotly({
    ggplot(data=dat, aes(x=time, y=total_bill, fill=time)) +
      geom_bar(stat="identity") + 
      guides(fill=FALSE)
  })

这使我在Shiny应用程序中的绘图如下。我对此有三个问题。

  1. 当我将图悬停时,我想查看条形值,但当前未显示
  2. 即使设置为FALSE通过 ggplot ,图例仍会显示
  3. 我需要先用最大价值的酒吧订购酒吧 - 即。Dinner先然后Lunch

在此处输入图片说明

迈克·怀斯

以下这些小的修改完成了所有这三件事。

  • 情节上有一个错误。这是一个有点神秘的解决方法。

  • 由于某种原因,plotly 覆盖了guide(fill=FALSE),我不知道为什么真的,plotly 文档不是很广泛。这是摆脱与 plotly 一起使用的指南的另一种方法。

  • ggplot 按因子在其水平上出现的顺序在 x 轴上绘制因子。所以你必须按照你需要的方式对它们的级别进行排序,我在这里做的。

无论如何,这是代码

   library(shiny)
   library(ggplot2)
   library(plotly)
   dat <- data.frame(
      time = factor(c("Lunch","Dinner"), levels=c("Lunch","Dinner")),
      total_bill = c(14.89, 17.23)
    )

    ui <- navbarPage(title = "My Shiny App",
                     tabPanel(title = "App",
                              pageWithSidebar(

                                headerPanel("Shiny App"),

                                sidebarPanel(
                                  actionButton(inputId = "clicks",
                                               label = "Click me")
                                ),
                                mainPanel("Main Panel",
                                          plotlyOutput("norm"),
                                          actionButton("renorm", "Resample")
                                )
                              )         
                     ),
                     tabPanel(title = "Tab2",
                              plotOutput("unif"),
                              actionButton("reunif", "Resample")
                     ),
                     tabPanel(title = "Tab3",
                              plotOutput("chisq"),
                              actionButton("rechisq", "Resample")
                     )             
    )

    server <- function(input, output) {

      output$norm <- renderPlotly({
        # reorder the levels
        oldlevels <- levels(dat$time)
        neworder <- order(dat$total_bill,decreasing=T)
        dat$time <- factor(dat$time,levels=oldlevels[neworder])

        # get the plotly into a temp var
        gplt <- ggplotly(ggplot(data=dat, aes(x=time, y=total_bill, fill=time)) +
          geom_bar(stat="identity") + 
            theme(legend.position="none"))

        for (i in 1:length(gplt$x$data)){
          gplt$x$data[[i]]$text <- c(gplt$x$data[[i]]$text, "") 
        }


gplt
  })

}

shinyApp(ui,server)

产生:

在此处输入图片说明

本文收集自互联网,转载请注明来源。

如有侵权,请联系[email protected] 删除。

编辑于
0

我来说两句

0条评论
登录后参与评论

相关文章

来自分类Dev

闪亮的情节没有出现

来自分类Dev

R闪亮的情节布局UI

来自分类Dev

闪亮:情节的动态高度调整

来自分类Dev

R闪亮的情节布局UI

来自分类Dev

闪亮的情节条形图

来自分类Dev

R-闪亮包装-将情节发送到闪亮

来自分类Dev

闪亮的流体行没有效果

来自分类Dev

闪亮的对多个 tabsetpanels 没有响应

来自分类Dev

仅在启动并且单击操作按钮时刷新闪亮的情节

来自分类Dev

带有逗号的闪亮renderTable

来自分类Dev

拥有多个闪亮帐户

来自分类Dev

rCharts和highcharts具有闪亮的情节无法正确更新

来自分类Dev

如何使用闪亮的:renderUI 和闪亮的:UiOutput 产生带有闪亮模块的条件输出

来自分类Dev

闪亮的情节GoogleMaps Internet Explorer与Chrome

来自分类Dev

不返回R闪亮的情节和表格

来自分类Dev

闪亮的反跳不会呈现初始情节

来自分类Dev

用部分进度更新闪亮的情节

来自分类Dev

鼠标悬停时Rstudio闪亮的ggvis工具提示

来自分类Dev

鼠标悬停在阴暗而闪亮的位置

来自分类Dev

闪亮的悬停仅显示变量值

来自分类Dev

为什么没有在闪亮仪表板中开始计算闪亮的反应值

来自分类Dev

刷新时闪亮的reactUI重置值

来自分类Dev

开始闪亮时发出警报消息

来自分类Dev

闪亮:在更改inFile时更新selectinput

来自分类Dev

闪亮的密码在部署时导致断开连接

来自分类Dev

如何在闪亮的情节中改变情节的背景色?

来自分类Dev

带有rCharts的R闪亮应用

来自分类Dev

有条件的RenderUI R闪亮

来自分类Dev

具有动态高度的闪亮renderPlot