R mosaic（）阴影未为数据着色

Question

我有以下代码：

#Loading libraries
library(grid)
library(vcd)

#creating table
ds = array(c(14,4,7, 10,15,9, 3,11,5), dim=c(3,3),
dimnames=list('Radio Format Preference'=c('Music','News-talk','Sports'), 'Age'=c('Young Adult','Middle Age','Older Adult')))

ds = as.table(ds)

#Calculate row and column proportions
ft = ftable(ds)
pro_row = prop.table(ft,1)
pro_col = prop.table(ft,2)

#plot mosaic
mosaic(ds,legend=TRUE,shade=TRUE)

我的问题是，即使我设置了shade=TRUE，我的镶嵌图仍然显示为灰色。

我在这里想念什么？