clusterProfiler结果转换

富集分析的结果如GeneRatio都是字符性向量的比值对画图不友好,如何转换为数字型向量?

GO_FE_data是如上的表格

for (i in 1:length(GO_FE_data$GeneRatio)) {
  GO_FE_data$GeneRatio[i] = GO_FE_data$GeneRatio %>% str_split("/") %>% .[[i]] %>% .[1] %>% as.numeric() /
    GO_FE_data$GeneRatio %>% str_split("/") %>% .[[i]] %>% .[2] %>% as.numeric()
}