如何在 R Shiny 中生成此图形？

Posted 2023-02-16

【中文标题】如何在 R Shiny 中生成此图形？

【英文标题】：How can I produce this graphic in RShiny?

【发布时间】：2021-11-23 09:34:39

【问题描述】：

我想在 RShiny 中使用 renderPlot 在表格中创建下图（其中数字 10 代表患者的分数）

output$plot <- renderPlot( ... )

我用来创建图形的代码粘贴在下面：

require(plotrix)

greens <- colorRampPalette(c('green','yellow'))(50)
yellows <- colorRampPalette(c('yellow','orange'))(50)
oranges <- colorRampPalette(c('orange','red'))(50)
reds <- colorRampPalette(c('red','darkred'))(60)
the.colors <- c(greens, yellows, oranges, reds)

plot(0,0, type='n', axes=FALSE, xlab='', ylab='', xlim=c(0,210), ylim=c(0,5))
gradient.rect(0,1,210,2, col=the.colors, gradient='x')
text(25,0.75, 'None')
text(75, 0.75, 'Mild')
text(125, 0.75, 'Moderate')
text(180, 0.75, 'Severe')
text(105, 4.5, 'Your score is', cex=4)
text(105, 3, '10', cex=4)
lines(c(110,110),c(1,2), lwd=3)

【参考方案1】：

我猜你想要这个，根据病人，显示不同的分数。

我创建了一个假病人表，你可能有不同但相同的概念：

library(shiny)
require(plotrix)

df <- data.frame(
    patient = LETTERS[1:5],
    score = c(1, 3, 5, 10 , 15)
)

ui <- fluidPage(
    selectInput("choose_patient", "choose patient ID", choices = df$patient),
    plotOutput("p")
)

server <- function(input, output, session) 
  output$p <- renderPlot(
      req(input$choose_patient)
      score <- df$score[df$patient == input$choose_patient]
      greens <- colorRampPalette(c('green','yellow'))(50)
      yellows <- colorRampPalette(c('yellow','orange'))(50)
      oranges <- colorRampPalette(c('orange','red'))(50)
      reds <- colorRampPalette(c('red','darkred'))(60)
      the.colors <- c(greens, yellows, oranges, reds)
      
      plot(0,0, type='n', axes=FALSE, xlab='', ylab='', xlim=c(0,210), ylim=c(0,5))
      gradient.rect(0,1,210,2, col=the.colors, gradient='x')
      text(25,0.75, 'None')
      text(75, 0.75, 'Mild')
      text(125, 0.75, 'Moderate')
      text(180, 0.75, 'Severe')
      text(105, 4.5, paste0('Patient ', input$choose_patient, ' score is'), cex=4)
      text(105, 3, score, cex=4)
      lines(rep(score*10, 2),c(1,2), lwd=3)
  )


shinyApp(ui, server)

【讨论】：

感谢您的回复，尽管我意识到我的问题不够具体。请在此处查看我修改后的帖子：***.com/questions/69437160/…