3

On the server.R of my shiny app I basically have this: the library fmsb, A data set and a radar chart, I can view the chart in plot viewer in R studio, but how do I show the display of the chart in UI.R? Thank you for any and all help.

library(fmsb)

# Create data: note in High school for several students
set.seed(99)
data=as.data.frame(matrix( sample( 0:20 , 15 , replace=F) , ncol=5))
colnames(data)=c("math" , "english" , "biology" , "music" , "R-coding" )
rownames(data)=paste("mister" , letters[1:3] , sep="-")

# To use the fmsb package, I have to add 2 lines to the dataframe: the max and min of each topic to show on the plot!
data=rbind(rep(20,5) , rep(0,5) , data)

colors_border=c( rgb(0.2,0.5,0.5,0.9), rgb(0.8,0.2,0.5,0.9) ,     rgb(0.7,0.5,0.1,0.9) )
colors_in=c( rgb(0.2,0.5,0.5,0.4), rgb(0.8,0.2,0.5,0.4) , rgb(0.7,0.5,0.1,0.4) )
radarchart( data  , axistype=1 , 
#custom polygon
pcol=colors_border , pfcol=colors_in , plwd=4 , plty=1,
#custom the grid
cglcol="grey", cglty=1, axislabcol="grey", caxislabels=seq(0,20,5), cglwd=0.8,
#custom labels
vlcex=0.8 
)
legend(x=0.7, y=1, legend = rownames(data[-c(1,2),]), bty = "n", pch=20 , col=colors_in , text.col = "grey", cex=1.2, pt.cex=3)

I am new to R and Shiny so I am unsure of what to use in the final box:

library(shiny)
library(shinydashboard)
library(fmsb)
#for the geoschool selection screen
df_geo_13_14 <- data.frame(geometry.annual.report.december.2014.may.2015.clean)
geo_school <- df_geo_13_14$School.Name
geo_list <- as.list(geo_school)
#end selection screen

dashboardPage(
dashboardHeader(title = "Working on it"),
dashboardSidebar(),
dashboardBody(
# Boxes need to be put in a row (or column)

fluidRow(
  box(  
    selectInput("School","Please select the schools you want to compare",
                    choices = c("Elementary", "Middle & High"))),

  box(
    title = "Controls",
    sliderInput("schoolSize", "Please filter the schools based upon student population:",
                min=2, max = 800, value = c(100, 200), step = 20)
  )
),
fluidRow(
  box(
    selectizeInput("geo_13_14", "Select the school, sos my wording:", choices = geo_school )
  ),
  box(
    ??????????How do I display the radar chart?????????
      )

)
)
)
0

1 Answer 1

5

I don't think you have provided the data necessary to get the user input sections working, so I have commented that out.

I think you just need to

  • put the radar plot code in a renderPlot within the shinyServer section
  • add a plotOutput into the ui section

This works for me:

library(shiny)
library(shinydashboard)
library(fmsb)

ui <- shinyUI(dashboardPage(
  dashboardHeader(title = "Working on it"),
  dashboardSidebar(),
  dashboardBody(# Boxes need to be put in a row (or column)

    # fluidRow(
    #   box(
    #     selectInput(
    #       "School",
    #       "Please select the schools you want to compare",
    #       choices = c("Elementary", "Middle & High")
    #     )
    #   ),
    #
    #   box(
    #     title = "Controls",
    #     sliderInput(
    #       "schoolSize",
    #       "Please filter the schools based upon student population:",
    #       min = 2,
    #       max = 800,
    #       value = c(100, 200),
    #       step = 20
    #     )
    #   )
    # ),
    fluidRow(# box(
      #   selectizeInput("geo_13_14",
      #                  "Select the school, sos my wording:",
      #                  choices = geo_school)
      # ),
      box(
        plotOutput('radarPlot')
      )))
))

server <- shinyServer(function(input, output) {
  output$radarPlot <- renderPlot({
    # Create data: note in High school for several students
    set.seed(99)
    data = as.data.frame(matrix(sample(0:20 , 15 , replace = F) , ncol = 5))
    colnames(data) = c("math" , "english" , "biology" , "music" , "R-coding")
    rownames(data) = paste("mister" , letters[1:3] , sep = "-")

    # To use the fmsb package, I have to add 2 lines to the dataframe: the max and min of each topic to show on the plot!
    data = rbind(rep(20, 5) , rep(0, 5) , data)

    colors_border = c(rgb(0.2, 0.5, 0.5, 0.9),
                      rgb(0.8, 0.2, 0.5, 0.9) ,
                      rgb(0.7, 0.5, 0.1, 0.9))
    colors_in = c(rgb(0.2, 0.5, 0.5, 0.4),
                  rgb(0.8, 0.2, 0.5, 0.4) ,
                  rgb(0.7, 0.5, 0.1, 0.4))
    radarchart(
      data  ,
      axistype = 1 ,
      #custom polygon
      pcol = colors_border ,
      pfcol = colors_in ,
      plwd = 4 ,
      plty = 1,
      #custom the grid
      cglcol = "grey",
      cglty = 1,
      axislabcol = "grey",
      caxislabels = seq(0, 20, 5),
      cglwd = 0.8,
      #custom labels
      vlcex = 0.8
    )
    legend(
      x = 0.7,
      y = 1,
      legend = rownames(data[-c(1, 2), ]),
      bty = "n",
      pch = 20 ,
      col = colors_in ,
      text.col = "grey",
      cex = 1.2,
      pt.cex = 3
    )
  })
})

# Run the application
shinyApp(ui = ui, server = server)
1
  • Yes thank you so much I needed another pair of eyes. It is true I did not include the server.r because I am calling in 14 csvs and dealing with 24 datasets but for the life of me I could not figure out what I was doing wrong. Thanks again Oct 26, 2016 at 13:57

Your Answer

By clicking “Post Your Answer”, you agree to our terms of service and acknowledge that you have read and understand our privacy policy and code of conduct.

Not the answer you're looking for? Browse other questions tagged or ask your own question.