R中的绘制和循环

Question

您如何编写一个循环，以在单独的绘图上为每个模型绘制mpg vs cyl和mpg vsvs。谢谢。 PS：这只是一个示例数据集，我有100多个模型，因此，肯定需要一个循环。

enter image description here

Answer 1

不确定正是您想要实现的目标。是这样的吗？

data("mtcars")

library(tidyverse)

plots <- mtcars %>%
  rownames_to_column("model") %>%
  mutate(model = str_extract(model, "^[A-Za-z]+"))  %>%
  gather(key = "feature", value = "value", wt, vs) %>%
  group_by(model) %>%
  do(
    plots = ggplot(., aes(x = mpg, y = value)) +
      geom_point() +
      facet_wrap(~feature, scales = "free_y") +
      ggthemes::theme_few() +
      ggtitle(sprintf("Model: %s", .$model))
  ) %>%
  as.list()

plots <- set_names(plots[["plots"]], plots[["model"]])

plots[["Merc"]]