在Shiny中绘制响应式表格可以使用shiny包的renderTable函数和DT包的datatable函数。下面是一个示例代码，演示如何在Shiny中绘制响应式表格：

library(shiny)
library(DT)

# 定义 UI
ui <- fluidPage(
  titlePanel("响应式表格示例"),
  
  sidebarLayout(
    sidebarPanel(
      # 可以在这里添加一些输入控件，用于筛选数据
    ),
    
    mainPanel(
      # 在这里使用tableOutput函数显示表格
      tableOutput("mytable")
    )
  )
)

# 定义 Server
server <- function(input, output) {
  # 生成一个数据框作为示例
  data <- data.frame(
    Name = c("John", "Jane", "Michael", "Emily"),
    Age = c(25, 30, 35, 40),
    Gender = c("Male", "Female", "Male", "Female")
  )
  
  # 使用renderTable函数将数据框渲染成表格
  output$mytable <- renderTable({
    data
  })
  
  # 使用datatable函数将数据框渲染成可排序、可搜索的响应式表格
  # output$mytable <- renderDataTable({
  #   data
  # })
}

# 运行应用程序
shinyApp(ui = ui, server = server)

在上面的代码中，我们定义了一个简单的Shiny应用程序。在UI部分，我们使用tableOutput函数将表格显示在主面板中。在Server部分，我们使用renderTable函数将数据框渲染成表格并将其输出到tableOutput函数。

另外，如果你想要一个可排序和可搜索的表格，你可以使用datatable函数代替renderTable函数，并将tableOutput函数替换为DT::dataTableOutput函数。然后，你可以在datatable函数中设置一些选项来实现排序和搜索功能，例如options = list(searching = TRUE, ordering = TRUE)。

希望这个示例能帮助你编写在Shiny中绘制响应式表格的代码。