是否可以覆盖 R plotly 条形图中标签的字体大小限制？

Question

我有一个带有标签的plotly分组条形图。 我可以更改标签上的字体大小，但plotly不允许 fonts 超过某个似乎由条形的宽度/高度决定的限制。 当要绘制大量组和/或值时，这会成为一个问题。 在其中一些情况下，文本不会变得大于例如 8 磅字体。 有没有办法超越这个限制？

这是一些示例代码：

library(dplyr)
library(plotly)
data.frame(Desc = c("A", "A", "B", "B", "C", "C"), 
           Group = c("Group1", "Group2", "Group1", "Group2", "Group1", "Group2"), 
           Value = c(5, 4, 6, 4, 5, 3)) %>% 
  plotly::plot_ly(data = .) %>% 
  plotly::add_trace(x = ~Value, 
                    y = ~Desc, 
                    color = ~Group,
                    type = 'bar', 
                    text = ~Value, 
                    textposition = "outside", 
                    textfont = list(size = 10), # size is defined here
                    )

此图表的字体大小为 10，输出：

如果我将字体更改为 30 磅，则：

最后，在 50 点（相对于 30 点没有变化）：

Answer 1

您可以使用layout并设置uniformtext来更改文本大小。 我增加了 x 轴范围以使大数字适合。

suppressPackageStartupMessages({
library(dplyr);
library(plotly)})
data.frame(Desc = c("A", "A", "B", "B", "C", "C"), 
           Group = c("Group1", "Group2", "Group1", "Group2", "Group1", "Group2"), 
           Value = c(5, 4, 6, 4, 5, 3)) %>% 
    plotly::plot_ly(data = .) %>% 
    plotly::add_trace(x = ~Value, 
                      y = ~Desc, 
                      color = ~Group,
                      type = 'bar', 
                      text = ~Value, 
                      textposition = "outside"
    ) %>% layout(xaxis=list(range=c(0, 7)),
                 uniformtext=list(minsize=80, mode='show'))

^{由代表 package (v0.3.0) 于 2020 年 5 月 29 日创建}