博文
保研季感想：阴盛阳衰，如何招到男学生？
|||
某校，预防医学2009级到了保研的时候，其实性别比例还可以（45男，68女），但成绩的性别差异太严重了（前40名只有2个男生，一个第9，一个34名啊！）！！！
男女成绩的统计描述（蓝色为男，红色为女，横轴为成绩，直方图的纵轴为频数）：
同时，依照诊断试验的模式，做ROC分析，求得AUC值（以性别为金标准，成绩为预测指标）：
Data: as.numeric(x[, 12]) in 45 controls (x[, 3] 男) < 68 cases (x[, 3] 女).
Area under the curve: 0.8779
是教育出了问题，为何成绩的性别差异这么大，科学网上也讨论过，但如何解决这个问题？
可能男生的个性强，平时爱好多，不爱学习，或者对所学的专业根本没有兴趣，今年专业据说有9个要劝退的（大部分是男生）！！！原本成绩都很优秀，高考成绩都在重点线以上60多分，为何经过5年的学习出现这样的结果，这其实是我们的教育问题，不是讲课，而且是其他方面有欠缺！
其实关心的没那么多，只想着课题组的男女比例均衡一下！
附上以上统计分析的R程序
library(RODBC)
x <- sqlFetch(odbcConnectExcel("C:/Users/Administrator/Desktop/201391694547941.xls"), sqtable = "Sheet1", na.strings = "NA", as.is =T)
odbcCloseAll()
boxplot(as.numeric(x[,12])~x[,3])
table(x[,3])
library(pROC)
auc(x[,3],as.numeric(x[,12]))
plot.roc(x[,3],as.numeric(x[,12]))
hist2 <- function(x=x,y=y,main="histgram",ylim=c(-20,20)) {
if (is.factor(y)){
# breaks=seq(min(x),max(x),(max(x)-min(x))/100)
hist(x[y==levels(y)[1]],xlim=c(min(x),max(x)),breaks=seq(min(x),max(x),(max(x)-min(x))/50),
ylim=ylim,col="blue",main=main,xlab=NULL,ylab=NULL)
hist=hist(x[y==levels(y)[2]],breaks=seq(min(x),max(x),(max(x)-min(x))/50),plot=F)
hist$counts= -hist$counts
lines(hist,col="red")
}
else stop("y must be a factor/t")
}
hist2(as.numeric(x[,12]),as.factor(x[,3]))
https://m.sciencenet.cn/blog-397960-725593.html
上一篇：当前统计学发展的几个方向
下一篇：作为卫生统计专业研究生，如何度过硕博生涯？
