遇到这种情况，应该怎么计算总体均数和标准差？ball ball了。

代码可以这样写：

data<-read.csv('t5.csv',fileEncoding='utf-8')
#attach(data)
n<-length(data)
sum<-0
ns<-0
for (i in 1:n){
    sum<-sum+data$人数[i]*data$平均分[i]
    ns<-ns+data$人数[i]
}
avg=sum/ns
print(avg)
sum1<-0
sum2<-0
for (i in 1:n){
    sum1<-sum1+data$人数[i]*(data$标准差[i])^2
    sum2<-sum2+data$人数[i]*(avg-data$平均分[i])^2
}
var<-(sum1+sum2)/ns
std=var^(1/2)
print(var)
print(std)

参考：
https://www.zhihu.com/question/375944420