绘制每次观察的累积总和

Question

只是需要你帮我一些可能非常愚蠢的东西，但不幸的是不能解决它！

我需要制作一个图表，表明每个团队的总和。

这就是我得到的。

使用此代码：

plot(factor(Data$Agency), Data$TMM)

当我需要绘制每个团队制作的总分数时。不是一个图表，告诉团队做得越少越好。 只想让图表告诉每个团队的积分总数。

问题在于Lightblue团队。

由于其他团队只有一个掌握对象。

这对你有帮助。

团队被命名为Agencys。

 Data$TMM
[1] 720 540 400 540 360 720 360 300 400
> Data$Agency
[1] "Lightblue" "Lightblue" "IHC"       "Lightblue" "Lightblue" "Lightblue" "Lightblue"
[8] "Sociate"   "Allure"

感谢!!!

Answer 1

library(plyr)    
Data = data.frame(TMM = c(720, 540, 400, 540, 360, 720, 360, 300, 400),Agency = c("Lightblue" ,"Lightblue", "IHC", "Lightblue", "Lightblue", "Lightblue", "Lightblue","Sociate" ,  "Allure"))

res = ddply(Data, .(Agency), summarise, val = sum(TMM))
p = plot(factor(res$Agency), res$val)
plot(p)

Answer 2

假设您的数据如下：

Data <- data.frame(TMM = c(720, 540, 400, 540, 360, 720, 360, 300, 400),
                   Agency= c("Lightblue", "Lightblue", "IHC", "Lightblue", "Lightblue", "Lightblue", "Lightblue",
                             "Sociate",   "Allure"))

> Data
  TMM    Agency
1 720 Lightblue
2 540 Lightblue
3 400       IHC
4 540 Lightblue
5 360 Lightblue
6 720 Lightblue
7 360 Lightblue
8 300   Sociate
9 400    Allure

首先，您需要使用aggregate或任何其他聚合方法聚合数据，然后我认为您需要将它们绘制为条形图（由于您有数据计数，因此更有意义） - 相反当x是一个因子时，默认的箱形图（如果你只有一个点，你不应该使用箱形图）。

#this aggregates TMM by the Agency
data2 <- aggregate(TMM ~ Agency, data=Data, FUN=sum)

#first argument is the values and names.arg contains the names of the bars
barplot(data2$TMM, names.arg=data2$Agency)

输出：