R语言基础练习-向量和函数的运用
原创
date: "2024-03-08"
question
1.生成1到15之间所有偶数
2.生成向量，内容为："student2" "student4" "student6" "student8" "student10" "student12""student14"
提示：paste0
3.将两种不同类型的数据用c()组合在一起，看输出结果
4.用函数计算向量g的长度
说明：运行load("gands.Rdata"),即可得到和使用我准备的向量g和s，如有报错，说明你的代码写错或project没有正确打开
5.筛选出向量g中下标为偶数的基因名。
6.向量g中有多少个元素在向量s中存在(要求用函数计算出具体个数)？将这些元素筛选出来
提示：%in%
7.生成10个随机数: rnorm(n=10,mean=0,sd=18)，用向量取子集的方法，取出其中小于-2的值
answer
1.生成1到15之间所有偶数
seq(2,15,2)## [1] 2 4 6 8 10 12 142.生成向量，内容为："student2" "student4" "student6" "student8" "student10" "student12""student14"
提示：paste0
a=seq(2,15,2)
paste0(rep("student",7),a)## [1] "student2" "student4" "student6"
## [4] "student8" "student10" "student12"
## [7] "student14"
3.将两种不同类型的数据用c()组合在一起，看输出结果
c(1,"a")## [1] "1" "a"c(TRUE,"a")## [1] "TRUE" "a"c(1,TRUE)## [1] 1 1说明：运行load("gands.Rdata"),即可得到和使用我准备的向量g和s，
如有报错，说明你的代码写错或project没有正确打开
4.用函数计算向量g的长度
load("gands.Rdata")
length(g)## [1] 1005.筛选出向量g中下标为偶数的基因名。
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 100g[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"6.向量g中有多少个元素在向量s中存在(要求用函数计算出具体个数)？将这些元素筛选出来
提示：%in%
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
7.生成10个随机数: rnorm(n=10,mean=0,sd=18)，用向量取子集的方法，取出其中小于-2的值
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.5253845y[y<-2]#R语言默认<-为赋值 #此时y已经被赋值，不再是原来的y了，需要重新生成rnorm## [1] -5.08917y[y<(-2)]#破坏<-的组合即可## numeric(0)y[y< -2]## numeric(0)引用自生信技能树课程
原创声明：本文系作者授权腾讯云开发者社区发表，未经许可，不得转载。
如有侵权，请联系 cloudcommunity@tencent.com 删除。
原创声明：本文系作者授权腾讯云开发者社区发表，未经许可，不得转载。
如有侵权，请联系 cloudcommunity@tencent.com 删除。
评论
登录后参与评论
推荐阅读
目录