R：ggplot，绘制并自动调整堆积条形图

Question

我在使用ggplot2和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，情节＆＃34;返回＆＃34;到100％堆积的条形图，从逻辑上重新计算百分比。可能吗？如果是这样，怎么样？ 提前谢谢。