R讀取xlsx文件并批量替換

讀取xlsx文件

install.packages("openxlsx")
library(openxlsx)
data<- read.xlsx("Lipstick.xlsx")

批量替換

install.packages("do")
library(do)
Replace(data=data,from="xxx",to=1)#將xxx替換為1，如果刪除xxx，to=""
Replace(data=data,from=c("xxx","xxxx"),to=1)#將xxx與xxxx都替換為1,如果刪除，to=""

#批量替換應(yīng)用
> lib1 <- Replace(data = lib1,pattern = c("NC_001133.9:chr01","NC_001134.8:chr02","NC_001135.5:chr03","NC_001136.10:chr04","NC_001137.3:chr05","NC_001138.5:chr06","NC_001139.9:chr07","NC_001140.6:chr08","NC_001141.2:chr09","NC_001142.9:chr10","NC_001143.9:chr11","NC_001144.5:chr12","NC_001145.3:chr13","NC_001146.8:chr14","NC_001147.6:chr15","NC_001148.4:chr16"))
filter_lib <- Replace(data=lib1,from = "TACGACGACTCACTATAGCGCGTCTCAGATC",to='')
uniqsequence_lib1 <- Replace(data=filter_lib,from = "TTTCGAGACGGCTAGTTAATGCTCACGGGC",to='')

參考文章：https://blog.csdn.net/weixin_44286888/article/details/121636122
https://blog.csdn.net/weixin_39946964/article/details/111609477?spm=1001.2101.3001.6650.2&utm_medium=distribute.pc_relevant.none-task-blog-2%7Edefault%7ECTRLIST%7ERate-2.pc_relevant_default&depth_1-utm_source=distribute.pc_relevant.none-task-blog-2%7Edefault%7ECTRLIST%7ERate-2.pc_relevant_default&utm_relevant_index=5

最后編輯于 ：
?著作權(quán)歸作者所有,轉(zhuǎn)載或內(nèi)容合作請聯(lián)系作者
【社區(qū)內(nèi)容提示】社區(qū)部分內(nèi)容疑似由AI輔助生成，瀏覽時(shí)請結(jié)合常識與多方信息審慎甄別。
平臺聲明：文章內(nèi)容（如有圖片或視頻亦包括在內(nèi)）由作者上傳并發(fā)布，文章內(nèi)容僅代表作者本人觀點(diǎn)，簡書系信息發(fā)布平臺，僅提供信息存儲服務(wù)。

相關(guān)閱讀更多精彩內(nèi)容

友情鏈接更多精彩內(nèi)容