[英]How to fix the error "file must be a character string or connection" when running my Shiny app in R?
[英]How to fix the hoverinfo error in my shiny app?
我使用ggplot2開發了一個閃亮的應用程序,並進行了繪圖,但是,對於我添加為上下限的兩條水平線,懸停文本沒有正確顯示。 我想隱藏這兩行的懸停文字。 有人知道如何實現嗎?
我找到了一種解決方案,但無法解決問題
禁用特定繪圖層(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
傳遞給ggplot
函數的aes
:
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)))
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.