[英]R: pairs plot of one variable with the rest of the variables
I would like to generate a correlation plot with my "True" variable pairs with all of the rest (People variables). 我想用我的“ True”变量对与其余所有变量(人变量)生成一个相关图。 I am pretty sure this has been brought up somewhere but solutions I have found do not work for me. 我很确定这已经提出来了,但是我发现的解决方案对我不起作用。
library(ggplot2)
set.seed(0)
dt = data.frame(matrix(rnorm(120, 100, 5), ncol = 6) )
colnames(dt) = c('Salary', paste0('People', 1:5))
ggplot(dt, aes(x=Salary, y=value)) +
geom_point() +
facet_grid(.~Salary)
Where I got error: Error: Column y
must be a 1d atomic vector or a list. 我从哪里得到错误:错误:列y
必须是一维原子向量或一个列表。
I know one of the solutions is writing out all of the variables in y - which I am trying to avoid because my true data has 15 columns. 我知道一种解决方案是写出y中的所有变量-因为我的真实数据有15列,所以我试图避免这种情况。
Also I am not entirely sure what do the "value", "variables" refer to in the ggplot. 我也不完全确定ggplot中的“值”,“变量”指的是什么。 I saw them a lot in demonstrating codes. 我在演示代码时看到了很多。
Any suggestion is appreciated! 任何建议表示赞赏!
You want to convert your data from wide
to long
format using tidyr::gather()
for example. 例如,您想使用tidyr::gather()
将数据wide
格式转换为long
格式。 Here is a solution using packages in the tidyverse
framework 这是在tidyverse
框架中使用包的解决方案
library(tidyr)
library(ggplot2)
theme_set(theme_bw(base_size = 14))
set.seed(0)
dt = data.frame(matrix(rnorm(120, 100, 5), ncol = 6) )
colnames(dt) = c('Salary', paste0('People', 1:5))
### convert data frame from wide to long format
dt_long <- gather(dt, key, value, -Salary)
head(dt_long)
#> Salary key value
#> 1 106.31477 People1 98.87866
#> 2 98.36883 People1 101.88698
#> 3 106.64900 People1 100.66668
#> 4 106.36215 People1 104.02095
#> 5 102.07321 People1 99.71447
#> 6 92.30025 People1 102.51804
### plot
ggplot(dt_long, aes(x = Salary, y = value)) +
geom_point() +
facet_grid(. ~ key)
### if you want to add regression lines
library(ggpmisc)
# define regression formula
formula1 <- y ~ x
ggplot(dt_long, aes(x = Salary, y = value)) +
geom_point() +
facet_grid(. ~ key) +
geom_smooth(method = 'lm', se = TRUE) +
stat_poly_eq(aes(label = paste(..eq.label.., ..rr.label.., sep = "~~")),
label.x.npc = "left", label.y.npc = "top",
formula = formula1, parse = TRUE, size = 3) +
coord_equal()
### if you also want ggpairs() from the GGally package
library(GGally)
ggpairs(dt)
Created on 2019-02-28 by the reprex package (v0.2.1.9000) 由reprex软件包 (v0.2.1.9000)创建于2019-02-28
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.