R 按组绘制不同的变量

我有这个数据框

ddf <-data.frame(Class=c(rep("pat",times=4),rep("stm",times=4), rep("nst",times=4)),
          Ion= c(rep("pos", times=12), rep("neg", times=12)),
   M1 =runif(24, 5.0, 7.5), M2 =runif(24, 5.0, 7.5), M3 =runif(24, 5.0, 7.5))

---

这是为了使用

facet\u wrap

为每个变量

M1

等绘制相关图。我不知道如何继续

您可以这样绘制数据

library(tidyverse)
df %>% 
  group_by(Ion) %>%
   mutate(n=1:n()) %>% 
  gather(k, v, -Class, -Ion, -n) %>% 
  spread(Ion,v) %>% 
  ggplot(aes(neg, pos, color=Class)) + 
   geom_point() + 
   facet_grid(~k)

以及相关系数

df %>% 
  group_by(Ion) %>%
  mutate(n=1:n()) %>% 
  gather(k, v, -Class, -Ion, -n) %>% 
  spread(Ion,v) %>% 
  split(.$k) %>% 
  map(~cor(.$neg, .$pos))
$M1
[1] -0.01189842

$M2
[1] -0.02646084

$M3
[1] -0.0160802

---

你想要什么样的绘图？我想做一个相关绘图这是一个复制品吗？看看它是否有帮助。部分原因是我想通过变量Ion关联特征，例如M1 pos与M1 neg等，但不是M1 pos与M2 pos

df %>% 
  group_by(Ion) %>%
  mutate(n=1:n()) %>% 
  gather(k, v, -Class, -Ion, -n) %>% 
  spread(Ion,v) %>% 
  split(.$k) %>% 
  map(~cor(.$neg, .$pos))
$M1
[1] -0.01189842

$M2
[1] -0.02646084

$M3
[1] -0.0160802