R Shiny 反应式Y轴标签水平显示设置求助

我在R Shiny中编写了如下代码，用于生成带有反应式标签的水平条形图。当前Y轴标签（用户输入的选项名称）呈垂直显示，我需要将其改为水平显示：

output$colm <- renderPlot({
  barplot( as.numeric(input$vars), 
           beside = TRUE, 
           main = "Gap Analysis", 
           xlab = "Mean Difference", 
           horiz = TRUE, 
           xlim = c(-1, 1), 
           ylim = c(0, 5), 
           ylab = names(gapChoices[input$vars == gapChoices]), 
           col = cols, 
           las = 1)
})

先帮你理清楚问题所在：你代码里的las = 1是用来控制轴刻度标签的方向（让它水平显示），但它管不到Y轴的标题标签（就是你用ylab设置的那个选项名称）。在水平条形图模式下，Y轴标题默认是垂直排列的，所以得单独调整它的显示方式。

具体解决方案 #

我们可以把barplot()里的ylab参数去掉，换成在绘图之后用title()函数来添加Y轴标题，通过srt = 0把文本设置成水平显示，还能通过line参数调整标题和Y轴的距离：

output$colm <- renderPlot({
  barplot( as.numeric(input$vars), 
           beside = TRUE, 
           main = "Gap Analysis", 
           xlab = "Mean Difference", 
           horiz = TRUE, 
           xlim = c(-1, 1), 
           ylim = c(0, 5), 
           col = cols, 
           las = 1) # 这个参数继续保留，确保刻度标签水平
  
  # 添加水平的Y轴标题
  title(ylab = names(gapChoices[input$vars == gapChoices]), 
        srt = 0, # 0度就是水平方向
        line = 2.5, # 可以根据你的需求调整这个数值，控制标题和轴的距离
        adj = 0.5) # 让标题居中对齐
})

额外补充 #

如果你其实是想让Y轴的刻度标签（而不是标题）显示成你的选项名称并且水平排列，那可能你之前的逻辑有点小问题——因为现在barplot的Y轴刻度默认是数字。这种情况下，你可以给barplot()加上names.arg参数来设置自定义刻度标签，比如：

barplot( as.numeric(input$vars), 
         # 其他参数不变
         names.arg = names(gapChoices[input$vars == gapChoices]), 
         las = 1)

这样Y轴的刻度标签就是你的选项名称，再配合las = 1就能保持水平显示啦。

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