在函数中为直方图添加标题答案

【问题标题】：Adding Title to Histogram in a Function在函数中为直方图添加标题
【发布时间】：2016-08-01 05:03:02
【问题描述】：

我做了一个简单的函数来自动绘制数据框中的所有变量。下面是代码，

V1 <- rnorm(50)
V2 <- rnorm(50)
all.data <- data.frame(V1, V2)
My_function <- function(x)
for(i in x) {
        hist(i)
}
My_function(all.data)

问题是每个直方图的标题总是 "Histogram of i" 。如果我用这个函数制作 50 个直方图，这真的会让人感到困惑。我需要知道如何解决这个问题，以便每个直方图都有它来自数据框中的列的标题。换句话说，第一个直方图的标题应该是“V1 的直方图”，而第二个直方图的标题应该是“V2 的直方图”。

【问题讨论】：

标签： r data-visualization histogram

【解决方案1】：

下面这样的怎么样？

V1 <- rnorm(50)
V2 <- rnorm(50)
all.data <- data.frame(V1, V2)
My_function <- function(x)
  for(i in 1:ncol(x)) {
    hist(x[,i], main = paste("Histogram of",colnames(x)[i]))
  }
My_function(all.data)

请注意，i 现在表示列号，而不是列本身的值。

【讨论】：