title: "lesson2 课后思考"
output: html_document
date: "2023-12-12"
knitr::opts_chunk$set(echo = TRUE, message = F, warning = F)
install.packages("stringr")
library(stringr) #安装stringr包
对13个小球进行编号,蓝色b1,b2……,绿色g1,g2……,黄色y1,y2(这里需跟后面y0的赋值区分开,这里是坏习惯!变量和赋值尽量用不同的字母!)
x0 <- paste0(rep("b",3), seq(1,3,1))
y0 <- paste0(rep("g",4), seq(1,4,1))
z0 <- paste0(rep("y",6), seq(1,6,1))
new_1 <- c(x0, y0, z0)
学习一下stringr包的用法:字符型向量中开头或结尾匹配查询的思想,str_starts()用于开头匹配,str_ends()用于结尾匹配,输出的结果是逻辑值,本例中相当于需要筛选出开头是b或g的所有变量,用到的还是逻辑值筛选的思想
??stringr #请直接去看example
str_starts(new_1,"b"); str_starts(new_1,"g") #运行函数看一下
new_1[c(str_starts(new_1,"b"))] #输出b开头的
new_1[c(str_starts(new_1,"g"))] #输出g开头的
第一次用Rmarkdown不太熟练orz 请大家多多提意见多多指正!有的代码写得也挺冗长的不知道怎么精简
引自生信技能树
原创声明:本文系作者授权腾讯云开发者社区发表,未经许可,不得转载。
如有侵权,请联系 cloudcommunity@tencent.com 删除。
原创声明:本文系作者授权腾讯云开发者社区发表,未经许可,不得转载。
如有侵权,请联系 cloudcommunity@tencent.com 删除。