# 生成一个长度为n的,元素全为0的向量
zero.vector <- vector(mode = "numeric", length = n)
# 判断向量中是否有某元素
> vec <- c(1,3,2,6)
> 3 %in% vec
[1] TRUE
> 4 %in% vec
[1] FALSE
# 统计某个向量中所有元素的出现次数
# table函数
test <- c(1, 2, 3, 4, 5, 4, 3, 2, 1, 1)
t.test <- table(test) # 调用table函数
t.test
1 2 3 4 5
3 2 2 2 1
names(t.test) # 提取table中的元素
[1] "1" "2" "3" "4" "5"
class(t.test)
[1] "character"
as.numeric(t.test) #提取table中的频数
[1] 3 2 2 2 1
df.test <- as.data.frame(t.test) #转换成data.frame形式
test Freq
1 1 3
2 2 2
3 3 2
4 4 2
5 5 1
df.test[which(df.test$Freq==1), ] # 提取频数为1的元素
test Freq
5 5 1