如何制作具有水平面的热图？

Question

如何更改热图中矩形的宽度和高度，使短边垂直于水平轴？

我认为这样的事情会起作用，但它并没有

tbl_df(iris) %>%
  ggvis(~ Species, ~Species) %>% 
layer_rects(fill= ~Petal.Width, width = band(), height = band(mult=.25))