Как построить пропорции с помощью geom_bar при масштабировании по общему количеству для каждого фактора

Question

Вот краткий пример

library(ggplot2) 
specie <- c(rep("sorgho" , 5) , rep("poacee" , 5) , rep("banana" , 5) , rep("triticum" , 5) )
  condition <- rep(c("normal" , "stress" , "Nitrogen","Nitrogen","Nitrogen") , 4)
  data <- data.frame(specie,condition)
  ggplot(data) +  aes(x = factor(specie), fill=condition) + 
  geom_bar(position = "fill")

[] Я хотел бы исправить избыточное содержание «Азота» и представить только его относительный вклад.
Спасибо