ggplot 的 R Shiny Interactive 绘图标题

Question

我正在尝试创建能够显示交互式绘图标题的 Shiny 应用程序(取决于 x 轴的选择值)

非常简单的例子:

library(shiny)
library(DT)
library(ggplot2)

x <- as.numeric(1:1000000)
y <- as.numeric(1:1000000)
z <- as.numeric(1:1000000)
data <- data.frame(x,y, z)

shinyApp(
  ui = fluidPage(selectInput(inputId = "yaxis", 
                             label = "Y-axis",
                             choices = list("x","y","z"), 
                             selected = c("x")),
  dataTableOutput('tableId'),
                 plotOutput('plot1')),
  server = function(input, output) {    
    output$tableId = renderDataTable({
      datatable(data, options = list(pageLength = 10, lengthMenu=c(10,20,30)))
    })
    output$plot1 = renderPlot({
      filtered_data <- data[input$tableId_rows_all, ]
      ggplot(data=filtered_data, aes_string(x="x",y=input$yaxis)) + geom_line()  
    })
  }
)  

我试过这段代码:

ggtitle("Line plot of x vs",input$yaxis)

它不工作，情节没有显示，给我一个错误:

Warning: Error in ggtitle: unused argument (input$yaxis)

[重要]

使用 ggtitle(input$yaxis) 给了我一个交互式标题，但是我需要建立一个句子(例如:Line plot of x vs input $yaxis)，其中响应式参数 (input$yaxis) 是其中的一部分!

感谢您的帮助!

干杯

Answer 1

变化:

ggtitle("Line plot of x vs",input$yaxis)

到

ggtitle(paste("Line plot of x vs",input$yaxis))

正如错误提示的那样，您传递给 ggtitle 函数的参数太多，paste 将从您的两个输入中创建一个字符，中间有一个空格.您可以使用 sep =.

改变两者之间的间隔