我有一个看起来像这样的数据框：
| 姓名 | 类型 |
|---|---|
| 州立医院治疗中心 | 医院 |
| 治愈中心州立医院 | 医院 |
| 州立综合医院治疗中心 | 中心 |
| 州立医院主要分配器 | 分散器 |
| 第一医院第一 | 医院 |
我还有一份不同类型医疗机构的清单：
types_list <- c("hospital", "center", dispancer", "polyclinic")
如果它与类型列不一致，我想做的是从列表中删除类型之前的所有内容。
期望的输出是：
| 姓名 | 类型 | 之后的名字 |
|---|---|---|
| 州立医院治疗中心 | 医院 | 公立医院 |
| 治愈中心州立医院 | 医院 | 公立医院 |
| 州立综合医院治疗中心 | 中心 | 治疗中心 |
| 州立医院主要分配器 | 分散器 | 主距离 |
| 第一医院第一 | 医院 | 第一医院第一 |
你知道怎么做吗？
数据框的数据：
Name <- c("state hospital cure center","cure center state hospital","state polyclinic cure center","state hospital main dispancer","first hospital number one",)
Type <- c("hospital", "hospital", "center", "dispancer", "hospital")