如何在R中将所有字符变量替换为数字？

Question

dbt <- structure(list(`glimepiride-pioglitazone` = c("No", "No", "No","No", "No", "No", "No", "No", "No",
   "No"), `metformin-rosiglitazone` = c("No","No", "No", "No", "No", "No", "No", "No", "No", "No"), `metformin-pioglitazone` = c("No","No", "No", "No", "No", "No", "No", "No", "No", "No"),
   change = c("No","Ch", "No", "Ch", "Ch", "No", "Ch", "Ch", "Ch", "No"),
   diabetesMed = c("No","Yes", "Yes", "Yes", "Yes", "Yes", "Yes", "Yes", "Yes", "No"),readmitted = c("NO", ">30", "NO", "NO", "NO", ">30", "NO","NO", "NO", "NO"),
   number_emergency = c(0, 0, 0, 0, 0, 0,0, 0, 0, 0),
   max_glu_serum = c("None", "None", "None", "None","None", "None", "None", "None", "None", "None")), class = c("tbl_df","tbl", "data.frame"), row.names = c(NA, -10L))

例如，我想为dbt $ readmitted分配[1,2,3]，而不是[NO，<30，> 30]，依此类推，所以我可以使用'pca'。如果可能的话，我想一次遍历所有列。