Создание нескольких подзаголовков в R
Я новичок в 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)))
Это стиль вывода, который я пытаюсь создать, только без повторяющейся переменной:
Буду очень признателен, если кто-нибудь подскажет мне верное направление ... Спасибо!
Вы смотрели ?ggpairs?
Вы смотрели ?melt? Если вы переплавили те атрибуты, которые у вас gather(), из расширенной формы в длинную, вы могли бы использовать ?ggplot2::facet_wrap или ?ggplot2::facet_grid.
Ответы 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")
Спасибо, это было то направление, которое мне было нужно!
Вам будет легче помочь, если вы включите простой воспроизводимый пример с образцом ввода и желаемым выводом, который можно использовать для тестирования и проверки возможных решений.