我有一个矢量:
c("b040_p001_e001_DMSO_01.raw", "b040_p001_e001_DMSO_02.raw",
"b040_p001_e001_DMSO_03.raw", "b040_p001_e001_DMSO_04.raw", "b040_p001_e001_DMSO_05.raw",
"b040_p001_e001_DOX_01.raw", "b040_p001_e001_DOX_02.raw", "b040_p001_e001_DOX_03.raw",
"b040_p001_e001_DOX_04.raw", "b040_p001_e001_DOX_05.raw", "b040_p001_e001_IAA_01.raw",
"b040_p001_e001_IAA_02.raw", "b040_p001_e001_IAA_03.raw", "b040_p001_e001_IAA_04.raw",
"b040_p001_e001_IAA_05.raw", "b040_p001_e001_MK1775_01.raw",
"b040_p001_e001_MK1775_02.raw", "b040_p001_e001_MK1775_03.raw",
"b040_p001_e001_MK1775_04.raw", "b040_p001_e001_MK1775_05.raw",
"b040_p001_e001_pool_01.raw", "b040_p001_e001_pool_02.raw", "b040_p001_e001_pool_03.raw",
"b040_p001_e001_pool_04.raw")
对于每个元素,我想将第4个"_"替换为"_PE".例如,对于"b040_P001_e001_DMSO_01.raw",我希望得到"b040_P001_e001_DMSO_PE01.raw".所以我需要替换,但条件是正则表达式.做这件事最优雅的方式是什么?