# Carga el dataset "cars"
data("cars")

# Crea un vector con los nombres de las variables
vars <- c("speed", "dist")

# Crea un vector con los colores para cada variable
colors <- c("lightblue", "pink")

# Crea un bucle for para crear los histogramas
par(mfrow = c(1, 2))
for (i in 1:length(vars)) {
  hist(cars[, vars[i]], main = paste("Histograma de la variable", vars[i]), xlab = vars[i], col = colors[i])
}

Aquí tienes el código más conciso y menos repetitivo
spam fails_task lang_mismatch pii not_appropriate hate_speech sexual_content quality toxicity humor helpfulness creativity violence