Soru_1-2
isim <- c("Ali","Defne", "Meltem", "Semih","Sevda","Gizem","Emre","Zeynep","Utku","Beril")
vize <- c(60,70,50,80,65,70,85,70,92,80)
final <- c(70,65,50,45,67,75,80,85,95,85)
bilgi<- list(isim,vize,final)
str(bilgi)
## List of 3
## $ : chr [1:10] "Ali" "Defne" "Meltem" "Semih" ...
## $ : num [1:10] 60 70 50 80 65 70 85 70 92 80
## $ : num [1:10] 70 65 50 45 67 75 80 85 95 85
bilgi <- list(Ogrenci = isim, Vize_not = vize, Final_not = final)
bilgi
## $Ogrenci
## [1] "Ali" "Defne" "Meltem" "Semih" "Sevda" "Gizem" "Emre" "Zeynep"
## [9] "Utku" "Beril"
##
## $Vize_not
## [1] 60 70 50 80 65 70 85 70 92 80
##
## $Final_not
## [1] 70 65 50 45 67 75 80 85 95 85
gecme_notu<- (final * 0.6) + (vize * 0.4)
bilgi$not <- gecme_notu
bilgi
## $Ogrenci
## [1] "Ali" "Defne" "Meltem" "Semih" "Sevda" "Gizem" "Emre" "Zeynep"
## [9] "Utku" "Beril"
##
## $Vize_not
## [1] 60 70 50 80 65 70 85 70 92 80
##
## $Final_not
## [1] 70 65 50 45 67 75 80 85 95 85
##
## $not
## [1] 66.0 67.0 50.0 59.0 66.2 73.0 82.0 79.0 93.8 83.0
bilgi$Vize_not
## [1] 60 70 50 80 65 70 85 70 92 80
bilgi$Vize_not[3]
## [1] 50
en_yuksek<- which.max(bilgi$not)
en_yuksek
## [1] 9
bilgi$not[en_yuksek] <- 100
bilgi
## $Ogrenci
## [1] "Ali" "Defne" "Meltem" "Semih" "Sevda" "Gizem" "Emre" "Zeynep"
## [9] "Utku" "Beril"
##
## $Vize_not
## [1] 60 70 50 80 65 70 85 70 92 80
##
## $Final_not
## [1] 70 65 50 45 67 75 80 85 95 85
##
## $not
## [1] 66.0 67.0 50.0 59.0 66.2 73.0 82.0 79.0 100.0 83.0
Soru_3
test <- data.frame(isim,vize,final)
test
## isim vize final
## 1 Ali 60 70
## 2 Defne 70 65
## 3 Meltem 50 50
## 4 Semih 80 45
## 5 Sevda 65 67
## 6 Gizem 70 75
## 7 Emre 85 80
## 8 Zeynep 70 85
## 9 Utku 92 95
## 10 Beril 80 85
View(test)
gecme_notu<- (final * 0.6) + (vize * 0.4)
test$not <- gecme_notu
test
## isim vize final not
## 1 Ali 60 70 66.0
## 2 Defne 70 65 67.0
## 3 Meltem 50 50 50.0
## 4 Semih 80 45 59.0
## 5 Sevda 65 67 66.2
## 6 Gizem 70 75 73.0
## 7 Emre 85 80 82.0
## 8 Zeynep 70 85 79.0
## 9 Utku 92 95 93.8
## 10 Beril 80 85 83.0
test_gecti <- test[test$final>70,]
test_gecti
## isim vize final not
## 6 Gizem 70 75 73.0
## 7 Emre 85 80 82.0
## 8 Zeynep 70 85 79.0
## 9 Utku 92 95 93.8
## 10 Beril 80 85 83.0
dim(test_gecti)
## [1] 5 4
summary(test_gecti[, c("vize", "final")])
## vize final
## Min. :70.0 Min. :75
## 1st Qu.:70.0 1st Qu.:80
## Median :80.0 Median :85
## Mean :79.4 Mean :84
## 3rd Qu.:85.0 3rd Qu.:85
## Max. :92.0 Max. :95
sirala <- test_gecti[order(-test_gecti$not),]
sirala
## isim vize final not
## 9 Utku 92 95 93.8
## 10 Beril 80 85 83.0
## 7 Emre 85 80 82.0
## 8 Zeynep 70 85 79.0
## 6 Gizem 70 75 73.0