r - 在 R 中使用 ggplot2 表达三个变量之间的关系

Question

我有这样一个数据框

structure(list(cli_exp = c(1L, 1L, 2L, 1L, 1L, 0L, 2L, 0L, 1L, 
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 0L, 1L, 2L, 2L, 0L, 1L, 0L, 
1L, 1L, 2L, 0L, 1L), vcs_exp = c(0L, 0L, 1L, 0L, 0L, 0L, 0L, 
1L, 0L, 0L, 1L, 1L, 0L, 0L, 1L, 0L, 0L, 1L, 0L, 0L, 1L, 2L, 1L, 
1L, 0L, 0L, 0L, 2L, 1L, 0L), web_exp = c(2L, 2L, 2L, 1L, 0L, 
0L, 1L, 2L, 0L, 0L, 3L, 0L, 1L, 0L, 1L, 0L, 1L, 0L, 2L, 1L, 1L, 
1L, 1L, 0L, 0L, 1L, 1L, 2L, 0L, 0L)), .Names = c("cli_exp", "vcs_exp", 
"web_exp"), row.names = c(NA, 30L), class = "data.frame")

我想用ggplot2来表达这三个变量之间的关系，尝试了简单的点图

ggplot(data = data) +
    geom_point(mapping = aes(x = web_exp, y = vcs_exp, color = cli_exp))

但显然，有很多重叠的数据点，不适合点显示。有没有更好的方法？

Answer 1

我会使用 ggpairs来自 GGally 包

tmp_df <- structure(list(cli_exp = c(1L, 1L, 2L, 1L, 1L, 0L, 2L, 0L, 1L, 
                1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 0L, 1L, 2L, 2L, 0L, 1L, 0L, 
                1L, 1L, 2L, 0L, 1L), vcs_exp = c(0L, 0L, 1L, 0L, 0L, 0L, 0L, 
                1L, 0L, 0L, 1L, 1L, 0L, 0L, 1L, 0L, 0L, 1L, 0L, 0L, 1L, 2L, 1L, 
                1L, 0L, 0L, 0L, 2L, 1L, 0L), web_exp = c(2L, 2L, 2L, 1L, 0L, 
                0L, 1L, 2L, 0L, 0L, 3L, 0L, 1L, 0L, 1L, 0L, 1L, 0L, 2L, 1L, 1L, 
                1L, 1L, 0L, 0L, 1L, 1L, 2L, 0L, 0L)), .Names = c("cli_exp", "vcs_exp", 
                "web_exp"), row.names = c(NA, 30L), class = "data.frame")

library(GGally)
ggpairs(tmp_df, 
    upper = list(continuous = wrap("cor", size = 10)), 
    lower = list(continuous = "smooth"))

编辑:使用基 R 中的对

pairs(tmp_df)

使用 psych 包中的 pairs.panels

library(psych)
pairs.panels(tmp_df, 
         method = "pearson",
         density = TRUE,  
         ellipses = TRUE 
)