r - 用ggplot上的主题名称替换点形状

Question

我试图使用 ggplot 来制作具有以下需求的情节。

1. 使用分数来指定主题。
2. 使用颜色来指定模型。我有 6 个模型，所以每个主题应该在情节上出现 6 次。

该情节预计如下所示：

我可以使用颜色来指定模型，但找不到将主题指定为点形状的方法。

示例数据

structure(list(subject = c("S1", "S8", "S3", "S9"), alphamean = c(0.224104019995071, 
                                                                       0.195354811041001, 0.5675953626788, 0.491972414993715), lambdamean = c(0.35985383877637, 
                                                                                                                                              0.268124038994992, 0.92122181060701, 0.43561465728315), model = c("a", 
                                                                                                                                                                                                                "b", "c", "d")), row.names = c(NA, -4L), class = c("data.table", 
                                                                                                                                                                                                                                                                   "data.frame"))

我的尝试

data %>%
  ggplot(aes(x = alphamean, y = lambdamean)) +
  geom_point(aes(color=model,shape=subject)) +
  scale_shape_manual(values = paste0('S',1:40))

Answer 1

您可以使用geom_text而不是geom_point：

library(ggplot2)
library(magrittr)

data %>%
  ggplot(aes(x = alphamean, y = lambdamean)) +
  geom_text(aes(color=model,label=subject))