Я сталкиваюсь с этой проблемой с пакетами ggplot2
и plotly
с R.
Я создаю столбчатую диаграмму с накоплением и, прежде всего, мои данные:
# 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-процентному столбцу, логически пересчитывая процент. Является ли это возможным? Если так, то как?
Заранее спасибо.