R 重叠图像和输出值

我想在我的应用程序中创建一个有图像的页面，在图像的特定坐标中，我可以添加数字输出或文本输出。您可以在下图中找到一个示例（右侧的轴）

---

您能告诉我是否有办法创建类似的内容吗？

您可以使用

plot

函数使用

text

函数来打印光栅文件和注释。请参阅下面的代码：

library(png) 
library(shiny)
library(RCurl)

# Define UI for application that draws a histogram
ui <-fluidPage(
  titlePanel("Annotated plot output"),

  fluidRow(

           plotOutput("plot1")
  )
)

# Define server logic required to draw a histogram

server <- function(input, output, session) {
  output$plot1 <- renderPlot({
    myurl <- "https://i.stack.imgur.com/GcpUb.png"
    ima <- readPNG(getURLContent(myurl))
    op <- par(mar = rep(0, 4))
    plot(NULL, xlim = c(0, 100), ylim = c(0, 100), xaxs = "i", yaxs = "i")
    rasterImage(ima, 0, 0, 100, 100, interpolate = TRUE)
    text(50, 50, "Custom Label1", col = "red", cex = 2)
    text(25, 25, "Custom Label2", col = "red", cex = 2)
    par(op)
  })
}

# Run the application 
shinyApp(ui = ui, server = server)

库（png）
图书馆（闪亮）
图书馆（RCurl）
#为绘制直方图的应用程序定义UI
ui有趣的功能。欢迎来到SO！因此，编程是非常重要的，因此，人们更倾向于提出可重复的问题。为此，拥有一个基本的闪亮应用程序将有助于启动您想要做的事情、您尝试过的事情以及失败（或行为不当）的原因。参考文献：，和。（没有其他问题，你的问题实际上是“推荐或查找一本书、工具、软件库”，仅此而已。）我理解，因为我没有示例，但我要求的是一个可以解决我的问题的特定函数。我可以将其移至主题之外。这有助于显示你的努力。您的问题似乎接近“推荐软件库”或“为我编写此代码”；前者是离题的，后者在技术上是可以的，但取决于你提问的方式和话题的有趣程度，往往会引发投票。也许你不需要问“如何在png中添加数字”，而是要研究“如何在绘图下放置图形”，然后只需使用
plot
和
text
。你的问题的核心似乎是如何在R中注释图像。类似这样的问题可能会有所帮助：谢谢你的输入，我会尝试你的建议，以防我会用我的测试更新这篇文章。