删除 Plotly 中条形之间的间隙

Question

我正在尝试使用 Plotly 在 R 中创建 Marimekko 图表。本质上，这只是一个堆叠的可变宽度条形图，两个条形直接相邻。目前，我的尝试是这样的：

创建它的代码在这里：

bar.test <- plot_ly(type = "bar") %>% 
  layout(title = paste0("Newark Charter vs District BTO Makeup"),
         xaxis = list(title = ""),
         yaxis = list(title = "Percent BTO", tickformat = "%")) %>% 
  add_trace(x = ~test1$sch.type, y = ~test1$y, width = ~test1$width, 
            marker = list(color = c(blue.dark.opq, red.opq.2, blue.dark.opq, red.opq.2) ,
                            line = list(color = 'rgba(0,0,0,1)' , width = 2))) %>% 
  add_annotations(x = ~test1$sch.type, y = ~test1$annotation.y,
                  text = paste0("<b>", 100*round(test1$y, 3), "%"),
                  showarrow = F,
                  font = list(size = 14, color = 'rgba(0,0,0,1)')) %>% 
  add_annotations(x = ~test1$sch.type, y = ~test1$all.y,
                  text = paste0(test1$all.count), showarrow = F,
                  font = list(size = 14, color = 'rgba(0,0,0,1)')) %>% 
  hide_legend()

数据如下所示：

我的目标只是让条形之间没有间隙。我曾尝试使用 bargap 参数来执行此操作，但已阅读到为条形分配宽度会使 Plotly 忽略 bargap 参数。我还读过一个潜在的解决方法是手动更改条形图的 offset 参数。但是，我有很多这样的图形，宽度和百分比各不相同，因此任何解决方案都无法手动进行。

Answer 1

Marimekko 图表通常被称为 "Mosaic Plot"。您可以使用 ggmosaic 在 ggplot 中创建一个，然后使用 ggplotly 将其转换为 plotly。你没有在问题中提供可复制的数据，所以这里是一个使用 mtcars 数据集的例子：

library(dplyr)
library(ggmosaic)
library(plotly)

p <- mtcars %>%
       lapply(as.factor) %>%
       as.data.frame() %>%
       count(cyl, gear)  %>%
       ggplot() +
         geom_mosaic(aes(weight = n, x = product(cyl), fill = gear)) +
         labs(x = 'Cylinders', y = 'Gears')
ggplotly(p)

Answer 2

您可以自定义 x 并在布局中使用 bargap = 0

library(plotly)
#> Loading required package: ggplot2
#> 
#> Attaching package: 'plotly'
#> The following object is masked from 'package:ggplot2':
#> 
#>     last_plot
#> The following object is masked from 'package:stats':
#> 
#>     filter
#> The following object is masked from 'package:graphics':
#> 
#>     layout

test1 <- data.frame(
    city.state = "Newark",
    sch.type = c("Charter", "Charter", "District", "District"),
    bto.stat = c(0,1,0,1),
    y = c(.7, .3, .1, .9),
    width = c(.3, .3, .7, .7),
    x = c(.15, .15, .65, .65),
    annotation.y = c(.3, .8, .05, .55),
    all.count = c(46000, 46000, 99000, 99000),
    all.y = c(1,1,1,1)
    )

bar.test <- plot_ly(type = "bar") %>%
    add_trace(x = test1$x,
              y = test1$y,
              width = test1$width,
              marker = list(
                color = c("blue", "red", "blue", "red") ,
                line = list(color = 'rgba(0,0,0,1)' , width = 2)
                )
              ) %>%
    layout(bargap = 0)

bar.test

^{由 reprex package (v0.3.0)}

于 2019-11-19 创建

删除 Plotly 中条形之间的间隙

Remove Gaps Between Bars in Plotly

r

bar-chart

r-plotly