Highcharter折线图单分类X轴标签显示异常求助

当仅选择单个分类时，plot_data$Category返回的是单个字符串而非向量，Highcharter会将该字符串拆分为单个字符数组，导致X轴仅显示第一个字符'C'。

确保传递给hc_xAxis(categories = ...)的参数始终为向量格式，即使只有一个元素，可通过以下两种方式修复：

方法1：强制转换为向量 #

在hc_xAxis的categories参数中，用c()包裹plot_data$Category，强制将其转为向量：

hc_xAxis(categories = c(plot_data$Category),
          title = list(text = "分类"),
          labels = list(rotation = -45, align = "right"))

方法2：数据框中显式指定字符类型 #

创建plot_data时，将Category列指定为字符类型，避免自动转为因子或单个字符串：

plot_data <- data.frame(Category = as.character(selected_categories), 
                        Value = selected_values, 
                        stringsAsFactors = FALSE)

library(shiny)
library(highcharter)

ui <- fluidPage(
  selectInput("categories", "选择分类:", 
              choices = c("Category 1", "Category 2", "Category 3"),
              selected = c("Category 1", "Category 2", "Category 3"),
              multiple = TRUE),  # 允许多选
    highchartOutput("lineChart")
)

server <- function(input, output) {
   output$lineChart <- renderHighchart({
   # 示例数据
   categories <- c("Category 1", "Category 2", "Category 3")
    values <- c(5, 3, 8)  # 对应分类的数值

    # 根据选择的分类过滤数据
    selected_categories <- input$categories
    selected_values <- values[categories %in% selected_categories]

    # 创建绘图用的数据框
    plot_data <- data.frame(Category = selected_categories, 
                            Value = selected_values, 
                            stringsAsFactors = FALSE)

    # 生成折线图，确保X轴分类正确
    highchart() %>%
      hc_chart(type = "line") %>%
      hc_title(text = "折线图示例") %>%
      hc_xAxis(categories = c(plot_data$Category),  # 强制转为向量
                title = list(text = "分类"),
                labels = list(rotation = -45, align = "right")) %>%  # 旋转标签提升可读性
      hc_yAxis(title = list(text = "数值")) %>%
      hc_add_series(name = "示例数据", data = plot_data$Value)
   })
 }

 shinyApp(ui, server)

内容的提问来源于stack exchange，提问作者Ashwani Saxena