R将名称添加到图形x轴

我使用这个函数在r中得到一些探索性的分析

nums <- sapply(db, is.numeric)
sapply(db[,nums], function(x) {
  nome <- as.character(names(x))
  hist(x)
  lines(density(x, na.rm = T))

  })

---

nums一种方法是在列名上循环：

nums <- sapply(db, is.numeric)
numsNames <- names(db)[nums]

sapply(numsNames, function(x) {
  hist(db[,x], xlab=x)
  lines(density(db[,x], na.rm = T))
})

nums您可以使用mapply将数据和其他参数获取到hist

num <- sapply(iris, is.numeric)
opar <- par(mfrow = c(2,2))
histDensity <- function(x, ...){
  hist(x = x, freq = FALSE, ...)
  lines(density(x, na.rm = TRUE))
}
mapply(histDensity, x = iris[, num], main = names(iris[, num]))
par(opar)

num您能为db提供示例数据吗？它是一个包含数字和因子的数据库，因此分配给nums的函数将返回一个向量，该向量分别包含TRUE if numeric和FALSE factor列，我将尝试使用您的数据头为
dput
函数提供一些数据样本粘贴输出。我目前无法访问数据集，iris数据集将是相同的，因为它既有数字变量，也有非数字变量
library(reshape2)
library(ggplot2)
iris2 <- melt(iris)
ggplot(iris2, aes(x = value, y = ..density..)) + 
  geom_histogram() +
  geom_density() +
  facet_wrap(~variable)