раскол кадр данных и создать стек процентов barplot в R

Question

Мой кадр данных выглядит следующим образом:

plant distance 
one  1 
one  3 
one  2 
one  3 
one  7 
one  4 
one  6 
one  8 
one  9 
two  1 
two  6 
two  4 
two  8 
two  5 
two  3 
three …… 

Я хочу разделить distance каждого уровня на группы по интервалам (например, интервал = 3).

plant distance group 
    one  1 1 
    one  3 1 
    one  2 1 
    one  3 1 
    one  7 3 
    one  4 2 
    one  6 2 
    one  8 3 
    one  9 3 
    two  1 1 
    two  6 2 
    two  4 2 
    two  8 3 
    two  5 2 
    two  3 1 
    three …… 

И вычислить процент каждой группы

plant group percentage 
one  1  0.44 
one  2  0.22 
one  3  0.33 
two  1  0.33 
two  2  0.50 
two  3  0.17 
three …… 

Наконец, участок проценты каждого уровня каждой группы аналогично, как это:

, и я не знаю, как разделить каждый уровень за интервал. Извините за мой английский! Спасибо за помощь!

Answer 1

Вот один из способов сделать это с помощью dplyr:

library(dplyr) 
library(ggplot2) 
my_data %>% 
    mutate(group = factor(cut(distance, seq(0, max(distance), 3), F))) %>% 
    group_by(plant, group) %>% 
    summarise(percentage = n()) %>% 
    mutate(percentage = percentage/sum(percentage)) %>% 
    ggplot(aes(x = plant, y = percentage, fill = group)) + 
    geom_bar(stat = "identity", position = "stack")