Gunun Sorusu 5.1.

Çözüm

bos_df <-
   data.frame(
      TamSayi = integer(),
      OndalikSayi = numeric(),
      Karakter = character(),
      Mantiksal = logical(),
      Faktor = factor()
   )

paste("Bos data.framenin yapısı:", str(bos_df))
## 'data.frame':    0 obs. of  5 variables:
##  $ TamSayi    : int 
##  $ OndalikSayi: num 
##  $ Karakter   : chr 
##  $ Mantiksal  : logi 
##  $ Faktor     : Factor w/ 0 levels:
## [1] "Bos data.framenin yapısı: "

Alternatif

df <-
   data.frame(matrix(
      ncol = 5,
      nrow = 0,
      dimnames = list(
         NULL,
         c("TamSayi", "OndalikSayi", "Karakter", "Mantiksal", "Faktor")
      )
   ))

df$TamSayi <- as.integer(df$TamSayi)
df$OndalikSayi <- as.numeric(df$OndalikSayi)
df$Karakter <- as.character(df$Karakter)
df$Mantiksal <- as.logical(df$Mantiksal)
df$Faktor <- as.factor(df$Faktor)

paste("Bos data.framenin yapısı:", str(df))
## 'data.frame':    0 obs. of  5 variables:
##  $ TamSayi    : int 
##  $ OndalikSayi: num 
##  $ Karakter   : chr 
##  $ Mantiksal  : logi 
##  $ Faktor     : Factor w/ 0 levels:
## [1] "Bos data.framenin yapısı: "

Gunun Sorusu 5.2.

Çözüm

ad = c('Su', 'Pera', 'Sule', 'Can', 'Cem', 'Name', 'Aras', 'Mete', 'Kaan', 'Pelin')
puan = c(12.5, 9, 16.5, 12, 9, 20, 14.5, 13.5, 8, 19)
deneme = c(1, NA, 2, NA, 2, NA, 1, NA, 2, 1)
bonus = c(1,0,1, 0, 0, 1, 1, 0,0, 1)

df2 <- data.frame(ad, puan, deneme, bonus)

paste("Veri seti:", df2)
## [1] "Veri seti: c(\"Su\", \"Pera\", \"Sule\", \"Can\", \"Cem\", \"Name\", \"Aras\", \"Mete\", \"Kaan\", \"Pelin\")"
## [2] "Veri seti: c(12.5, 9, 16.5, 12, 9, 20, 14.5, 13.5, 8, 19)"                                                    
## [3] "Veri seti: c(1, NA, 2, NA, 2, NA, 1, NA, 2, 1)"                                                               
## [4] "Veri seti: c(1, 0, 1, 0, 0, 1, 1, 0, 0, 1)"
a <- sum(is.na(df2$deneme))
paste("Deneme sutunundaki NA sayisi:", a)
## [1] "Deneme sutunundaki NA sayisi: 4"