R ggplot2 используя ..count .. при использовании facet_grid

Question

Я использую R студии в Ubuntu со стандартным обновленным R и ggplot2

Я пытаюсь создать гистограмму в ggplot, и разделение данных по группам.

Мне нужна ось графика, чтобы указать частоту каждого бункера в подгруппе, которая была разделена сеткой фасет.

, например, если у меня есть две записи в данных

a group 
1 1 
2 2 

мне нужно использовать facet_grid, чтобы разделить на группы, а затем, чтобы показать, что имеет одну планку 1, что составляет 100% процентов примеров в группе 1 и наоборот.

Я узнал, что способ сделать это, используя (..count ..)/sum (.. count) , но сумма (.. count.) Будет считать частоту того, что было во всем кадр данных и дадут мне нежелательные результаты,

я не могу найти хорошую документацию для глубокого использования ..count ..

question about special ggplot variables

another question about ..count..

Там нет ничего всеобъемлющего в docs,

Это пример кода я использую

df <- data.frame(a = 1:10, b = 1:10, group = c(rep(1,5),rep(2,5))) 
p<-ggplot(df) + geom_histogram(aes(x = a, y = (..count..)/sum(..count..))) + 
    facet_grid(group ~ .) 

Вы можете видеть, что ось у будет содержать 0,1 как высшую ценность, я хотел бы, чтобы показать, что 100% процентов от 1 значений в например, группа 1. и т.д.

редактировать:

Благодаря Jimbou за ответ и ссылки на хорошо построен прогулку вокруг, который подходит для дискретных данных, пожалуйста, обратите внимание, что реальная проблема я имею здесь нужно будет использовать непрерывные данные, и ящики, которые группируют более одного значения, кроме того, нет надлежащей документации о том, как это сделать с функцией ..count .. и поэтому я считаю, что это важно найти решение, а не использовать прогулку вокруг

Answer 1

После много играть вокруг, и очень хорошие направления, вы все дали, я обнаружил, что с небольшим добавлением и смешайте между Jimbou-х и ответы Shayaa, и некоторым дополнительным кодом это работает прекрасно.

t <- data %>% group_by(group,member,v_rate) %>% tally %>% mutate(f = n/sum(n)) 

будет принимать группу в данных и группой, членом, v_rate, и добавить количество каждой группы, деленная на сумму (относительно частоты в группе)

, чем мы хотим создать гистограмму с ggplot2 и использовать эти значения в качестве весовой функции гистограммы, в противном случае все это было напрасно,

p <- ggplot(t, aes(x = v_rate, weight = f)) + geom_histogram() + facet_grid(group ~ member) 

, который прекрасно работает.

Answer 2

Вы можете попробовать:

Сначала вычислите длину каждой группы, используя ave :

df$gr_l <- ave(df$a, df$group, FUN = function(x) length(x)) 

Получить долю каждого a внутри групп с помощью by:

df$gr_prop <- c(by(df, df$group + df$a, FUN = function(x) length(x$a)/unique(x$gr_l))) 

Участок данных.

ggplot(df, aes(x=a, y=gr_prop)) + 
     geom_bar(stat="identity",position='dodge') + 
     facet_grid(group ~ .) 

Вопрос похож на this и that вопрос, используя ddply или внутренний ggplot решение.

Answer 3

Адрес dplyr.

df%>% group_by(group)%>%mutate(n = n(), prop = n/sum(n))