コードをより簡潔にし、繰り返しを減らすようにしていただけますか？
＃データセット「車」をロードする
データ（「車」）

＃変数の名前でベクトルを作成する
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]））
}

これは、最も簡潔で繰り返しの少ないコードです