R_L4

/*
link https://yadi.sk/d/1fC0MzIsPVBZdQ
*/
y1<-c(83,70,86,51,61,67,80,84,70,64,83,55,88,75,61,70,95,52,75,92,86,89,83,58,51, 65, 87, 54, 90, 62, 67, 66, 83, 65,70, 87, 69, 51, 51, 60, 52, 74, 80, 79,85, 85, 92, 22, 92, 57, 84, 92)
y1
y2<-c(70, 31, 70, 46, 78, 69, 36, 33, 65, 70, 74, 51, 90, 26, 62, 70, 86, 86, 80, 33, 55, 31, 69, 31, 62,63, 86, 55, 69, 62, 31, 90, 31, 31, 69, 64, 57, 75, 53, 89, 0, 31, 81, 53, 86, 52, 98, 58, 31, 69,69, 51, 75, 39, 0, 56, 51, 69, 46, 41, 65)
y2

#1
razb1_1 = cut(y1,breaks = c(-1,50,68,85,100),labels=c("2","3","4","5"),include.lowest=TRUE)
razb1_1
razb1_2 = cut(y1,breaks = c(-1,30,50,60,68,85,95,100),labels=c("F","FX","E","D","C","B","A"),include.lowest=TRUE)
razb1_2

#2
razb2_1 = cut(y2,breaks = c(-1,50,68,85,100),labels=c("2","3","4","5"),include.lowest=TRUE)
razb2_1
razb2_2 = cut(y2,breaks = c(-1,30,50,60,68,85,95,100),labels=c("F","FX","E","D","C","B","A"),include.lowest=TRUE)
razb2_2

#3
table1_1 = table(razb1_1)
table1_1
table2_1 = table(razb2_1)
table2_1
#4
table1_2 = table(razb1_2)
table1_2
table2_2 = table(razb2_2)
table2_2

#5
tfr1_1 = table(razb1_1)/length(razb1_1)
tfr1_1
tfr1_2 = table(razb1_2)/length(razb1_2)
tfr1_2
tfr2_1 = table(razb2_1)/length(razb2_1)
tfr2_1
tfr2_2 = table(razb2_2)/length(razb2_2)
tfr2_2

#6
par(mfrow=c(2,2))
barplot(height=table1_1,xlab="Оценка",ylab="Количество оценок",col="black")
barplot(height=table1_2,xlab="Оценка",ylab="Количество оценок",col="black")
barplot(height=table2_1,xlab="Оценка",ylab="Количество оценок",col="black")
barplot(height=table2_2,xlab="Оценка",ylab="Количество оценок",col="black")

matrix1=cbind(table1_1,table2_1)
matrix1
matrix2=cbind(table1_2,table2_2)
matrix2

par(mfrow=c(1,2))
barplot(height=matrix1,beside=FALSE,main="Пятибальная система")
barplot(height=matrix2,beside=FALSE,main="Европейская система")

par(mfrow=c(2,2))
pie(table1_1,labels=c("2","3","4","5"),radius=1,col=c(1:10),main="Таблица1_1")
pie(table1_2,labels=c("F","FX","E","D","C","B","A"),radius=1,col=c(1:10),main="Таблица1_2")
pie(table2_1,labels=c("2","3","4","5"),radius=1,col=c(1:10),main="Таблица2_1")
pie(table2_2,labels=c("F","FX","E","D","C","B","A"),radius=1,col=c(1:10),main="Таблица2_2")