r - r散点图中的不同绘图符号

Question

    bweight  gestwks            hyp  sex
1   2974    38.5200004577637    0   female
2   3270    NA                  0   male
3   2620    38.150001525878899  0   female
4   3751    39.799999237060497  0   male
5   3200    38.889999389648402  1   male
6   3673    40.970001220703097  0   female

我想绘制婴儿体重 (bweight) 与妊娠期 (gestwks) 的关系图。

这是我的代码:

plot(courseworkData1$bweight ~ courseworkData1$gestwks, xlab="Gestation Period", ylab="Baby weight")

但是，我有“hyp”变量。它简称为孕产妇高血压。我想制作一个图，用不同的符号(例如正方形或其他符号)绘制患有高血压的婴儿体重。我该怎么做？

Answer 1

我们可以使用 plot 的 pch 参数来指定用于符号的变量:

编辑:

适合您的数据:

创建 MRE:

courseworkData1 <- read.table(text="ID   bweight  gestwks            hyp  sex
1   2974    38.5200004577637    0   female
2   3270    NA                  0   male
3   2620    38.150001525878899  0   female
4   3751    39.799999237060497  0   male
5   3200    38.889999389648402  1   male
6   3673    40.970001220703097  0   female", header=TRUE, stringsAsFactors=FALSE)

使用?pch我们得到可用符号的列表。然后我们只需添加一个新变量来编码所需的 key 。例如，如果我们想使用正方形(key = 0)和三角形(key = 2):

courseworkData1$symbol_key <- ifelse(courseworkData1$hyp == 0, 0, 2)
plot(bweight ~ gestwks, data=courseworkData1, 
     xlab="Gestation Period", ylab="Baby weight", pch=courseworkData1$symbol_key)
legend("bottomright", title="hyp", legend = c("0", "1"), pch = c(0,2))