Journey for crafting excellence: West Texas A&M University teacher educator standards development and implementation of standards for rural educators

Published

November 20, 2024

The website contains outputs and code used to analyze numeric, ordinal, and text data in Garcia et al. (2014). Reproducible materials are also posted at the Center for Open Science and Github.

Code 
demo_tbl_ft

Calculate Cronbach’s alpha

calculate_alpha <- function(data, prefix) {
  category_cols <- grep(paste0("^", prefix), colnames(data), value = TRUE)
  alpha_result <- alpha(data[, category_cols])
  cat(paste("Cronbach's alpha for", prefix, ":", format(alpha_result$total$raw_alpha, digits = 2, nsmall = 2)), "\n")
  return(alpha_result)
}

alpha_standard1 <- calculate_alpha(data, "standard1")
alpha_standard2 <- calculate_alpha(data, "standard2")
alpha_standard3 <- calculate_alpha(data, "standard3")
alpha_standard4 <- calculate_alpha(data, "standard4")
alpha_standard5 <- calculate_alpha(data, "standard5")
alpha_standard6 <- calculate_alpha(data, "standard6")

standard 1


Reliability analysis   
 raw_alpha std.alpha G6(smc) average_r S/N   ase mean   sd median_r
      0.93      0.93    0.93      0.73  13 0.021  3.4 0.92     0.73

standard 2


Reliability analysis   
 raw_alpha std.alpha G6(smc) average_r S/N   ase mean   sd median_r
      0.88      0.88    0.89       0.6 7.6 0.036  3.7 0.82     0.63

standard 3


Reliability analysis   
 raw_alpha std.alpha G6(smc) average_r S/N  ase mean   sd median_r
      0.84      0.84    0.85      0.51 5.2 0.05  3.5 0.94     0.51

standard 4


Reliability analysis   
 raw_alpha std.alpha G6(smc) average_r S/N   ase mean   sd median_r
      0.89       0.9    0.85      0.74 8.7 0.035  3.9 0.87     0.75

standard 5


Reliability analysis   
 raw_alpha std.alpha G6(smc) average_r S/N   ase mean   sd median_r
      0.81      0.82    0.85      0.44 4.7 0.056  3.5 0.76     0.45

standard 6


Reliability analysis   
 raw_alpha std.alpha G6(smc) average_r S/N   ase mean   sd median_r
      0.79      0.79    0.81      0.43 3.7 0.058  3.4 0.89     0.49

Heatmap of Semantic Similarity Between Teacher Educator Standards

Python code

Teacher Education Standard 1

Code 
create_graph <- function(data) {
  
  color_font <- c("Beginning" = "black", "Developing" = "black", "Implementing" = "black", "Maintaining" = "black", "Transforming" = "white")
  
  summary  <- data %>%
    group_by(standard, response) %>%
    summarise(Count = n(), .groups = 'drop') %>%
    group_by(standard) %>% 
    mutate(Percentage = Count / sum(Count) * 100) %>% 
    ungroup() 
  
  summary <- summary %>%
    mutate(color_font = color_font[response])
  
  ggplot(summary, aes(x = standard, y = Percentage, fill = response)) +
    geom_bar(stat = "identity", position = "fill") +
    scale_y_continuous(labels = scales::percent) +
    scale_fill_brewer(palette = "YlGnBu", breaks = c("Beginning", "Developing", "Implementing", "Maintaining", "Transforming")) +
    labs(title = "",
         x = "Standard",
         y = "Percentage",
         fill = "Response") +
    theme_minimal(base_size = 11) +
    theme(
      panel.grid.major = element_blank(),
      panel.grid.minor = element_blank(),
      axis.line = element_line(color = "#3B3B3B", linewidth = 0.3),
      axis.ticks = element_line(color = "#3B3B3B", linewidth = 0.3),
      strip.text.x = element_text(size = 11, color = "#3B3B3B"), 
      axis.text.x = element_text(size = 11, color = "#3B3B3B"),
      axis.text.y = element_text(size = 11, color = "#3B3B3B"),
      axis.title = element_text(size = 11, color = "#3B3B3B"),
      legend.title = element_text(size = 11),
      legend.text = element_text(size = 11)) +
    geom_text(aes(label = sprintf("%.1f%%", Percentage), color = color_font),
              position = position_fill(vjust = 0.5),
              size = 4) +
    scale_color_identity()
}

create_graph(S1)

Code 
ggsave("results/standard1.png")
Saving 8 x 5 in image

Teacher Education Standard 2

Code 
create_graph(S2)

Code 
ggsave("results/standard2.png")
Saving 8 x 5 in image

Teacher Education Standard 3

Code 
create_graph(S3)

Code 
ggsave("results/standard3.png")
Saving 8 x 5 in image

Teacher Education Standard 4

Code 
create_graph(S4)

Code 
ggsave("results/standard4.png")
Saving 8 x 5 in image

Teacher Education Standard 5

Code 
create_graph(S5)

Code 
ggsave("results/standard5.png")
Saving 8 x 5 in image

Teacher Education Standard 6

Code 
create_graph(S6)

Code 
ggsave("results/standard6.png")
Saving 8 x 5 in image