Продолжительный контракт на обратный вызов по дуплексному каналу WCF - альтернативные шаблоны разработки?

Вот обобщенный способ получить столбчатую диаграмму в процентах с использованием ваших данных (сгенерированную, потому что я не уверен, что именно вы запрашиваете, как отмечено в моем комментарии выше):

require(tidyverse)
df %>% gather("var", "val", before, after) %>% 
ggplot(aes(x=var, y=val,fill=type)) + 
  geom_bar(stat="identity",position="fill")

Это дает вам это - это то, что вы ищете?