R语言学习常用函数

> a <- c( 1,5,7,4,9 )
> which ( a == 4 ) #返回a等于4的元素的位置，位置为4
[1] 4
> which(a>5)     #返回a大于5的元素的位置，第3与第5是大于5的
[1] 3 5

> x <- c(1,3,7,NA,10) #一个含有NA值的向量
> x[x>6] #用向量的索引查看下x>6的元素
[1] 7,NA,10
>subset(x,x>6)
[1]7,10

> X <- 1:10
> Y<- ifelse(X%%2==0,1,0) #如果为偶数，返回1，奇数返回0（X %% 2 == 0：这里的%%是取模运算符，用来计算X中每个元素除以2的余数。X %% 2 == 0这个表达式检查X中的每个元素是否能被2整除（即余数是否为0）。
ifelse(X %% 2 == 0, 1, 0)：对于X中的每个元素，如果它能被2整除（即X中的偶数），则Y中的对应位置为1；如果它不能被2整除（即X中的奇数），则Y中的对应位置为0。）
> Y
[1] 0 1 0 1 0 1 0 1 0 1

> temp0 <- sample(c(5,6),50,replace=T)
> temp0
[1] 5 5 5 5 6 5 5 5 5 5 5 6 6 5 5 6 6 6 5 5 5 6 5 5 5 5 6 6 5 5 5 6
[33] 6 6 6 6 5 5 5 6 6 5 6 6 6 5 6 6 5 6
> #计算下temp0中5的出现次数
> #方法一
> temp1 <-ifelse(temp0==5,1,0)#让5等于1，不为5的等于0
> sum(temp1)
[1] 28
> #方法二
> temp2 <-temp0
> temp2[temp2==5] <- 1
> temp2[temp2==6] <- 0
> sum(temp2)
[1] 28
> #方法三
> temp3 <- which(temp0==5)
> length(temp3)
[1] 28
> length(which(temp0==5))
[1] 28

> a1 <- c(1,4,5,9)
> a2 <- c(1,4,5,9)
> a3 <- c(3,4,5,9)
> a4 <- 1:5
> a5 <- c(1,2,3,4,5)
> all(a1,a2)
[1] TRUE
Warning messages:
1: In all(a1, a2) : 将种类为'double'的参数强迫转化为逻辑值
2: In all(a1, a2) : 将种类为'double'的参数强迫转化为逻辑值
> all(a1,a3)
[1] TRUE
Warning messages:
1: In all(a1, a3) : 将种类为'double'的参数强迫转化为逻辑值
2: In all(a1, a3) : 将种类为'double'的参数强迫转化为逻辑值
> identical(a1,a2)
[1] TRUE
> identical(a1,a3)
[1] FALSE
> identical(a4,a5)
[1] FALSE

> for (i in c(1,5,7))
+   {
+   print(i^2)
+   }
[1] 1
[1] 25
[1] 49

>  for (i in c(1,5,7))
+  {
+    ifelse(i<=5,print(i^2),next)
+  }
[1] 1
[1] 25
>  for (i in c(1,5,7,8))
+  {
+    ifelse(i<=7,print(i^3),break)
+  }
[1] 1
[1] 125
[1] 343

> a<- 3
> while(a==3)
+ {
+   print(a+1)
+   a<- FALSE
+   }
[1] 4

> a <- 1
> repeat
+ {
+   a<- a+1
+   if(a>7)
+   {
+     break
+   }
+ }
> a
[1] 8

> for (i in c(1,2,3,4,5))
+ {
+  if(i<=3)
+  {
+    print(i^2)
+  }else
+  {
+    print(i^3)
+  }
+ }
[1] 1
[1] 4
[1] 9
[1] 64
[1] 125

> F <- function(a)
+ {
+   k<- a
+   return(k)
+ }
> F(3)
[1] 3
> f1 <- function(a,b)
+ {
+   d <- a-b
+   c <- a+b
+   c
+ }
> f1(3,6)
[1] 9

> b <- 5 #全局变量
> f3 <- function(x)
+ {
+   b<- 7 #局部变量，不会影响外面的b
+   b1 <- x
+   b2 <- b+b1
+   return(b2)
+ }
> f3(6)
[1] 13
> b
[1] 5
> b1 #在函数中是局部变量，函数返回结果后被删除，所以报错
错误: 找不到对象'b1'