x轴上的值以闪亮的ggvis图重叠

Question

我正在使用Shinydashboard环境来显示ggvis图。 我希望将它们中的3个放在一条线中，所以我使用了类似的东西（这些图与我实际使用的图并不完全相同，但它们会产生类似的效果）：

ui.R

fluidRow(
column(4,ggvisOutput("plot1")),
column(4,ggvisOutput("plot2")),
column(4,ggvisOutput("plot3")))  


server.R
vis<-reactive({
mtcars %>% ggvis(~1000*mpg,~wt,fill=~vs)%>%layer_points()%>%
set_options(width = 'auto', height = 400) })
vis %>%bind_shiny("plot1")

然而，由于绘图相互压缩，每个绘图上x轴上的值彼此重叠，这使得每个图形的读取都不可能。

你知道是否有办法迫使ggvis自动缩放x轴以使其可读？是否还必须通过调整宽度（以像素为单位）来播放宽度。你知道另一种方式（也许是Shiny）？