[R閃亮 - 如何通過checkboxGroupInput

過濾

我已經設置了以下閃亮代碼：[R閃亮 - 如何通過checkboxGroupInput

global.R：

library(shiny) 
library(gapminder) 
library(tidyverse) 
library(scales)

ui.R：

fluidPage(
titlePanel("Gapminder Hierarchical Clustering of Countries"), 
sidebarLayout(
    sidebarPanel(
     sliderInput("numCluster", "Choose number of clusters:", 2, 6, 2), 
     checkboxGroupInput("ContinentSelect", "Select which continents to include in the cluster analysis:", 
              choices = levels(gapminder$continent), selected = levels(gapminder$continent)), 
     sliderInput("numYear", "Select years to include in the cluster analysis:", min(gapminder$year), max(gapminder$year), 
           c(min(gapminder$year), max(gapminder$year)), step = 5, ticks = FALSE, sep = "") 
), 
mainPanel(
plotOutput("Chart"), 
br(),br(), 
tableOutput("SummaryClusters") 
) 
) 
)

而且server.R ：

function(input, output){ 

gapcluster <- function(df, numCluster){ 
    df_scaled <- df %>% mutate(scale_lifeExp = scale(lifeExp), 
                 scale_pop = scale(pop), 
                 scale_gdpPercap = scale(gdpPercap)) 
    gapclusters <- df_scaled[,c("scale_lifeExp", "scale_pop", "scale_gdpPercap")] %>% dist() %>% hclust() 
    Clustercut <- cutree(gapclusters, numCluster) 
    return(Clustercut) 
} 

#Creating a data frame based on inputs 
filtered_gap <- reactive({ #If no continents are selected 
    if (is.null(input$ContinentSelect)) { 
     return(NULL) 
    }  

    gapminder %>% 
     filter(year >= input$numYear[1], 
       year <= input$numYear[2], 
        continent == input$ContinentSelect) 
}) 

filtered_gap2 <- reactive({ 
    filtered_gap() %>% mutate(cluster_group = gapcluster(filtered_gap(), input$numCluster), 
                    country = reorder(country, -1 * pop)) %>% 
     arrange(year, country) 
}) 

SummaryTable <- reactive({ 
    if (is.null(input$ContinentSelect)) { 
     return(NULL) 
    } 

    filtered_gap2() %>% group_by(cluster_group) %>% summarise(`Number of countries` = n(), 
                                 `Life expectancy` = mean(lifeExp), 
                                 `Population size` = prettyNum(mean(pop), big.mark = ","), 
                                 `GDP per capita` = prettyNum(mean(gdpPercap), big.mark = ",")) %>% 
     rename(`Cluster Group` = cluster_group) 
}) 

output$Chart <- renderPlot({ 
    if (is.null(filtered_gap2())) { 
     return() 
    } 

    filtered_gap2() %>% ggplot(aes(x = gdpPercap, y = lifeExp, fill = country)) + 
     scale_fill_manual(values = country_colors) + 
     facet_wrap(~ cluster_group) + 
     geom_point(aes(size = pop), pch = 21, show.legend = FALSE) + 
     scale_x_log10(limits = c(230, 115000), labels = comma) + 
     scale_size_continuous(range = c(1,40)) + ylim(c(20, 87)) + 
     labs(x = "GDP per capita", y = "Life Expectancy") 
}) 

output$SummaryClusters <- renderTable({ 
    SummaryTable() 
}) 
}

在各大洲如何處理問題正在被過濾。在默認設置中，我們可以在表格中看到共有344個國家。但是如果我不檢查大洋洲，這個數字會上升（？）到420個國家。到底是怎麼回事？我很確定這個問題與server.R文件中的filter(continent == input$ContinentSelect)行有關，但我無法弄清楚如何解決它。

來源

2016-11-24 Phil

它在我將filter(continent == input$ContinentSelect)更改爲filter(continent %in% input$ContinentSelect)時有效。菜鳥的錯誤。

來源

2016-11-24 16:17:48 Phil

[R閃亮 - 如何通過checkboxGroupInput

回答

相關問題