0

我在 R 中使用 plotly。我想做的是显示某个位置的租金（v1030）的直方图和箱线图。可以通过串扰滤波器中的几个下拉菜单输入的条件更改绘图。（即是否有厕所，是否有电梯） 显示下拉菜单时，在下拉菜单顶部包含一个选项“（全部）”。保留（全部）选项以保留整个数据库对我来说看起来不错，但是每当我在下拉菜单中选择特定过滤器（例如，厕所中的“是”）后，当我单击返回到下拉菜单，情节不会改变（即继续在厕所中通过“是”过滤）。当我在下拉菜单中切换“是”和“否”时，情节通常会发生变化。当我选择（全部）时，问题才会发生。这个问题有什么解决办法吗？我的代码如下：

'''

library(plotly)
library(crosstalk)
library(dbplyr)
dataset$v1017 <- factor(dataset$v1017,levels = c(0,1),labels = c("No","Yes")) 
dataset$v1018 <- factor(dataset$v1018,levels = c(0,1),labels = c("No","Yes")) 
               
shareD<-SharedData$new(dataset)

p1<-shareD %>% plot_ly(x=~v1030)%>%add_histogram()%>%
layout(xaxis = list(dtick=1000,title = "Rent $"),yaxis = 
list(title="Frequency",fixedrange=TRUE))%>%config(displayModeBar = F)

p2<-shareD%>% plot_ly(y=~v1030,type="box",boxpoints=FALSE)%>%
layout(yaxis = list(dtick=1000,title = "Rent $"))%>%config(displayModeBar = F)

rentcaculator<-bscols(widths=c(3,NA),list(
filter_select(id = "lift", label = "Lift", multiple = FALSE,sharedData = shareSDU, group 
= ~v1018),
filter_select(id = "toilet", label = "Toilet", multiple = FALSE,sharedData = shareSDU, 
group = ~v1017),
p1,p2)

rentcaculator

'''

4

0 回答 0