相关疑难解决方法(0)

我有一个改编自网络的小示例应用程序：

library( shiny )
library( shinyWidgets )

  ui <- fluidPage(
    
    tags$br(),
    
    noUiSliderInput(
      inputId = "noui2", label = "Slider vertical:",
      min = 0, max = 1000, step = 50,
      value = c(100, 400), margin = 100,
      orientation = "vertical",
      width = "100px", height = "300px"
    ),
    verbatimTextOutput(outputId = "res2")
    
  )
  
  server <- function(input, output, session) {
    
    output$res2 <- renderPrint(input$noui2)
    
  }
  
  shinyApp(ui, server)

然后我加载图像作为背景，如下所示：

我想知道是否有一种方法可以对图形边框中 100 到 400 之间的特定区域高度（由滑块给出）进行着色，如下所示：

当灰度图像由矩阵表示时,矩阵的每个元素确定相应像素的强度.为方便起见,大多数当前的数字文件使用0之间的整数(表示黑色,最小强度的颜色)和255(表示白色,最大强度),总共256 = 2 ^ 8个不同的灰度级.

有没有办法在R中获得灰度图像的像素矩阵,其像素值的范围是0到255？

知道我是否可以在R中调整首选维度(例如,$ 28\times 28 $)中的图像,然后将它们转换为像素矩阵(其元素范围从0到255)也会很有帮助？

如果原始图像是RGB但我想要灰度矩阵会发生什么？