Generar un gráfico de barras con los datos dispuestos de la siguiente manera

A partir de los siguientes valores obtenidos de un cuadro:


Se aplican estos índices después de cargar el cuadro:
EI<-apply(PruebaIndices[,6:8],2,function (x) 100*(x[27]*3.2+x[20]*0.8)/(x[27]*3.2+x[20]*0.8+sum(x[c(25:26,20)])0.8))
BI<-apply(PruebaIndices[,6:8],2,function (x) 100
(sum(x[c(25:26,20)]*0.8))/(sum(x[c(25:26,20)])*0.8+x[27]*3.2+x[20]*0.8+x[29]*3.2+x[21]*3.2+x[28]5))
SI<-apply(PruebaIndices[,6:8],2,function (x) 100
(x[29]*3.2+x[21]*3.2+x[28]*5)/(x[29]*3.2+x[21]*3.2+x[28]*5+sum(x[c(25:26,20)]*0.8)))´´´
Lo que no puedo hacer es generar un barplot donde en el eje x estén las pruebas, y en el eje y estén los valores de EI, BI y SI apilados.