Я хочу построить графики для всех возможных комбинаций переменных. Мой код ниже:ggplot2: диаграммы рассеяния для всех возможных комбинаций переменных
set.seed(12345)
a <- data.frame(Glabel=LETTERS[1:7], A=rnorm(7, mean = 0, sd = 1), B=rnorm(7, mean = 0, sd = 1), C=rnorm(7, mean = 0, sd = 1))
T <- data.frame(Tlabel=LETTERS[11:20], A=rnorm(10, mean = 0, sd = 1), B=rnorm(10, mean = 0, sd = 1), C=rnorm(10, mean = 0, sd = 1))
library(ggplot2)
for(i in 2:(ncol(a)-1))
{
for(j in (i+1):ncol(a))
{
r <- 0.08
p <- ggplot(data=a, mapping=aes(x=a[, i], y=a[, j])) + geom_point() + theme_bw()
p <- p + geom_text(data=a, mapping=aes(x=a[, i], y=a[, j], label=Glabel),
size=3, vjust=1.35, colour="black")
p <- p + geom_segment(data = T, aes(xend = T[ ,i], yend=T[ ,j]),
x=0, y=0, colour="black",
arrow=arrow(angle=25, length=unit(0.25, "cm")))
p <- p + geom_text(data=T, aes(x=T[ ,i], y=T[ ,j], label=Tlabel), size=3, vjust=0, colour="red")
dev.new()
print(p)
}
}
Этот код работает нормально. Но используемый здесь метод не рекомендуется (See @baptiste comment) и не работает в функции. Я хочу знать, что является лучшим и рекомендуемым способом решения этой задачи. Заранее спасибо за вашу помощь.
Вы смотрели на ggpairs из пакета GGally? – joran
@ Joran, это хорошо, но этот вопрос сам по себе довольно интересен. Я могу приблизиться довольно легко, но ggplot требует, чтобы вы поставили объект набора данных, и я не могу с неэффективным образом сделать поддельный набор данных внутри вызова функции каждый раз, когда я его сжимаю. –
Возможно, вы можете использовать мой ответ ниже и поместить материал, который вы добавили. Пожалуйста, не изменяйте материал, если вы не говорите, что вы редактировали в потоке, как тогда будущие поисковики не поймут, почему ответы не похожи на «оригинальный» вопрос , –