Создание нескольких участков в R

Question

Я очень плохо знаком с R и борюсь с чем-то, что, как я знаю, должно быть простым.Я могу создать одну диаграмму рассеяния, но хотел бы создать несколько вспомогательных диаграмм, используя каждую функцию в моем наборе данных, построенную на основе переменной: per_gop.

Мой код для одной диаграммы рассеяния выглядит следующим образом:

data_US@data %>%
  ggplot(aes(x=as.numeric(Hispanic_o), y=as.numeric(per_gop)))+ 
  geom_point(aes(fill=as.numeric(gop_dem), size=as.numeric(total_vote)),colour="#525252",pch=21) +
  stat_smooth(method=lm, se=FALSE, size=1, colour="#525252")+
  scale_fill_distiller(palette="RdBu", type="div", direction=1, guide="colourbar", limits=c(-1,1))+
  theme_bw()+
  theme(legend.position="none")+
  ggtitle(paste("correlation:",round(cor.test(as.numeric(data_US@data$per_gop),as.numeric(data_US@data$Hispanic_o))$estimate,2)))

Я пытался использовать функцию сбора для этого, но я не уверен, как правильно передать ее в код для построения:

Мой код для нескольких подзаговоров выглядит следующим образом:

data_US@data %>%

  gather(c(White_alon,Black_or_A, Asian_alon,Hispanic_o,Foreign_bo,
          Veterans_2,Language_o,Homeowners,Median_val,Per_capita,Bachelors_,
          Private_no), key = "expl_var", value="la_prop") %>%

  ggplot(aes(x=??????, y=per_gop))+ 
  geom_point(aes(fill=gop_dem, size=total_vote),colour="#525252",pch=21) +
  stat_smooth(method=lm, se=FALSE, size=1, colour="#525252")+
  scale_fill_distiller("BrBG", type="div", direction=1, guide="colourbar", limits=c(-1,1))+
  facet_wrap(~expl_var, scales="free")+
  theme_bw()+
  theme(legend.position="none")+ggtitle(paste("correlation:",round(cor.test(data_US@data$per_gop,data_US@data$Persons_65)$estimate,2)))

Это стиль вывода, который я пытаюсь создать, просто без повторяющейся переменной:

Буду очень признателен, если кто-то сможетНаправь меня в правильном направлении ... Спасибо!

Answer 1

Вот воспроизводимый пример с использованием набора данных mtcars.Должна быть возможность применить ту же форму к вашим данным, но трудно узнать наверняка, не увидев пример этих данных.

library(tidyverse)
mtcars %>%
  gather(expl_var, la_prop, -mpg) %>%
  ggplot(aes(la_prop, mpg)) + 
  geom_point(colour="#525252",pch=21) +
  stat_smooth(method=lm, se=FALSE, size=1, colour="#525252")+
  facet_wrap(~expl_var, scales = "free") +
  theme_bw()+
  theme(legend.position="none")