r - 如何修复闪亮应用程序中的 hoverinfo 错误?
问题描述
我已经使用 ggplot2 和 plotly 开发了一个闪亮的应用程序,但是,对于我添加为上限和下限的两条水平线,悬停文本没有正确显示。我想隐藏这两行的悬停文本。有人知道怎么实现吗?</p>
我找到了一个解决方案,但它不适用于
plotly 的特定图层(geom)的闪亮禁用悬停信息
library(shiny)
shinyServer(
function(input,output,session){
reactivelab <- reactive({
gg <-labn %>% filter(PARCAT2 == input$Group & LBTEST ==
input$Par & SUBJID == input$ID) })
output$labpot <- renderPlotly({
req(nrow(reactivelab()) > 0)
q <- ggplot(data=reactivelab(),aes(x=ADY, y=AVAL))+
geom_point()+geom_line()+
geom_hline(aes(yintercept=ANRLO),linetype="longdash")+
geom_hline(aes(yintercept=ANRHI),linetype="longdash")+
ylab("Lab Standard Value") + xlab("Lab Test Day")
mm <- style(q, text = paste("Lab Parameter:", reactivelab()$PARAM,
"<br>Lab Test Day:", reactivelab()$ADY,
"<br>Lab Standard Value:", reactivelab()$AVAL,
"<br>Normal Range Upper Limit:", reactivelab()$ANRHI,
"<br>Normal Range Lower Limit:", reactivelab()$ANRLO
), hoverinfo = "text")})
})
解决方案
style
您可以将text
美学传递给aes
函数ggplot
,而不是使用:
ggplot(data=reactivelab(),
aes(x=ADY, y=AVAL,
text = paste("Lab Parameter:", PARAM,
"<br>Lab Test Day:", ADY,
"<br>Lab Standard Value:", AVAL,
"<br>Normal Range Upper Limit:", ANRHI,
"<br>Normal Range Lower Limit:", ANRLO)))
推荐阅读
- debian - Apache2 Ubuntu(Debian 风格的 VHost conf) - 如何更改默认服务器?
- java - 我的 jar 文件中的资源路径错误
- google-apps-script - Google Apps 脚本 - 表格 - 条件格式 - X = 突出显示
- css - 第一个孩子没有选择其类型中的第一个
- javascript - 为什么 Flow 不能用 document.getElementById(...) 调用 ReactDOM.render
- python - PyQt5 QThread 不工作,gui 仍然冻结
- python - 在Python中为字典中的列表项赋值
- google-apps-script - 谷歌脚本功能不做任何事情(谷歌脚本绑定到谷歌表格)
- python - 如何在 django-mptt 中显示一定数量的级别?
- java - 构建后从文件自定义密码策略