>library(shinydashboard)
>library(plotly)
>library(ggplot2)
>library(rsconnect)
>library(ggraph)
>library(igraph)
>library(tidyverse)
>library(viridisLite)
>library(viridis)
>library(DT)
>library(shiny)
>library(plotly)
>library(collapsibleTree)
>library(dplyr)
>library(RODBC)
>library(formattable)
>library(shinythemes)
>library(RCurl)
>c<-data.frame(x=1:5,y=c("a","b","c","d","e"))
>str(b)
'data.frame': 5 obs. of 2 variables:
$ x: num 1 2 3 4 5
$ y: Factor w/ 5 levels "a","b","c","d",..: 1 2 3 4 5
>mycolors <- c("blue", "#FFC125", "darkgreen", "darkorange")
>shinyApp(ui=shinyUI(navbarPage(" Dashboard",theme = shinytheme("cerulean"),windowTitle = "ABC",
tabPanel("Dashboard",
(fluidRow(column(width = 5,(plotlyOutput("plot4",height=250)))))))),
#Server.R
server=function(input,output){
output$plot4<-renderPlotly(c %>%
group_by(y) %>%
summarise(count = n()) %>%
filter(count>10) %>%
plot_ly(labels = ~c$y,
values = ~c$x,
marker = list(colors = mycolors)) %>%
add_pie(hole = 0.0) %>%
layout( title ="CT",
xaxis = list(zeroline = F,
showline = F,
showticklabels = F,
showgrid = F),
yaxis = list(zeroline = F,
showline = F,
showticklabels=F,
showgrid=F))))