A

library(haven)
library(readxl)
library(dplyr)
## 
## Attaching package: 'dplyr'
## The following objects are masked from 'package:stats':
## 
##     filter, lag
## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union
TUR <- read_sav("C:/Users/Salih/Desktop/BSATURM6.sav")
bilgi <- read_excel("C:/Users/Salih/Desktop/T15_G8_ItemInformation.xlsx")

B

TUR %>% select(IDCNTRY,IDSTUD,IDBOOK, starts_with("M0"))
## # A tibble: 6,079 × 228
##    IDCNTRY   IDSTUD   IDBOOK   M042182 M042081  M042049 M042052 M042076 M042302A
##    <dbl+lbl> <dbl+lb> <dbl+lb> <dbl+l> <dbl+lb> <dbl+l> <dbl+l> <dbl+l> <dbl+lb>
##  1 792       10201     6 [Boo… NA      NA       NA      NA      NA      NA      
##  2 792       10202     7 [Boo… NA      NA       NA      NA      NA      NA      
##  3 792       10203     8 [Boo… NA      NA       NA      NA      NA      NA      
##  4 792       10204     9 [Boo… NA      NA       NA      NA      NA      NA      
##  5 792       10205    10 [Boo… NA      NA       NA      NA      NA      NA      
##  6 792       10206    11 [Boo… NA      NA       NA      NA      NA      NA      
##  7 792       10207    12 [Boo… NA      NA       NA      NA      NA      NA      
##  8 792       10208    13 [Boo… NA      NA       NA      NA      NA      NA      
##  9 792       10209    14 [Boo…  4 [D]  79 [INC…  3 [C*]  4 [D]   1 [A]  79 [INC…
## 10 792       10210     1 [Boo…  1 [A]  79 [INC…  3 [C*]  1 [A*]  4 [D*] 79 [INC…
## # ℹ 6,069 more rows
## # ℹ 219 more variables: M042302B <dbl+lbl>, M042302C <dbl+lbl>,
## #   M042100 <dbl+lbl>, M042202 <dbl+lbl>, M042240 <dbl+lbl>, M042093 <dbl+lbl>,
## #   M042271 <dbl+lbl>, M042268 <dbl+lbl>, M042159 <dbl+lbl>, M042164 <dbl+lbl>,
## #   M042167 <dbl+lbl>, M062208A <dbl+lbl>, M062208B <dbl+lbl>,
## #   M062208C <dbl+lbl>, M062208D <dbl+lbl>, M062208 <dbl+lbl>,
## #   M062153 <dbl+lbl>, M062111A <dbl+lbl>, M062111B <dbl+lbl>, …

C

TUR <- select(TUR, -c("M062345B", "M062345BA", "M062345BB", "M062345BC", 
                      "M062345BD", "M062342", "M062048", "M062048A", 
                      "M062048B","M062048C"))

D

bilgi <- bilgi %>% 
  filter(!("Item ID" %in% c("M062345B", "M062345BA", "M062345BB", "M062345BC", 
                            "M062345BD", "M062342", "M062048", "M062048A",
                            "M062048B", "M062048C")))

E

Bu soruyu anlayarak yapamadım hocam arkadaşların cevaplarını inceledim ama tam oturmadı onlardan yardım almayı düşünüyorum. Bu soru hariç yaklaşık 30 dk sürdü.