我对此很陌生，所以如果我的问题以有点不专业的方式表述，请原谅。 我想创建一个游泳者生存情节并设法完成情节，但我对细节不满意。

剧情代码如下：

library(swimplot)
library(ggplot2)
# read your file to a data.frame in R
SWIM<-read.csv('FU.csv')

#Check file headers

names(SWIM)
# name your samples ID
names(SWIM)[1] <-'ID'

#Plot swimmers graph with follow up time. Can change color (ie. col="blue","red",...)

test_plot <- swimmer_plot(SWIM,id='ID',end='FU.time',col="black",alpha=0.75,width=.8,fill='lightblue')

Progression<-read.csv('Progression.csv')
col.names <- c('ID','Time..progression','Progression')
colnames(Progression) <- col.names

progression_vec <- c("Progression 1","Progression 2","Progression 3","Progression 4","Progression 5")
col_palette_swimer <- c("blue","green","black","yellow")
num.progressions <- length(progression_vec)


desired_length <- 5 # or whatever length you want
empty_list <- vector(mode = "list",length = desired_length)

for (i in 1:5){
  help <- Progression["Progression"] == progression_vec[i]
  Progression_subset <- Progression[help,]
  if (i == 1){
    swimmerpoints1 <-swimmer_points(Progression_subset,time='Time..progression',name_shape = 
                                      'Progression',size=2.5,fill='white',col= col_palette_swimer[i])
  }
  if (i == 2){
    swimmerpoints2 <-swimmer_points(Progression_subset,col= col_palette_swimer[i])
  }
  if (i == 3){
    swimmerpoints3 <-swimmer_points(Progression_subset,col= col_palette_swimer[i])
  }
  if (i == 4){
    swimmerpoints4 <-swimmer_points(Progression_subset,col= col_palette_swimer[i])
  }
  if (i == 5){
    swimmerpoints5 <-swimmer_points(Progression_subset,col= col_palette_swimer[i])
  }
  
  
}

Prettyplot <- test_plot + swimmerpoints1 +swimmerpoints2 + swimmerpoints3 + swimmerpoints4 + swimmerpoints5

生成以下图：

带有模拟数据的游泳者生存图

您可以看到在情节中不同级数的符号是​​彩色的，但是，在图例中它们都是黄色的，有人可以帮助我如何根据图中的符号使图例着色剧情？