r - R：堆叠条形图的ggplot，绘图和自动调整

Question

我在使用 Rggplot2和plotly打包时遇到了这个问题。我正在创建一个堆积条形图，首先是我的数据：

# here my data
family <- c('one','one','one','one','one','one','one','one',
            'two','two','two','two','two','two','two','two')

group <- c('alpha','beta','alpha','beta','alpha','beta',
            'alpha','beta','alpha','beta','alpha','beta',
          'alpha','beta','alpha','beta')

field <- c('a','a','b','b','c','c','d',
           'd','a','a','b','b','c','c','d','d')

value <- sample(1:10, 16, replace =TRUE)

data <- data.frame(family, group, field, value)

remove(family,group,field,value)

然后，我创建了我的堆叠条形图ggplot2：

# here the plot
library(ggplot2)
library(plotly)
p <- ggplot(data, aes(x = group, y = value, fill =reorder(field,value))) 
p <- p + geom_bar(position = "fill",stat = "identity")
p <- p + ggtitle("A simple example") 
p <- p + theme(axis.text.x =  element_text(angle = 90, hjust = 1))+ guides(fill=FALSE)
p <- p + facet_grid(family~.)

最后，我把它作为plotly输出：

ggplotly(p)
remove(data)

结果很好：

我的问题是：如果您选择图例中出现的其中一个事件（选择 d）：

我真的很希望，如果您选择例如 d，绘图“返回”到 100% 堆叠的条形图，从逻辑上重新计算百分比。可能吗？如果是这样，怎么做？提前致谢。