创建一个数据框，并使用它来绘制直方图。

下面是一个示例代码，展示如何创建一个数据框并使用它来绘制直方图：

# 创建一个数据框
data <- data.frame(
  age = c(25, 30, 35, 40, 45, 50, 55, 60, 65, 70),
  weight = c(65, 70, 75, 80, 85, 90, 95, 100, 105, 110)
)

# 绘制直方图
hist(data$age, main = "Age Distribution", xlab = "Age", ylab = "Frequency", col = "blue")

这段代码创建了一个数据框 data，其中包含了两列数据 age 和 weight。然后使用 hist() 函数绘制了数据框中 age 列的直方图。main 参数用于设置图表的标题，xlab 参数用于设置 x 轴的标签，ylab 参数用于设置 y 轴的标签，col 参数用于设置直方图的颜色。

运行这段代码后，会生成一个直方图，展示了 age 列的分布情况。