四个变量的散点图的R代码

Question

我试着为每个按种族分组的孩子绘制ASB与YOI

我得到了类似的东西：

library(tidyverse)
Antisocial <- structure(list(Child = c(1L, 1L, 1L, 2L, 2L, 2L, 3L, 3L, 3L,  4L), ASB = c(1L, 1L, 1L, 0L, 0L, 0L, 5L, 5L, 5L, 2L), Race = c(1L,  1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L), Y92 = c(0L, 1L, 0L, 0L,  1L, 0L, 0L, 1L, 0L, 0L), Y94 = c(0L, 0L, 1L, 0L, 0L, 1L, 0L,  0L, 1L, 0L), YOI = c(90L, 92L, 94L, 90L, 92L, 94L, 90L, 92L,  94L, 90L)), row.names = c(NA, 10L), class = "data.frame")
ggplot(data = Antisocial, aes(x = YOI, y = ASB)) + 
geom_point( colour = "Black", size = 2) + 
geom_line(data = Antisocial, aes(x= Child), size = 1) +
facet_grid(.~ Race)

我生成的绘图图像：https://drive.google.com/file/d/1sZVsRFiGC0dIGg0GWhHhNDCaiW2iB-ky/view?usp=sharing

完整数据集-https://drive.google.com/file/d/1UeVTJ1M_eKQDNtvyUHRB77VDpSF1ASli/view?usp=sharing

我想使用两张并排的图表Race=0，Race=1来绘制按种族分组的每个孩子的ASB与YOI。然而，这条线应该只连接到同一个孩子的点。就像现在一样，所有的点都是相连的。此外，YOI的规模应该是(90，94(。

你能建议我该换什么零钱吗？

谢谢！

Answer 1

感谢您提供数据。我将4个观测值更改为种族0，以进行一些更改：

library(tidyverse)
Antisocial <- structure(list(Child = c(1L, 1L, 1L, 2L, 2L, 2L, 3L, 3L, 3L,  4L), ASB = c(1L, 1L, 1L, 0L, 0L, 0L, 5L, 5L, 5L, 2L), Race = c(1L,  1L, 1L, 1L, 1L, 0L, 0L, 0L, 0L, 1L), Y92 = c(0L, 1L, 0L, 0L,  1L, 0L, 0L, 1L, 0L, 0L), Y94 = c(0L, 0L, 1L, 0L, 0L, 1L, 0L,  0L, 1L, 0L), YOI = c(90L, 92L, 94L, 90L, 92L, 94L, 90L, 92L,  94L, 90L)), row.names = c(NA, 10L), class = "data.frame")

ggplot(data = Antisocial, aes(x = YOI, y = ASB, , group = Child)) + 
geom_point( colour = "Black", size = 2) + 
geom_line()+
facet_grid(.~ Race)

要连接每个子项的点，需要在代码中包含group = Child。我想这就是你想要的？如果这解决了你的问题，请告诉我：(