Как мне поменять данные между столбцами?

Question

Предположим, у меня есть следующие данные:

vec1 <- c(1,2,3,4,5,NA,16,17,18,19,20)
vec2 <- c(11,12,13,14,15,NA,6,7,8,9,10)
sample_df <- as.data.frame(vec1)
sample_df$vec2 <- vec2

Когда я печатаю sample_df, я получаю следующий вывод:

    vec1 vec2
1     1   11
2     2   12
3     3   13
4     4   14
5     5   15
6    NA   NA
7    16    6
8    17    7
9    18    8
10   19    9
11   20   10

Предположим, я хочу, чтобы мой вывод выглядел следующим образом:

   vec1 vec2
1     1   11
2     2   12
3     3   13
4     4   14
5     5   15
6    NA   NA
7     6   16
8     7   17
9     8   18
10    9   19
11   10   20

Как мне это сделать, не редактируя ни один из векторов?

Answer 1

Мы указываем индекс строки и меняем порядок столбцов при присваивании значений

sample_df[7:11, ] <- sample_df[7:11, rev(seq_along(sample_df))]