带循环的x，y和color = category的ggplot矩阵

2024-05-03 • 问答

我正在尝试运行一个简单的图列表，以评估我在R中的分配的正确线性回归模型。基本上在11列中，第1列是y，不同的x = 3:11列是theta或y所依赖的变量。第2列的分类值基本上为1-9（9个分类）。

我正在尝试创建图形矩阵。我可以一张一张地做图，这应该与分配一起工作，但是我试图使用一个循环来完成它。代码如下：

第一列是y，因变量和第3-11列是变量。如果我根据第2列省略了着色，则可以使用基准图完成着色。如果我尝试上面的代码，我将无计画

par(mfrow(3,3))
for(i in 3:11){
  ggplot(hd,aes(x=hd[1,],y=hd[,i],color=hd[,2]))+
  geom_point()
}

编辑：这是可重现的数据

library(dplyr)
library(ggplot2)
hd=data(economics)

par(mfrow(2,2))
    for(i in 3:6){
      ggplot(hd,aes(x=hd[3,i])+
      geom_point()
    }

这没有颜色分类，但是如果我可以使用它，我可以添加color = column参数

如果我了解您的要求，则应执行以下操作。首先，制作一些可复制的数据，大致与您描述的内容相同：

library(magrittr)
library(tidyverse)
data <- tibble(y = rnorm(10),category = factor(sample(1:9,10,replace = TRUE))) %>% 
  inset(paste0("x",1:11),value = rnorm(110)) %>%
  pivot_longer(-c(y,category),names_to = "x_name",values_to = "x")

数据如下：

# A tibble: 6 x 4
      y category x_name      x
  <dbl> <fct>    <chr>   <dbl>
1  1.84 6        x1      1.06 
2  1.84 6        x2      0.744
3  1.84 6        x3     -1.19 
4  1.84 6        x4      1.88 
5  1.84 6        x5      2.16 
6  1.84 6        x6     -1.58

然后您可以在此处使用facet_wrap为每个x_name创建一个带有面板的网格。我添加了geom_smooth是很不错的选择：

ggplot(data,aes(x = x,y = y)) +
  geom_point(aes(colour = category)) +
  facet_wrap(~x_name) +
  geom_smooth(method = "lm")

我也建议您提供一个可复制的示例。

ggplot代替了“ par（mfrow）”，使用了facetting的概念。在这里看看：ggplot facetting

library(tidyr)
library(dplyr)
library(ggplot2)

# assuming the names of your dataframe hd are like this:
names(hd) = c('y','cat','x1','x2','x3','x4','x5','x6','x7','x8','x9')

# then,the following code could solve your problem:
hd %>% 
  pivot_longer(x1:x9,names_to=var_x,values_to=val_x) %>% 
  ggplot(hd,aes(x=y,y=val_x,colour=cat)) +
  geom_point() +
  facet_wrap(~var_x,ncol=3)

带循环的x，y和color = category的ggplot矩阵

huozong 回答：带循环的x，y和color = category的ggplot矩阵

大家都在问