Braille (Kabartma) Yazıya Yönelik Tutum ve Öğretmenlerin Yeterlilik Algısı

Braille (kabartma) yazı, görme yetersizliği olan bireylerin okuma ve yazma becerilerini geliştirmelerine olanak sağlayan, dokunsal bir okuma-yazma sistemidir. Bu sistem, harfleri temsil eden kabartma noktalarından oluşur. Bu araştırmada kullanılan Braille Yazıya Yönelik Tutum Ölçeği 15 maddeden oluşmaktadır. Ölçekte 5’li Likert yapıdadır. Ölçek, bireylerin Braille yazıya yönelik tutumlarını belirlemeyi amaçlamaktadır.

Öğretmenlerin Yeterlilik Algısı Ölçeği öğretmenlerin kendi mesleki yeterliklerine ilişkin algılarını ölçmeyi amaçlayan bir ölçme aracıdır. Ölçek 9 maddeden oluşmakta ve 4’lü Likert yapıdadır. Ölçekten alınan yüksek puanlar öğretmenlerin yeterlilik algılarının yüksek olduğunu göstermektedir.

data_b <- read_excel("Data/data_b.xlsx")

head(data_b)
## # A tibble: 6 × 32
##      no cinsiyet sınıf dersalma brailegitim brailyeterlik    b1    b2    b3
##   <dbl> <chr>    <dbl> <chr>    <chr>               <dbl> <dbl> <dbl> <dbl>
## 1    11 Erkek        1 Hayır    Hayır                   2     4     4     4
## 2    29 Erkek        1 Hayır    Hayır                   0     4     4     4
## 3    34 Erkek        1 Hayır    Hayır                   1     4     4     4
## 4    35 Erkek        1 Hayır    Hayır                   0     4     3     1
## 5    36 Erkek        1 Hayır    Hayır                   1     4     4     4
## 6    40 Erkek        1 Hayır    Hayır                   0     5     5     4
## # ℹ 23 more variables: b4 <dbl>, b5 <dbl>, b6 <dbl>, b7 <dbl>, b8 <dbl>,
## #   b9 <dbl>, b10 <dbl>, b11 <dbl>, b12 <dbl>, b13 <dbl>, b14 <dbl>, b15 <dbl>,
## #   btoplam <dbl>, ogretmenyeterlik1 <dbl>, ogretmenyeterlik2 <dbl>,
## #   ogretmenyeterlik3 <dbl>, ogretmenyeterlik4 <dbl>, ogretmenyeterlik5 <dbl>,
## #   ogretmenyeterlik6 <dbl>, ogretmenyeterlik7 <dbl>, ogretmenyeterlik8 <dbl>,
## #   ogretmenyeterlik9 <dbl>, ogretmenyeterliktoplam <dbl>
ggplot(data_b, aes(x = btoplam, y = ogretmenyeterliktoplam)) +
  geom_point(color = "blue", alpha = 0.7, shape = 5) +
  labs(title = "\nBraille (Kabartma) Yazıya Yonelik Tutum ve Ogretmenlerin Yeterlilik Algısı\n",
       x = "\nBraille (Kabartma) Yazıya Yonelik Tutum\n",
       y = "\nOgretmenlerin Yeterlilik Algısı\n") +
  theme_minimal()

ggplot(data_b, aes(x = btoplam, y = ogretmenyeterliktoplam)) +
  geom_point(color = "blue", alpha = 0.7, shape = 5) +
    geom_smooth(method = "lm", color = "darkblue", se = TRUE) +
  labs(title = "\nBraille (Kabartma) Yazıya Yonelik Tutum ve Ogretmenlerin Yeterlilik Algısı\n",
       x = "\nBraille (Kabartma) Yazıya Yonelik Tutum\n",
       y = "\nOgretmenlerin Yeterlilik Algısı\n") +
  theme_minimal()
## `geom_smooth()` using formula = 'y ~ x'

cor(data_b$btoplam, data_b$ogretmenyeterliktoplam)
## [1] 0.180919
veri <- data_b %>%
  select(b1,b2,b3, btoplam, ogretmenyeterlik1,ogretmenyeterlik2,ogretmenyeterlik3,ogretmenyeterliktoplam)
pairs(veri,
      main = "Degiskenler Arası İliskiler",
      pch = 5,
      upper.panel = NULL,
      col = "red")

ggpairs(data = veri, 
  title = "Degiskenler Arası İliskiler",
  upper = list(continuous = "cor"),  
  lower = list(continuous = "smooth"), 
  diag = list(continuous = "densityDiag"), 
  progress = FALSE) +
  theme_minimal() 

corr_matrix <- cor(veri)
corr_matrix
##                                 b1          b2         b3    btoplam
## b1                      1.00000000  0.86712737 0.63824506 0.82681794
## b2                      0.86712737  1.00000000 0.61330742 0.84553857
## b3                      0.63824506  0.61330742 1.00000000 0.73921371
## btoplam                 0.82681794  0.84553857 0.73921371 1.00000000
## ogretmenyeterlik1       0.09256840  0.16578357 0.10071497 0.16114380
## ogretmenyeterlik2       0.15046600  0.14520987 0.07550043 0.12718155
## ogretmenyeterlik3      -0.04553026 -0.01623513 0.03279502 0.02788432
## ogretmenyeterliktoplam  0.10883575  0.14083014 0.10750314 0.18091904
##                        ogretmenyeterlik1 ogretmenyeterlik2 ogretmenyeterlik3
## b1                             0.0925684        0.15046600       -0.04553026
## b2                             0.1657836        0.14520987       -0.01623513
## b3                             0.1007150        0.07550043        0.03279502
## btoplam                        0.1611438        0.12718155        0.02788432
## ogretmenyeterlik1              1.0000000        0.29346892        0.33662600
## ogretmenyeterlik2              0.2934689        1.00000000        0.45133628
## ogretmenyeterlik3              0.3366260        0.45133628        1.00000000
## ogretmenyeterliktoplam         0.5846206        0.58933828        0.62956112
##                        ogretmenyeterliktoplam
## b1                                  0.1088357
## b2                                  0.1408301
## b3                                  0.1075031
## btoplam                             0.1809190
## ogretmenyeterlik1                   0.5846206
## ogretmenyeterlik2                   0.5893383
## ogretmenyeterlik3                   0.6295611
## ogretmenyeterliktoplam              1.0000000
ggcorrplot(corr_matrix,
           hc.order = TRUE, 
           type = "lower",   
           lab = TRUE,     
           colors = c("red", "white", "blue"),
           title = "\nKorelasyon Grafigi\n") +
  theme_minimal()
## Warning: `aes_string()` was deprecated in ggplot2 3.0.0.
## ℹ Please use tidy evaluation idioms with `aes()`.
## ℹ See also `vignette("ggplot2-in-packages")` for more information.
## ℹ The deprecated feature was likely used in the ggcorrplot package.
##   Please report the issue at <https://github.com/kassambara/ggcorrplot/issues>.
## This warning is displayed once every 8 hours.
## Call `lifecycle::last_lifecycle_warnings()` to see where this warning was
## generated.