使用 ggplot2 绘制输出变量和多个输入变量之间的分面相关图

debugcn 发表于 Dev

昆佩尔卡

我想显示一个输出变量和多个输入变量之间的所有相关性。

我确切地说：

我不需要明确计算相关系数
我不需要所有变量之间的完整相关矩阵：我对显示输入变量之间的相关图不感兴趣。

我可以使用循环或apply调用，但我想知道facetggplot2的功能是否有更好更优雅的解决方案。

这是一个简化的示例。我想对三个可能的相关图进行分面。

library(ggplot2)

# data
output <- c(3, 5, 8, 9, 12, 13)
input_1 <- c(1, 3, 4, 6, 8, 11)
input_2 <- c(3, 8, 2, 5, 11, 1)
input_3 <- c(14, 8, 6, 4, 2, 1)

mydf <- data.frame(output, input_1, input_2, input_3)

# First Correlation plot
ggplot(data = mydf, aes(x = input_3, y = output)) +
  geom_point() +
  geom_smooth(method = "lm")

# Second correlation plot
ggplot(data = mydf, aes(x = input_2, y = output)) +
  geom_point() +
  geom_smooth(method = "lm")

# Third correlation plot
ggplot(data = mydf, aes(x = input_3, y = output)) +
  geom_point() +
  geom_smooth(method = "lm")

昆佩尔卡

有了上面的评论（感谢@PoGibas），我使用以下代码解决。

library(ggplot2)
library(tidyr)

# Data
output <- c(3, 5, 8, 9, 12, 13)
input_1 <- c(1, 3, 4, 6, 8, 11)
input_2 <- c(3, 8, 2, 5, 11, 1)
input_3 <- c(14, 8, 6, 4, 2, 1)

mydf <- data.frame(output, input_1, input_2, input_3)

# Change data format
mydf2 <- gather(mydf, key = "key", value = "input", -output)

# Correlation plots between the output and the input variables
ggplot(mydf2, aes(input, output)) +
  geom_point() +
  geom_smooth(method = "lm") +
  facet_wrap(~ key)

本文收集自互联网，转载请注明来源。

如有侵权，请联系[email protected] 删除。