ここでは、コードのより簡潔で繰り返しの少ないバージョンを紹介します。


データ（「車」）

トルク（mfrow = c（1、2））
hist（cars $ speed、main = "変数 '速度'"のヒストグラム、xlab = "速度"、col = "lightblue"）
hist（cars $ dist、main = "変数 'dist'"のヒストグラム、xlab = "dist"、col = "pink"）

このバージョンでは、速度変数に対して2番目のヒストグラフが削除され、最初のグラフが変更され、同じウィンドウに速度変数とdist変数の両方が含まれています。PAR関数を使用すると、この場合は視覚化パラメーターを構成できるため、2つのグラフが単一のウィンドウに表示されます。
Aquí te muestro una versión más concisa y menos repetitiva del código:


data("cars")

par(mfrow = c(1, 2))
hist(cars$speed, main = "Histograma de la variable 'speed'", xlab = "Speed", col = "lightblue")
hist(cars$dist, main = "Histograma de la variable 'dist'", xlab = "Dist", col = "pink")

En esta versión, se ha eliminado la segunda gráfica de hist para la variable speed, y se ha cambiado la primera gráfica para incluir tanto la variable speed como la variable dist en la misma ventana. La función par permite configurar los parámetros de visualización, en este caso, para que se muestren dos gráficas en una sola ventana.