Merge branch 'Mustufain-master'

Author: Ahmed Hussnain

r-shiny-app/server.R

@@ -1,5 +1,7 @@
 library(shiny)
 library(ggplot2)
+library(dplyr)
+
 
 freqfunc <- function(x, n){
   tail(sort(table(unlist(strsplit(as.character(x), ";")))), n)
@@ -27,4 +29,33 @@ function(input, output, session) {
       theme(legend.position="none")
   })
 
+  genderData <- reactive({
+    subset(so_data, Country == 'Pakistan', select=c("Country","Gender"))
+    
+  })
+  
+  output$plot2<-renderPlot({
+    
+    
+    feature_data = genderData()
+    colnames(feature_data) = c("Country","Gender")
+    
+    sel_df <- so_data %>%
+      filter(Country=='Pakistan') %>%
+      count(Gender) %>%
+      na.omit()
+    
+    #sel_df = as.data.frame(freqfunc(feature_data$question, 10))
+    
+    ggplot(data=sel_df, aes(x=sel_df$Gender, y=sel_df$n , fill = factor(sel_df$Gender))) +
+      ggtitle("Gender Diversity of Developers in Pakistan") +
+      geom_bar(stat="identity") +
+      xlab("Responndants choices") +
+      ylab("Number of Resonpses") +
+      theme(legend.position="none")
+  }
+  
+  
+  )
+  
 }

r-shiny-app/ui.R

@@ -9,6 +9,7 @@ fluidPage(
     width = 4
   ),
   mainPanel(
-    plotOutput('plot1',width = "100%", height = "300px")
+    plotOutput('plot1',width = "100%", height = "300px"),
+    plotOutput('plot2',width = "100%", height = "300px")
   )
 )