R Shiny - 使用 for 循环提取矩阵中的反对角元素

Question

我正在尝试创建一个 R Shiny 应用程序，它可以读取矩阵输入并提取反对角线元素，但是，我无法弄清楚为什么代码不能按我想要的方式工作。

下面是示例代码：

library(shinyMatrix)
library(shiny)
library(shinydashboard)
library(shinyWidgets)
library(shinyjs)
library(rhandsontable)
library(matrixStats)

ui =
  dashboardPage(
    dashboardHeader(disable = TRUE),
    dashboardSidebar(disable = TRUE),
    dashboardBody(rHandsontableOutput("input1"),
                  br(),
                  rHandsontableOutput("input2"),
                  br(),
                  rHandsontableOutput("results")))


server = function (input, output, session) {

  output$input1 = renderRHandsontable({

    MAT = matrix(as.numeric(''), nrow = 3, ncol = 3,
                 dimnames = list(paste(1:3), paste(1:3)))

    rhandsontable(MAT, width = "100%", height = "100%") %>%
      hot_col(col = c(1:3), valign = 'htCenter', format = "0,0")


  })

  row_input <- reactive({
    req(input$input1)

    my_input_matrix <- as.matrix(hot_to_r(input$input1))
    my_input_row<- as.matrix(hot_to_r(input$input1))

    for(i in 1:3) {

      my_input_row[i] = sum(my_input_matrix[,i])


    }


    row_input = matrix(my_input_row, nrow = 1, ncol = 3,
                        dimnames = list("Rowname", paste(1:3)))
    row_input
  })




  output$input2 <- renderRHandsontable({

    rhandsontable(row_input())

  })


table <- reactive({ 

  my_input_matrix <- as.data.frame(hot_to_r(input$input1))
  my_input_row <- as.data.frame(hot_to_r(input$input2))
  my_table <- as.data.frame(hot_to_r(input$input1),
                            hot_to_r(input$input2))


  for(i in 1:3) {
    for(j in 3:1) {

      my_table[,1] <- my_input_matrix[j,i] 
      my_table[,2] <- my_input_matrix[i,j]

    }
  }


  table = data.frame("A" = my_table[,1],
                     "B" = my_table[,2],
                     stringsAsFactors = FALSE,
                     check.names = FALSE)



  table
})

output$results = renderRHandsontable({

  rhandsontable(table()) 

})

}

shinyApp(ui, server)

下面是示例输入和输出：

第一个table是输入矩阵

2nd table 是一个 1 行输出矩阵，它显示第一个 table 的每一列的总和（不确定这是否会导致问题，所以我就把它放在那里)

3rd table 是代码

产生的输出 table

这是问题所在，我希望第 3 个 table 显示 A 列中的反对角线元素 7-5-3 和 B 列中的 "reverse anti-diagonal" 元素 3-5-7 来自第一个 table 像下面而不是上面的（3-3-3- 和 7-7-7）。

请帮忙！谢谢！

Answer 1

通过将代码更改为以下内容解决了问题：

for(i in 1:3) {
    for(j in 3:1) {

      my_table[,1] <- rev(my_input_matrix[i+(j-1)*3])[i] 
      my_table[,2] <- my_input_matrix[i+(j-1)*3][i]

    }
  }

R Shiny - 使用 for 循环提取矩阵中的反对角元素

R Shiny - Extracting Anti-Diagonal elements in matrix using for-loops

for-loop

matrix

diagonal

shiny