使用 lapply 创建带有 x 标签的 ggplot2 直方图

Question

I am trying to use lapply to generate xlab histogram titles for each histogram in the function

plot.labels <- colnames(total_data[27:50])

out1 = lapply(total_data[,27:50], function(x){ggplot(data.frame(x), aes(x, fill=total_data$status,color=total_data$status)) + geom_histogram() + labs(x=plot.labels[x])})

View(plot.labels)

plot labels look normal, ex: 1 "pct_Myristic" "pct_Palmitic" "pct_Palmitelaidic"

I have seen previous answers Histograms using ggplot2 within loop and Using lapply to pass labels to ggplot2 which were helpful for me to create the intial code, and the lapply loop works well to generate all the bivariate histograms w/ ggplot2 since i can't use hist() to seperate the two groups but applying the xlab is giving me trouble. seems that the plot.labels[x] works for some but not all graphs

looks like this, some xlabs are missing histograms

Answer 1

To expand on my comment about avoiding the loop, and using mtcars as OP hasn't provided their input data...

Create a long version of the dataset.

library(tidyverse)

longData <- mtcars %>% 
              pivot_longer(
                cols=c(mpg, cyl,  disp,  hp, drat,    wt,  qsec, vs, am, gear),
                names_to="Variable",
                values_to="Value"
              )

Now create the plots.

longData %>% 
  ggplot() +
    geom_histogram(aes(x=Value, fill=as.factor(carb)), position="identity") +
    facet_wrap(~Variable)