Question

如何修改此代码以将所有绘图放在一起并在一个页面上（循环函数）？在我的实际数据集中，我想要在因变量和10个自变量之间得到散点图。因变量和每个IV之间的散点图分别。

plot(rock$area, rock$peri)
plot(rock$area, rock$shape)
plot(rock$area, rock$perm)

Answer 1

由于您使用ggplot2标记了问题，因此我假设您对ggplot2解决方案感兴趣。

rock <- data.frame(area  = sample(1:100, 10, replace = TRUE),
                   peri  = sample(1:100, 10, replace = TRUE),
                   shape = sample(1:100, 10, replace = TRUE), 
                   perm  = sample(1:100, 10, replace = TRUE))

现在我们可以使数据整洁（y变量名称的列，y变量值的另一列），并使用facets为每个y变量创建单独的图。

library(tidyr)
library(ggplot2)
rock %>% 
  gather(yvar, val, -area) %>% 
  ggplot(aes(area, val)) + 
    geom_point() + 
    facet_grid(yvar ~ .)

https://jsfiddle.net/AKMorris/kg0ddyax/

R中的几个图（特定变量与其他变量的散点图）

1 个答案: