-
需要帮助...我创建了一个饼图，用于比较美国工业和Autongin（内部用途）的汽车制造数量。我还创建了一个条形图来比较美国行业和Autongin中每辆汽车的汽车型号计数。我想在单击选项卡或饼图窗口中显示的内容时获得此条形图。我使用plotly包和数据库已连接。单击饼图窗口中显示的选项卡时，我想获得创建的条形图。
用于绘制饼图的示例数据集已附在此处
AutonginMake USMakename
1 Acura Acura
2 Aston Martin Aston Martin
3 Audi Audi
4 Bentley Bentley
5 BMW BMW
6 Buick Buick
7 Cadillac Cadillac
8 Chevrolet Chevrolet
9 Chrysler Chrysler
10 Dodge Dodge
11 Ford Ford
12 GMC GMC
13 Honda Honda
14 HUMMER Hummer
#packages needed
library(plotly)
library(shiny)
library(DBI)
library(RMySQL)
#connecting db
dealerinventory1<-dbConnect(RMySQL::MySQL(), user='ghhjjl',
password='dfgfdgdg!',
host='hfghfh',
dbname='hhthhq23u')
library(shiny)
library(plotly)
ui <- fluidPage(tagList(
plotlyOutput("pie"),
verbatimTextOutput("makes")
))
server <- function(input, output) {
uscount1=dbGetQuery(dealerinventory1,
'SELECT count(distinct makename) as USmakes FROM dealer_inventory.CarQuery;')
autongincount1=dbGetQuery(dealerinventory1,
'SELECT count(distinct makename) as autonginmakes FROM dealer_inventory.car_inventory_json_lookup;')
usandautongintable <- c(autongincount1,uscount1)
usandautongintable
label <- c(paste("Autongin Count: ", autongincount1),paste("US Industry Count: ", uscount1))
label
unlist <- as.numeric(unlist(usandautongintable))
typeof(unlist)
table<- as.data.frame(usandautongintable)
table
usmakes <- dbGetQuery(dealerinventory1,"SELECT distinct makename as USmakes FROM dealer_inventory.CarQuery;")
autonginmakes <- dbGetQuery(dealerinventory1,
'SELECT distinct makename as autonginmakes FROM dealer_inventory.car_inventory_json_lookup;')
usmakes_count <- dbGetQuery(dealerinventory1,
'SELECT count(distinct makename) as USmakes FROM dealer_inventory.CarQuery;')
autonginmakes_count <- dbGetQuery(dealerinventory1,
'SELECT count(distinct makename) as autonginmakes FROM dealer_inventory.car_inventory_json_lookup;')
output$pie <- renderPlotly({
plot_ly(table, labels = label,
values = unlist,
key=c("us", "autongin"),
type = "pie") %>%
layout(title = 'Comparison of Makes',
xaxis = list(showgrid = FALSE, zeroline = FALSE, showticklabels = FALSE),
yaxis = list(showgrid = FALSE, zeroline = FALSE, showticklabels = FALSE))
})
output$makes <- renderPrint({
clicked <- event_data("plotly_click")
if (is.null(clicked)) {
"Click on US Industry Count or Autongin"
} else if (clicked$key == "us") {
autonginmakes
} else {
usmakes
}
})
}
shinyApp(ui, server)
输出图解链接位于http://autonginreports.iinerds.com:3838/sample-apps/plot/
以上代码用于创建饼图。
以下代码用于创建条形图
param_modelyear=c(2008:2018)
for ( i in param_modelyear){
print(i)
}
modelyearquery=paste0(" (SELECT A.makename as AutonginMake,Case when B.makename is null Then A.makename
Else B.makename end As USMakename
,A.AutonginModelcount,Case when B.USModelcount is null Then 0
Else B.USModelcount end as USModelcount
FROM (select count(*) as AutonginModelcount,makename as makename from
(select distinct makename ,modelname from dealer_inventory.car_inventory_json_lookup where modelyear=",param_modelyear," order by makename) as C
group by makename) A Left JOIN (select count(*) as USModelcount,makename as makename from
(select distinct makename ,modelname from dealer_inventory.CarQuery where modelyear=",param_modelyear," order by makename) as D
group by makename) B ON A.makename=B.makename
ORDER BY A.makename)
UNION
(SELECT Case when A.makename is null Then B.makename
Else A.makename end As AutonginMake,B.makename as USMakename,Case when A.AutonginModelcount is null Then 0
Else A.AutonginModelcount end as AutonginModelcount,B.USModelcount
FROM (select count(*) as AutonginModelcount,makename as makename from
(select distinct makename ,modelname from dealer_inventory.car_inventory_json_lookup where modelyear=",param_modelyear," order by makename) as C
group by makename) A Right JOIN (select count(*) as USModelcount,makename as makename from
(select distinct makename ,modelname from dealer_inventory.CarQuery where modelyear=",param_modelyear," order by makename) as D
group by makename) B ON A.makename=B.makename
ORDER BY A.makename);")
modelyearquery
makemodel1=dbGetQuery(dealerinventory1,modelyearquery)
plot5 <- plot_ly(makemodel1, x = ~AutonginMake, y = ~USModelcount, type = 'bar', name = 'USModelcount') %>%
add_trace(y = ~AutonginModelcount, name = 'AutonginModelcount') %>%
layout(
title="Yearwise comparison of Models of each Makes in Autongin and US market",
yaxis = list(title = 'modelcount'),
barmode = 'group')
plot5
library(shiny)
library(plotly)
models= fluidPage(selectInput('my_dropdown','Choose Column',param_modelyear),
plotlyOutput("plot")
)
server3<- function(input,output){
output$plot=renderPlotly({
plot_ly(makemodel1, x = ~AutonginMake, y = ~USModelcount, type = 'bar', name = 'USModelcount') %>%
add_trace(y = ~AutonginModelcount, name = 'AutonginModelcount') %>%
layout(
title="Yearwise comparison of Models of each Makes in Autongin and US market",
yaxis = list(title = 'modelcount'),
barmode = 'group')
})
}
shinyApp(models,server3)
我想在单击选项卡或饼图窗口中显示的内容时获取条形图“ plot5”
plot5 <- plot_ly(makemodel1, x = ~AutonginMake, y = ~USModelcount, type = 'bar', name = 'USModelcount') %>%
add_trace(y = ~AutonginModelcount, name = 'AutonginModelcount') %>%
layout(
title="Yearwise comparison of Models of each Makes in Autongin and US market",
yaxis = list(title = 'modelcount'),
barmode = 'group')