我正在尝试使用 ggplot2 multiplot() 函数使我的 R 闪亮应用程序的选项卡显示多个图。我使用的所有其他库都在我的 global.R 中，但是 ggplot2 库肯定是导入的，所以我不明白为什么会出现这个错误：
错误：找不到函数 multiplot。
在多图选项卡中。
现在我只是想调用 multiplot() 函数，所以我只是绘制了两次相同的图（multiplot(p,p)）。
以下是我的代码的相关部分：
用户界面
dataset <- list('Upload a file'=c(1))
shinyUI(pageWithSidebar(
sidebarPanel(
fileInput('file', 'Data file'),
radioButtons('format', 'Format', c('CSV', 'TSV')),
conditionalPanel(condition = "input.tsp == 'sort'",
checkboxInput(inputId = "pageable", label = "Make table pageable"),
conditionalPanel("input.pageable==true",
numericInput(inputId = "pagesize",
label = "Entries per page",10))
),
conditionalPanel(condition = "input.tsp == 'multi' ",
selectInput('x', 'X', names(dataset)),
selectInput('y', 'Y', names(dataset), multiple=T),
selectInput('color', 'Color', c('None', names(dataset))),
checkboxInput('jitter', 'Jitter'),
checkboxInput('smooth', 'Smooth'),
selectInput('facet_row', 'Facet Row', c(None='.', names(dataset))),
selectInput('facet_col', 'Facet Column', c(None='.', names(dataset)))
)
),
mainPanel(
tabsetPanel(
tabPanel("Sortable Table", htmlOutput("gvisTable"),value="sort"),
tabPanel("Multiplot", plotOutput('plotMulti'), value="multi"),
id="tsp" #id of tab
)
)
)
这是我的服务器。R：
library(reshape2)
library(googleVis)
library(ggplot2)
shinyServer(function(input, output, session) {
#-----------------------------------------------------------
# Dataview Tab Inputs
#-----------------------------------------------------------
data <- reactive({
if (is.null(input$file))
return(NULL)
else if (identical(input$format, 'CSV'))
return(read.csv(input$file$datapath))
else
return(read.delim(input$file$datapath))
})
observe({
df <- data()
str(names(df))
if (!is.null(df)) {
updateSelectInput(session, 'x', choices = names(df))
updateSelectInput(session, 'y', choices = names(df))
updateSelectInput(session, 'color', choices = c('None', names(df)))
updateSelectInput(session, 'facet_row', choices = c(None='.', names(df)))
updateSelectInput(session, 'facet_col', choices = c(None='.', names(df)))
}
})
myOptions <- reactive({
list(
page=ifelse(input$pageable==TRUE,'enable','disable'),
pageSize=input$pagesize,
width=1000
)
})
output$gvisTable <- renderGvis( {
if (is.null(data()))
return(NULL)
gvisTable(data(), options=myOptions())
})
#-----------------------------------------------------------
# Graphs
#-----------------------------------------------------------
output$plotMulti <- renderPlot({
if (is.null(data()))
return(NULL)
temp <- input$x
p <- ggplot(data(), aes_string(x=temp, y=input$y), environment = environment())
p <- p + geom_bar()
if (input$smooth)
p <- p + geom_smooth()
if (input$color != 'None')
p <- p + aes_string(color=input$color)
facets <- paste(input$facet_row, '~', input$facet_col)
if (facets != '. ~ .')
p <- p + facet_grid(facets)
if (input$jitter)
p <- p + geom_jitter()
multiplot(p, p)
})
})