小编Hub*_*rtL的帖子

有没有办法在ggplotly对象中自定义hoverinfo？

例如,

p <- ggplot(mtcars, aes(x = disp, y= am, color = as.factor(cyl)))+geom_point()

ggplotly(p)

这里的悬停信息框包含三个变量:disp,am和factor(cyl).如何在悬停信息框中包含更多变量或排除现有变量？

谢谢!

如果有人可以提供帮助,我正在努力解决这个问题.我必须根据用户的tabpanel选择显示/隐藏Dashboardsidebar上的一些元素.以下是UI代码的一部分,可让您了解我的应用程序的结构.我需要在tabpPanel 2上显示fourthoutput,Fifthout和download按钮.

ui <- dashboardPage(
  dashboardHeader(title = "My App"),
  dashboardSidebar(
    width = 350,
    fileInput(
      'file1',
      'Upload Items List',
      accept = c('text/csv',
                 'text/comma-separated-values,text/plain',
                 '.csv')
    ),
    fluidRow(column(
      width = 2,
      offset = 1,
      actionButton("goButton", "Submit")
    )),
    br(),
    br(),
    uiOutput("FirstOutput"),
    uiOutput("SecondOutput"),
    uiOutput("ThirdOutput"),
    uiOutput("FourthOutput"),
    uiOutput("FifthOutput"),

      fluidRow(column(
        width = 2,
        offset = 1,
        downloadButton('downloadData', 'Download')))
  ),
  dashboardBody(
    tags$style(
      type = "text/css",
      ".shiny-output-error { visibility: hidden; }",
      ".shiny-output-error:before { visibility: hidden; }"
    ),

    tabsetPanel(
      type = "tabs",

      tabPanel("1", fluidRow(box(
        plotlyOutput("pie1")
      ),
      box(
        plotlyOutput("barplot1")
      )),
      fluidRow(box(
        plotlyOutput(outputId …

我使用给定的命令为我的数据绘制了框图,并尝试在其中写入文本(p值).

使用:

boxplot(data,ylab = prop_index[i])
text(1:2 - 0.4, data[,1]/2, paste("p-value=",p_val)) 

我应用了"text"命令但是注意已经出现在图像上.请告诉我应用此命令的适当方法