使用shiny包制作自动化树状图
代码
library(shiny)
library(ggplot2)
library(dplyr)
library(treemapify)
ui <- fluidPage(
titlePanel("树状图"),
sidebarLayout(
sidebarPanel(
fileInput("file", "选择一个.csv文件", accept = ".csv"),
selectInput("fill", "选择分类变量", choices = c(), multiple = FALSE),
selectInput("area", "选择每个水平的数量", choices = c(), multiple = FALSE),
selectInput("label", "选择标签", choices = c(), multiple = FALSE)
),
mainPanel(
plotOutput("treemap")
)
)
)
server <- function(input, output, session) {
# 数据导入
data <- reactive({
if (is.null(input$file)) {
NULL
} else {
read.csv(input$file$datapath, header = TRUE, stringsAsFactors = FALSE)
}
})
# 下拉框更新
observe({
if (!is.null(data())) {
updateSelectInput(session, "fill", choices = names(data()))
updateSelectInput(session, "area", choices = names(data()))
updateSelectInput(session, "label", choices = names(data()))
}
})
# 编制绘图代码
output$treemap <- renderPlot({
if (is.null(data())) return(NULL)
ggplot(data(), aes(x = "", y = "",
fill = !!sym(input$fill),
area = !!sym(input$area),
label = !!sym(input$label))) +
geom_treemap() +
geom_treemap_text() +
theme(legend.position = "none")
})
}
shinyApp(ui, server)
报错
```r
Listening on http://127.0.0.1:4086
Warning in geom_treemap() :
All aesthetics have length 1, but the data has 22 rows.
ℹ Did you mean to use `annotate()`?
Warning in geom_treemap_text() :
All aesthetics have length 1, but the data has 22 rows.
ℹ Did you mean to use `annotate()`?
Warning: Error in geom_treemap: Problem while setting up geom.
ℹ Error occurred in the 1st layer.
Caused by error in `compute_geom_1()`:
! `geom_treemap()` requires the following missing aesthetics: area.
196: ```
