setwd("G:/其他")
b<-read.table("data_quiz2.txt",header=T)
plot(t(quiz[1,-(1:3)]),type = "b",ylim = c(10,100),add=T)
for(i in 2:52){
lines(t(quiz[i,-(1:3)]),type = "b",ylim = c(10,100))
}
#1
male<-b[b$gender==1,]
ggplot(data=male,aes(x=time,y=score,group=ID))+geom_line()+geom_point()
#2
female<-b[b$gender==2,]
ggplot(data=female,aes(x=time,y=score,group=ID))+geom_line()+geom_point()
#3
e1=b[b$time==1,]
e2=b[b$time==2,]
e3=b[b$time==3,]
e4=b[b$time==4,]
e5=b[b$time==5,]
par(mfrow=c(2,3))
boxplot(score~gender,data=e1,xlab="gender",ylab="score1")
boxplot(score~gender,data=e2,xlab="gender",ylab="score2")
boxplot(score~gender,data=e3,xlab="gender",ylab="score3")
boxplot(score~gender,data=e4,xlab="gender",ylab="score4")
boxplot(score~gender,data=e5,xlab="gender",ylab="score5")
评论1