name<-c("A","B","C","D","A",rep("A",5),rep("B",4),rep("D",6),rep("C",3))
number<-c(1:23)
age<-c(23:45)
df<-data.frame(number,name,age)
head(df)

Check levels order

# check the level order
levels(df$name)
[1] "A" "B" "C" "D"
levels(df$name)[1]<-"Ha"
levels(df$name)
[1] "Ha" "B"  "C"  "D" 
# Way 2
levels(df$name)[df$name=="C"]<-"Cong"
levels(df$name)
[1] "Ha"   "B"    "Cong" "D"   
levels(df$name)<-c("Ha","Ban","Con","Da")
levels(df$name)
[1] "Ha"  "Ban" "Con" "Da" 
LS0tDQp0aXRsZTogIlJlcGxhY2UgbGV2ZWxzIG9mIGEgZmFjdG9yIHZhcmlhYmxlIg0KbmFtZTogIlR1eWVuIEhhIFZhbiINCm91dHB1dDogaHRtbF9ub3RlYm9vaw0KLS0tDQoNCiogVmFyaW91cyB3YXlzIG9mIHJlcGxhY2luZyBhICpsZXZlbCogaW4gdGhlIGZhY3RvciB2YXJpYWJsZQ0KDQoqIExldCdzIGNyZWF0ZSBhIGRhdGFmcmFtZSB3aXRoIHRocmVlIGNvbHVtbnMNCg0KYGBge3IgaW5jbHVkZT1UUlVFfQ0KDQpuYW1lPC1jKCJBIiwiQiIsIkMiLCJEIiwiQSIscmVwKCJBIiw1KSxyZXAoIkIiLDQpLHJlcCgiRCIsNikscmVwKCJDIiwzKSkNCg0KbnVtYmVyPC1jKDE6MjMpDQoNCmFnZTwtYygyMzo0NSkNCg0KZGY8LWRhdGEuZnJhbWUobnVtYmVyLG5hbWUsYWdlKQ0KDQpoZWFkKGRmKQ0KDQpgYGANCiANCiAgQ2hlY2sgbGV2ZWxzIG9yZGVyDQoNCmBgYHtyIGluY2x1ZGU9VFJVRX0NCg0KIyBjaGVjayB0aGUgbGV2ZWwgb3JkZXINCg0KbGV2ZWxzKGRmJG5hbWUpDQoNCmBgYA0KDQoNCiogTGV0J3MgcmVwbGFjZSAqbGV2ZWwqIGBBYCBieSBgSGFgDQoNCg0KYGBge3IgaW5jbHVkZT1UUlVFfQ0KDQpsZXZlbHMoZGYkbmFtZSlbMV08LSJIYSINCg0KbGV2ZWxzKGRmJG5hbWUpDQoNCmBgYA0KDQoqIHJlcGxhY2UgYENgIGJ5IGBDb25nYA0KDQpgYGB7ciBpbmNsdWRlPVRSVUV9DQojIFdheSAyDQoNCmxldmVscyhkZiRuYW1lKVtkZiRuYW1lPT0iQyJdPC0iQ29uZyINCg0KbGV2ZWxzKGRmJG5hbWUpDQoNCmBgYA0KDQoqIHJlcGxhY2UgYWxsIA0KDQpgYGB7ciBpbmNsdWRlPVRSVUV9DQoNCmxldmVscyhkZiRuYW1lKTwtYygiSGEiLCJCYW4iLCJDb24iLCJEYSIpDQoNCmxldmVscyhkZiRuYW1lKQ0KYGBgDQoNCg==