R 根据.csv文件输入计算公式，并在条形图上绘制结果

我找不到任何相关主题的帖子。我真的不知道这是否可行

所以我有我的工作。csv文件：

Periodo;Teorico;Real;F1;F2;F3
20140101;50;20;7;7;16
20140108;55;29;11;5;5
20140115;52;21,4;8,6;10;12
20140122;66;32;9;8;17

我将其分配到data.frame：

df<-read.csv2('d:\\xxx\\test2.csv', header = T, sep = ";")

然后我做柱状图函数：

bp <- barplot(t(df[,-c(1:2)]),col=c("blue", "red", "green", "yellow"),legend=colnames(df[,-c(1:2)]),args.legend = list(x="topleft"))
axis(side = 1, at = bp, labels = df$Periodo)
title(main = "Teorico = Real + F1+F2+F3", font.main = 4)

现在我必须计算以下函数：效率函数

特奥里科雷亚尔/特奥里科*100

并表示每一周周期顶部每一行函数的结果

如果你能帮助我的功能代码和补充部分，或给一些指导方针或与此相关的职位，我将非常感激

谢谢

您可以尝试：

lbls <- round(((df$Teorico - df$Real) / df$Teorico)* 100)
mtext(lbls, at=bp)

我只是用圆形来让它看起来更好