date: "2024-03-08"
提示:paste0
seq(2,15,2)
## [1] 2 4 6 8 10 12 14
提示:paste0
a=seq(2,15,2)
paste0(rep("student",7),a)
## [1] "student2" "student4" "student6"
## [4] "student8" "student10" "student12"
## [7] "student14"
c(1,"a")
## [1] "1" "a"
c(TRUE,"a")
## [1] "TRUE" "a"
c(1,TRUE)
## [1] 1 1
load("gands.Rdata")
length(g)
## [1] 100
seq(2,100,2)
## [1] 2 4 6 8 10 12 14 16 18
## [10] 20 22 24 26 28 30 32 34 36
## [19] 38 40 42 44 46 48 50 52 54
## [28] 56 58 60 62 64 66 68 70 72
## [37] 74 76 78 80 82 84 86 88 90
## [46] 92 94 96 98 100
g[seq(2,100,2)]
## [1] "CRAMP1L" "PRSS8"
## [3] "CRAMP1L" "SLCO1C1"
## [5] "COMMD1" "CCT4"
## [7] "RAB7A" "ZDHHC16"
## [9] "MYL12B" "SNRPE"
## [11] "ZNF586" "GGT7"
## [13] "RAB7A" "AFG3L2"
## [15] "AC104581.1" "MPP2"
## [17] "ATP2A2" "SNRPE"
## [19] "PRSS8" "ZNF461"
## [21] "CECR5" "CLEC17A"
## [23] "ATG10" "ATG10"
## [25] "SLC25A25" "KRTAP4-3"
## [27] "SLCO1C1" "GGT7"
## [29] "GSTP1" "UBAC1"
## [31] "NYNRIN" "MYL12B"
## [33] "KCND1" "RGPD3"
## [35] "C10orf128" "SLC30A9"
## [37] "GGT7" "TUBA4A"
## [39] "KLHDC8A" "HBP1"
## [41] "MARC2" "LCP1"
## [43] "OR2D3" "LIPE"
## [45] "LIPE" "CANX"
## [47] "ATP6V1B2" "MARC2"
## [49] "LCP1" "HOOK2"
g[g%in%s] #筛选谁,谁在%in%、前
## [1] "GFM2" "SLCO1C1"
## [3] "NYNRIN" "COMMD1"
## [5] "COMMD1" "AC017081.1"
## [7] "RAB7A" "CASKIN2"
## [9] "GGT7" "SNRPE"
## [11] "RGPD3" "ZNF586"
## [13] "COMMD1" "GGT7"
## [15] "URB1" "RAB7A"
## [17] "MPP2" "AFG3L2"
## [19] "URB1" "AC104581.1"
## [21] "MPP2" "SNRPE"
## [23] "ARHGAP1" "ZNF461"
## [25] "OR2D3" "CECR5"
## [27] "SPDL1" "CLEC17A"
## [29] "ZNF461" "ATG10"
## [31] "ATG10" "ATG10"
## [33] "SLC25A25" "SLC30A9"
## [35] "SLCO1C1" "GGT7"
## [37] "CASKIN2" "GSTP1"
## [39] "MPP2" "NYNRIN"
## [41] "INTS12" "MPP2"
## [43] "RGPD3" "RGPD3"
## [45] "SLC30A9" "C10orf128"
## [47] "HBD" "SLC30A9"
## [49] "GGT7" "HEPH"
## [51] "RP5-1021I20.4" "KLHDC8A"
## [53] "HBD" "ZNF586"
## [55] "CECR5" "OR2D3"
## [57] "LIPE" "INTS12"
## [59] "LIPE" "SPDL1"
## [61] "SLCO1C1" "GGT7"
## [63] "CECR5"
table(g%in%s)
##
## FALSE TRUE
## 37 63
y=rnorm(n=10,mean=0,sd=18);y
## [1] 29.1590842 -5.0891699 -43.0178569
## [4] 20.7815177 -16.0971771 8.7616102
## [7] -0.1706527 4.9779067 14.9855935
## [10] 28.5253845
y[y<-2]#R语言默认<-为赋值 #此时y已经被赋值,不再是原来的y了,需要重新生成rnorm
## [1] -5.08917
y[y<(-2)]#破坏<-的组合即可
## numeric(0)
y[y< -2]
## numeric(0)
引用自生信技能树课程
原创声明:本文系作者授权腾讯云开发者社区发表,未经许可,不得转载。
如有侵权,请联系 cloudcommunity@tencent.com 删除。
原创声明:本文系作者授权腾讯云开发者社区发表,未经许可,不得转载。
如有侵权,请联系 cloudcommunity@tencent.com 删除。