```
# Cargar el dataset "cars"
data("cars")

# Crear un histograma para la variable "speed"
hist(cars$speed)

# Agregar un título al gráfico
title("Histograma de la variable speed")

# Crear un histograma para la variable "dist"
hist(cars$dist)

# Agregar un título al gráfico
title("Histograma de la variable dist")

# Mostrar ambos histogramas al mismo tiempo
par(mfrow=c(1,2))
hist(cars$speed)
title("Histograma de la variable speed")
hist(cars$dist)
title("Histograma de la variable dist")
```

このコードは、"cars "データセットをロードし、"speed "と "dist "の各変数のヒストグラムを作成します。また、対応する変数を識別するために、それぞれのグラフにタイトルを追加します。最後に、even コマンドを使って両方のヒストグラムを同時に表示します。
---------------------------------------------------------------
# Cargar el dataset "cars"
data("cars")

# Crear un histograma para la variable "speed"
hist(cars$speed)

# Agregar un título al gráfico
title("Histograma de la variable speed")

# Crear un histograma para la variable "dist"
hist(cars$dist)

# Agregar un título al gráfico
title("Histograma de la variable dist")

# Mostrar ambos histogramas al mismo tiempo
par(mfrow=c(1,2))
hist(cars$speed)
title("Histograma de la variable speed")
hist(cars$dist)
title("Histograma de la variable dist")
----------------------------------------------------------------------------------
Este código carga el conjunto de datos "cars", luego crea un histograma para cada una de las variables "speed" y "dist". También agrega un título a cada gráfico para identificar la variable correspondiente. Finalmente, muestra ambos histogramas al mismo tiempo utilizando el comando par.