r - 私のコードでは scale_shape_manual() が機能しません

Question

ggplot を使用してプロットを思いつきました。scale_shape_manual を使用してポイントの形状を手動で変更しようとしていますが、実際には機能しません。

私が使用しているデータのヘッダー:

 visit DF    UPDRS_type            score
  <int> <chr> <chr>                 <dbl>
1     1 A     UPDRSIIItotal_imputed  20.2
2     1 C     UPDRSIIItotal_imputed  26.7
3     1 D     UPDRSIIItotal_imputed  20.7
4     1 B     UPDRSIIItotal_imputed  22.9
5    12 A     UPDRSIIItotal_imputed  21.3
6    18 C     UPDRSIIItotal_imputed  29.2

また:

unique(meanAcrossVisits$DF)
[1] "A" "C" "D" "B"
unique(meanAcrossVisits$UPDRS_type)
[1] "UPDRSIIItotal_imputed" "UPDRSIIIaxial_imputed" "UPDRSIIIlimb_imputed" `enter code here`

これは私が使用しているコードです

ggplot(meanAcrossVisits, aes(x = visit, 
                            y = score, 
                            color = UPDRS_type,
                            shape = DF,
                            group = interaction(UPDRS_type, DF))) +
  
  geom_point(size = 4) +
  scale_shape_manual(values = c(16,17,15,18)) +
  geom_line(size = 1.1) +
  
  scale_x_discrete(name = "visit ( months )",
                   limits=c(1,12,18,24,36),
                   labels=c("BL","12","18","24","36"),
                   expand = c(0.03,0.03)) +
  guides(color = guide_legend(override.aes = list(size = 3))) +
  scale_shape_discrete(name = "Cohorts" ) +
  scale_colour_discrete(name = ("motor symptom")) +
  theme(axis.text=element_text(size=16),
        axis.title=element_text(size=14,face="bold"),
        plot.title = element_text(face = "bold", hjust = 0.5, size = 20)) +
  ggtitle("Change in the motor symptoms")

この出力を与える

ggplot が次の値を認識しない理由を知っている人はいますか: scale_shape_manual(values = c(16,17,15,18))