将向量中的单个标题添加到每个 R 图中

Question

对于函数，我需要将变量名称保留在向量中，并使用函数来绘制变量的密度图。

我的问题总结如下；

var_names <- c("mpg","cyl","disp","hp","drat","wt","qsec","vs","am","gear","carb")

plotter <- function(x){
  
  plot(density(x),
       main = "",
       xlab = "",
       ylab = "")
  title(var_names)
  
  
}

par(mfrow=c(4,3),mar=c(1,1,1,1))

apply(mtcars,2,plotter)

无法想象我怎么能匹配他们。

Answer 1

var_names <- c("mpg","cyl","disp","hp","drat","wt","qsec","vs","am","gear","carb")

plotter <- function(x, var){
  
  plot(density(x[[var]]),
       main = var,
       xlab = "",
       ylab = "")
}

par(mfrow=c(4,3),mar=c(2.1,2.1,2.1,1))

for(vn in var_names) plotter(mtcars, vn)

会屈服

不鼓励for循环，因为它们很慢。 然而，与绘图结合使用，这本身很慢，或者如果循环只运行了 11 次，就像在这个例子中一样， for循环非常好并且适合初学者。

如果您真的需要绘图仪的 apply-family 函数只有一个参数，则可以执行以下操作：

var_names <- c("mpg","cyl","disp","hp","drat","wt","qsec","vs","am","gear","carb")

plotter <- function(x){
  plot(density(x[[1]]),
     main = names(x),
     xlab = "",
     ylab = "")
}

par(mfrow=c(4,3),mar=c(2.1,2.1,2.1,1))

sapply(1:11,function(n) plotter(mtcars[n]))

Answer 2

我建议使用ggplot2和您拥有的名称向量的tidyverse方法。 您可以将数据格式化为更长的格式，然后过滤所需的变量。 使用 facets 和geom_density()可以避免标题问题。 这里的代码：

library(tidyverse)
#Vector
var_names <- c("mpg","cyl","disp","hp","drat","wt","qsec","vs","am","gear","carb")
#Data
mtcars %>% pivot_longer(cols = everything()) %>%
  filter(name %in% var_names) %>%
  ggplot(aes(x=value))+
  geom_density()+
  facet_wrap(.~name,scales = 'free')+
  theme_bw()

输出：