ggiraph::girafe()输出的大小与使用flexdashboard后的RStudio查看器上的文档不一致

Question

我有许多使用{ggplot2}和{ggiraph}的图，我已经将它们合并到{flexdashboard}中

在尝试使用仪表板显示它们之前，这些地块使用大小调整选项width = 0.7在RStudio的查看器上正确显示

但是，它们不会显示在仪表板上(仅显示为空白面板)，如果直接在RStudio中运行，则现在会生成空白面板。经过一些调查后，似乎某些设置发生了变化，图表没有输出，因为大小与窗口不一致。

如果我将宽度设置更改为10，它将在RStudio查看器中正确显示，这似乎很奇怪。

我这里有一个小的reprex：

library(ggplot2)
library(ggiraph)

#dummy dataframe
df <- data.frame(
  x = seq.Date(Sys.Date() - 30, Sys.Date() - 1, by = "days"),
  y = runif(30, 0, 2) 
)

p <- ggplot2::ggplot(df, (aes(x,y)))+
  geom_point_interactive(aes(tooltip = x, data_id = x))


plot <- girafe(ggobj = p, 
                width =0.7)

print(plot)

这将生成以下输出：

​

​

但是，如果我将宽度设置调整为10

plot <- girafe(ggobj = p, 
                width =10)

print(plot)

我得到了以下信息：

​

​

这似乎与{ggiraph}的文档不一致，{flexdashboard}是否修改了某些图形设置？我在{flexdashboard}输出上尝试了{plotly}和{echarts4r}的交互式(js)图表，它们没有显示出相同的行为。

我使用的是RStudio 1.4.1103 R版本4.0.2系统: x86_64-apple-darwin17.0

Answer 1

我一直在尝试，似乎可以通过始终如一地使用width_svg来控制输出。

我仍然不知道为什么会有一个问题，但我怀疑一些潜在的图形设置。