# 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
 # โหลดชุดข้อมูล "cars" data("cars") # สร้างเวกเตอร์ด้วยชื่อตัวแปร vars <- c("speed", "dist") # สร้างเวกเตอร์ด้วยสีสำหรับสีตัวแปรแต่ละสี <- c (" lightblue", "pink") # สร้าง for loop เพื่อสร้างฮิสโตแกรม par(mfrow = c(1, 2)) for (i in 1:length(vars)) { hist(cars[, vars[i] ], main = paste("Histogram of the Variable", vars[i]), xlab = vars[i], col = colours[i]) } นี่คือโค้ดที่กระชับที่สุดและซ้ำน้อยที่สุด
spam fails_task lang_mismatch pii not_appropriate hate_speech sexual_content quality toxicity humor helpfulness creativity violence