r语言绘制自己输入变量的动态交互式表格

要实现自己输入变量的动态交互式表格，可以使用shiny包中的输入控件和reactive变量。下面给出一个简单的例子：

首先需要加载shiny包：

library(shiny)

然后创建一个shiny应用：

ui <- fluidPage(
  titlePanel("动态交互式表格"),
  sidebarLayout(
    sidebarPanel(
      numericInput("nrows", "输入行数：", value = 5),
      numericInput("ncols", "输入列数：", value = 3),
      actionButton("create", "生成表格")
    ),
    mainPanel(
      DTOutput("table")
    )
  )
)

server <- function(input, output) {
  
  # 生成表格
  data <- reactive({
    matrix(rnorm(input$nrows * input$ncols), nrow = input$nrows, ncol = input$ncols)
  })
  
  output$table <- renderDT({
    datatable(data())
  })
  
  # 监听生成按钮
  observeEvent(input$create, {
    data()
  })
}

shinyApp(ui, server)

这个应用包含一个侧边栏，可以输入行数和列数，然后点击“生成表格”按钮，就会在主面板中显示相应的表格。当重新输入行数和列数并再次点击按钮时，表格会自动更新。

可以将这个应用保存为一个R文件，然后在RStudio中运行，或者使用`runApp()`函数在R控制台中运行。