以12小时格式在R中创建时间跨度

Question

我想在R中创建一个1:24小时的跨度，所需的显示为凌晨1点，凌晨2点......中午12点，下午1点，下午2点.....午夜12点。我已经在凌晨1点11分创建了它，然后在下午12点通过循环创建它，但没有得到如何再次写下午1:11和午夜12点。如果有人可以帮助我，我将不胜感激。

x<-2017
y<-(1)
z<-"AM"
repeat{
  cat("Welcome to India",x,y,z,"\n")
  x<-x+1
  y<-y+1
  if(y<12){
    z="AM"
  }
  else{
    z="PM"
  }

  if(x>2028) break
}

提前致谢。