i am trying to label/annotate my bar-chart with its corresponding percentage difference value.
I found this tutorial and decided to copy it as reference:
https://www.r-bloggers.com/2021/09/adding-text-labels-to-ggplot2-bar-chart/
for (indexName in IndexNames){
#Calculate Percentage difference
#Cg2300 < Cg2400 < GB1U < Dell
CG2400Dif <- ((CG2400DF[indexName] - CG2300DF[indexName])/CG2300DF[indexName]) * 100
#Get orig values in list
values <- data.frame(
serverType <- c("CG2300","CG2400","Dell"),
result <- c(CG2300DF[indexName],CG2400DF[indexName],DellDF[indexName]),
percentDiff <- c(CG2400Dif,CG2400Dif,0)
)
p<-ggplot(data=values, aes(x=serverType, y=result,fill=serverType)) +
geom_bar(stat="identity")+theme_minimal()+
xlab("Server Type")+
ylab(UnitNames)+
ggtitle(BarChartNames)+
geom_text(aes(label= ..percentDiff..), stat = "percentDiff", vjust = 1.5, colour = "white")
print(p)
}
}
I get this error:
Error in `check_subclass()`:
! Can't find `stat` called 'percentDiff'
Run `rlang::last_error()` to see where the error occurred.