R语言中rev函数（逆向输出）

 

1、测试1

> a <- 1:10
> a
 [1]  1  2  3  4  5  6  7  8  9 10
> rev(a)      ## 逆向输出a
 [1] 10  9  8  7  6  5  4  3  2  1

 

> a <- c("aaa", "bbb", "ccc", "ddd")
> a
[1] "aaa" "bbb" "ccc" "ddd"
> rev(a)     ## 逆向输出a
[1] "ddd" "ccc" "bbb" "aaa"

 

2、在数据框（矩阵中的应用）

> a <- 1:5
> b <- letters[1:5]
> c <- LETTERS[1:5]
> d <- data.frame(a, b, c)
> d
  a b c
1 1 a A
2 2 b B
3 3 c C
4 4 d D
5 5 e E
> d[rev(1:nrow(d)),]   ## 按行逆向输出
  a b c
5 5 e E
4 4 d D
3 3 c C
2 2 b B
1 1 a A
> d[,rev(1:ncol(d))]   ## 按列逆向输出
  c b a
1 A a 1
2 B b 2
3 C c 3
4 D d 4
5 E e 5
> d[rev(1:nrow(d)), rev(1:ncol(d))]   ## 同时按行、列进行逆向输出
  c b a
5 E e 5
4 D d 4
3 C c 3
2 B b 2
1 A a 1