построение и петля в R

Question

Как бы вы написали цикл , чтобы составить графики для mpg vs cyl и mpg vs vs для каждой модели на отдельном графике?Благодарю.PS: Это только примерный набор данных, и у меня есть сотни моделей, поэтому, безусловно, нужен цикл.

введите описание изображения здесь

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"]]