2023.4生信马拉松day2-数据类型

is.numeric()
is.logical()
is.character()

as.numeric()
as.logical()
as.character()

#(1)用 c() 结合到一起
c(2,5,6,2,9) 
c("a","f","md","b")
#当 c() 内有不同数据类型时，会自动转化成同一种，且转换优先级原则为尽量保留多的信息；

#(2)连续的数字用冒号“:” 
1:5

#(3)有重复的用rep(),有规律的序列用seq(),随机数用rnorm()
rep("x",times = 3)  
seq(from = 3,to = 21,by = 3)
rnorm(n = 3)

#(4)通过组合,产生更为复杂的向量。
paste0(rep("x",times = 3),1:3)

#(1)赋值给一个变量名
x = c(1,3,5,1) #随意的写法
x
x <- c(1,3,5,1) #规范的赋值符号 Alt+减号
x
#赋值+输出一起实现
x <- c(1,3,5,1);x
(x <- c(1,3,5,1))

#(2)简单数学计算
x+1
log(x)
sqrt(x)

#(3)根据某条件进行判断,生成逻辑型向量
x>3
x==3

#(4)初级统计
max(x) #最大值
min(x) #最小值
mean(x) #均值
median(x) #中位数
var(x) #方差
sd(x) #标准差
sum(x) #总和

length(x) #长度/函数个数，函数思想
unique(x) #去重复（从左往右看过去，第一次出现不算重复，第二次或多次出现的算重复）
duplicated(x) #对应元素是否重复
table(x) #重复值统计
sort(x) #默认从小到大排序——R语言里的默认思想
sort(x,decreasing = F)
sort(x,decreasing = T)

x = c(1,3,5,1)
y = c(3,2,5,6)
#(1)比较运算，生成等长的逻辑向量
x == y 
y == x
#以上两行返回结果完全一致，不做区分

#(2)数学计算
x + y

#(3)连接
paste(x,y,sep=",")
x>10

#paste与paste0的区别
paste(x,y)
paste0(x,y)
paste(x,y,sep = "")
paste(x,y,sep = ",")
#区别在于paste0默认连接方式为无缝连接，没有sep这个参数；paste默认连接方式为空格，有sep这个参数；

#当两个向量长度不一致
x = c(1,3,5,6,2)
y = c(3,2,5)
x == y # 啊！warning！
#循环补齐：等位运算且长度不同时发生循环补齐

#利用循环补齐简化代码——完美答案很短，但不好直观理解：
paste0(rep("x",3),1:3)
paste0("x",1:3)

#(4)交集、并集、差集
intersect(x,y)  #默认会去重复！
union(x,y)  #默认会去重复！
setdiff(x,y)   #x减y
setdiff(y,x)   #y减x
#x与y的差集和y与x的差集是不一样的！

x %in% y #看x的每个元素在y中存在吗
y %in% x #看y的每个元素在x中存在吗

#x == y和x %in% y的区别：前者是x和y对应位置一对一比较，是等位运算；后者是x每一个元素都要和y里所有的元素比一遍；

x <- 8:12
#根据逻辑值取子集
x[x == 10]
x[x < 12]
x[x %in% c(9,13)]
#根据位置取子集
x[4]
x[2:4]
x[c(1,5)]
x[-4]
x[-(2:4)]

x
#改一个元素
x[4] <- 40
x
#改多个元素
x[c(1,5)] <- c(80,20)
x

k1 = rnorm(12);k1
k2 = rep(c("a","b","c","d"),each = 3);k2
plot(k1)   # plot()默认以下标作为横坐标，以输入的向量为纵坐标进行画图
boxplot(k1~k2)  #以k1作为横坐标，以k2作为纵坐标画图