第一个
https://datascienceplus.com/building-a-simple-sales-revenue-dashboard-with-r-shiny-shinydashboard/
image.png
代码
library(shiny)
library(shinydashboard)
library(ggplot2)
library(dplyr)
recommendation <- read.csv('recommendation.csv',stringsAsFactors = F,header=T)
header <- dashboardHeader(title="Basic Dashboard")
sidebar <- dashboardSidebar(
sidebarMenu(
menuItem("Dashboard",tabName="dashboard",icon=icon("dashboard")),
menuItem("Visit-us",icon=icon("send",lib="glyphicon"),href="https://www.salesforce.com")
)
)
frow1 <- fluidRow(
valueBoxOutput("value1")
,valueBoxOutput("value2")
,valueBoxOutput("value3")
)
frow2 <- fluidRow(
box(
title = "Revenue per Account"
,status = "primary"
,solidHeader = TRUE
,collapsible = TRUE
,plotOutput("revenuebyPrd", height = "300px")
)
,box(
title = "Revenue per Product"
,status = "primary"
,solidHeader = TRUE
,collapsible = TRUE
,plotOutput("revenuebyRegion", height = "300px")
)
)
# combine the two fluid rows to make the body
body <- dashboardBody(frow1, frow2)
ui <- dashboardPage(
title = 'This is my Page title',
header,
sidebar,
body,
skin = "red"
)
server <- function(input, output) {
#some data manipulation to derive the values of KPI boxes
total.revenue <- sum(recommendation$Revenue)
sales.account <- recommendation %>% group_by(Account) %>% summarise(value = sum(Revenue)) %>% filter(value==max(value))
prof.prod <- recommendation %>% group_by(Product) %>% summarise(value = sum(Revenue)) %>% filter(value==max(value))
#creating the valueBoxOutput content
output$value1 <- renderValueBox({
valueBox(
formatC(sales.account$value, format="d", big.mark=',')
,paste('Top Account:',sales.account$Account)
,icon = icon("stats",lib='glyphicon')
,color = "purple")
})
output$value2 <- renderValueBox({
valueBox(
formatC(total.revenue, format="d", big.mark=',')
,'Total Expected Revenue'
,icon = icon("gbp",lib='glyphicon')
,color = "green")
})
output$value3 <- renderValueBox({
valueBox(
formatC(prof.prod$value, format="d", big.mark=',')
,paste('Top Product:',prof.prod$Product)
,icon = icon("menu-hamburger",lib='glyphicon')
,color = "yellow")
})
#creating the plotOutput content
output$revenuebyPrd <- renderPlot({
ggplot(data = recommendation,
aes(x=Product, y=Revenue, fill=factor(Region))) +
geom_bar(position = "dodge", stat = "identity") + ylab("Revenue (in Euros)") +
xlab("Product") + theme(legend.position="bottom"
,plot.title = element_text(size=15, face="bold")) +
ggtitle("Revenue by Product") + labs(fill = "Region")
})
output$revenuebyRegion <- renderPlot({
ggplot(data = recommendation,
aes(x=Account, y=Revenue, fill=factor(Region))) +
geom_bar(position = "dodge", stat = "identity") + ylab("Revenue (in Euros)") +
xlab("Account") + theme(legend.position="bottom"
,plot.title = element_text(size=15, face="bold")) +
ggtitle("Revenue by Region") + labs(fill = "Region")
})
}
shinyApp(ui,server)
运行代码
library(shiny)
runApp('first_shiny_example/')
shinydashboard帮助文档
https://rstudio.github.io/shinydashboard/index.html
shiny的许多例子
https://rstudio.github.io/shinydashboard/index.html
徐洲更的简书笔记
https://www.jianshu.com/p/e2495bbc7bd1
B站的一些视频
https://www.bilibili.com/video/BV13t41137vU?p=4
https://www.bilibili.com/video/BV1vJ411Q7yP?p=12
ggplot2画火山图的一个例子，同时还有一些其他的例子
https://bioinformatics-core-shared-training.github.io/shiny-bioinformatics/interactive-plots
ggplot2画图的，例子有些复杂
https://github.com/smouksassi/ggplotwithyourdata
40个简单的shiny小例子
shiny gallary
https://shiny.rstudio.com/gallery/
shinyGEO
http://gdancik.github.io/shinyGEO/
欢迎大家关注我的公众号
小明的数据分析笔记本
公众号二维码.jpg
