Как построить относительные пропорции в ggplot

Question

У меня есть df, как это.

> te1.m.comb 
    temp    variable  value 
1 35  Light.180.1.x.MAX1 10.398333 
3 35  Dark.180.1.x.MAX1 -4.337142 
5 35  Light.288.5.x.MAX3 17.825376 
7 35  Dark.288.5.x.MAX3 -4.331998 
9 35   Light.D125.x.K1 15.150205 
11 35   Dark.D125.x.K1 -4.376553 
13 35 Light.SO443WL.x.SO479WL 11.003542 
15 35 Dark.SO443WL.x.SO479WL -3.216878 
17 35 Light.SO450WL.x.SO465WL 15.970640 
19 35 Dark.SO450WL.x.SO465WL -3.109330 
21 35 Light.SO459WL.x.SO469WL 11.393617 
23 35 Dark.SO459WL.x.SO469WL -3.857454 
2 40  Light.180.1.x.MAX1 8.589651 
4 40  Dark.180.1.x.MAX1 -5.569157 
6 40  Light.288.5.x.MAX3 15.977499 
8 40  Dark.288.5.x.MAX3 -5.582502 
10 40   Light.D125.x.K1 13.651815 
12 40   Dark.D125.x.K1 -5.243391 
14 40 Light.SO443WL.x.SO479WL 8.518077 
16 40 Dark.SO443WL.x.SO479WL -4.861841 
18 40 Light.SO450WL.x.SO465WL 13.691814 
20 40 Dark.SO450WL.x.SO465WL -4.514559 
22 40 Light.SO459WL.x.SO469WL 9.262019 
24 40 Dark.SO459WL.x.SO469WL -5.138836 

Я хотел бы рассчитать относительные пропорции, используя ggplot. Например, вместо построения каждой переменной и ее значения я хотел бы построить значение отношения Light.180.1.x.MAX1/Dark.180.1.x.MAX1 i.e 10.398333/-4.337142 и так далее. Как я могу это сделать в ggplot?

Вот мой boxplot код, который только участки каждой переменной и ее значение ..

ggplot(te1.m.comb, aes(variable, value)) + geom_boxplot() + facet_grid(temp ~.) 

Answer 1

Я переименовал ваш data.framedf так, что чтение может быть легко и добавлен столбец соотношение:

df$ratio = with(df, c(value/c(value[-1],NA))) 

Вот сюжет:

library(ggplot2) 

ggplot(df, aes(variable, ratio)) + 
    geom_bar(stat = "identity") + 
    facet_grid(temp~.) + ¨ 
    scale_y_reverse()