＃データセット「車」をロードする
データ（「車」）

＃変数の名前でベクトルを作成する
vars <-c（ "speed"、 "dist"）

＃各変数の色のベクトルを作成します
色<-c（ "lightblue"、 "pink"）

＃forループを作成して、ヒストグラムを作成します
トルク（mfrow = c（1、2））
for（i in 1：length（vars））{
  hist（cars [、vars [i]]、main = paste（ "変数ヒストグラム"、wars [i]）、xlab = vars [i]、col = colors [i]））
}

これは、最も簡潔で繰り返しの少ないコードです
# 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