Shiny 在R中使用Highcharter创建柱状图

使用highcharter在R中创建交互式柱状图时遇到问题。以下是我尝试使用的代码：

library(highcharter)
library(shiny)
library(shinydashboard)
library(extrafontdb)
testdata<-read.table("Matrix_Mean_sym.txt", header=TRUE)
testdata2<-t(testdata)
testdatase<-read.table("Matrix_SE_sym.txt", header=TRUE)
testdatase2<-t(testdatase)

ui<-dashboardPage(...
tabItem(tabName = "graph",
                           fluidRow(
                             box(title= "Gene Selection",
                                 selectizeInput(inputId = "gene", "Gene Symbol:", 
                                                choices = colnames(testdata2), 
                                                selected="CD8A", 
                                                options = NULL,
                                                multiple = FALSE)),
                             box(title= "Graph of Gene Expression",
                                 highchartOutput("genePlot"))
                           ))
server<- function(input, output) {
  output$genePlot <- {
   renderHighchart({
    require(input$gene)
  highchart() %>%
    hc_add_series(data = list(testdata2[, input$gene]), type="column") %>%
    hc_xAxis(categories = c('CD14+', 
                            'CD19+',
                            'CD4+',
                            'CD56+',
                            'CD8+',
                            'Neutrophils',
                            'nRBCs',
                            'WB')) %>%
    hc_title(text= "Graph of Gene Expression")      
})}

库（highcharter）
图书馆（闪亮）
图书馆（shinydashboard）
图书馆（extrafontdb）
testdata
testdata
看起来怎么样？你能提供一些你的数据样本吗？我使用的数据集是一个巨大的数据集。例如，列名是：CD14+CD19+CD4+CD56+CD8+中性粒细胞nRBCs WB。列名是我正在研究的特定基因。这些是我在绘制图表时试图调用的变量。我不熟悉堆栈溢出，所以我不知道如何链接数据集。这个答案已经解决了。当调用我的列数据时，我所要做的就是insert-drop=FALSE。