R 在TIBLE中从右向左更改列

我有一个表格，从excel文件中读取，列名称用英语，一些变量用希伯来语。 当我读取excel文件并收到一个tibble时，列名与数据不符

我使用以下代码读取该表：

excel_file <- file.path(the file path, the file)

tab_1 <- read_xlsx(excel_file)
tab_1

---

excel\u文件您可以通过指定列索引来实现

以
iris
数据集为例

首先，更改为tibble

iris2 <- iris %>% as_tibble()

或者通过编程实现同样的功能

iris2[,ncol(iris2):1]

可以通过指定列索引来实现

以
iris
数据集为例

首先，更改为tibble

iris2 <- iris %>% as_tibble()

或者通过编程实现同样的功能

iris2[,ncol(iris2):1]

当TIBLE变得更宽（更多列）时，答案如下

> tab_1 <- tab_1[,ncol(tab_1):1]
> print(tab_1)
# A tibble: 2 x 19
  result     q     p     o     n     m     l     k     j     i     h     g     f     e     d     c     b     a
  <chr>  <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl>
1 שחור       2     4     5     6     4     6     2     1     2     5     2     3     4     4     1     2     3
2 אדום       4     3     5     5     6     3     0     3     3     4     5     3     5     3     2     5     2
  case 
  <chr>
1 שחור 
2 אדום 

>制表符1打印（制表符1）
#一个tibble:2x19
结果q p o n m l k j i h g f e d c b a
1 שחור       2     4     5     6     4     6     2     1     2     5     2     3     4     4     1     2     3
2 אדום       4     3     5     5     6     3     0     3     3     4     5     3     5     3     2     5     2
案例
1 שחור 
2 אדום 


更改回第一部分的列名
当TIBLE变得更宽（更多列）时，答案如下所示

> tab_1 <- tab_1[,ncol(tab_1):1]
> print(tab_1)
# A tibble: 2 x 19
  result     q     p     o     n     m     l     k     j     i     h     g     f     e     d     c     b     a
  <chr>  <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl>
1 שחור       2     4     5     6     4     6     2     1     2     5     2     3     4     4     1     2     3
2 אדום       4     3     5     5     6     3     0     3     3     4     5     3     5     3     2     5     2
  case 
  <chr>
1 שחור 
2 אדום 

>制表符1打印（制表符1）
#一个tibble:2x19
结果q p o n m l k j i h g f e d c b a
1 שחור       2     4     5     6     4     6     2     1     2     5     2     3     4     4     1     2     3
2 אדום       4     3     5     5     6     3     0     3     3     4     5     3     5     3     2     5     2
案例
1 שחור 
2 אדום 


更改回第一部分的列名
我通常使用tidyverse进行内容管理。select函数是一个干净的单行，通常用于反转df列。例如：

library(tidyverse)
n <- ncol(mtcars)
mtcars2 <- select(mtcars, c(n:1))

库（tidyverse）
n我通常使用tidyverse进行内容管理。select函数是一个干净的单行，通常用于反转df列。例如：

library(tidyverse)
n <- ncol(mtcars)
mtcars2 <- select(mtcars, c(n:1))

库（tidyverse）
n也可以选择使用
rev

library(dplyr)
mtcars %>%
    select(rev(names(.)))

还可以选择使用
rev

library(dplyr)
mtcars %>%
    select(rev(names(.)))

你能添加你想要的输出/结果吗？你能添加你想要的输出/结果吗？非常感谢，这是一种比我想象的更简单的解决方法。虽然当我的tibble有更多列时，它会再次从左到右打印列。@阿米达维德上述第二种方法适用于任何列数的tibble。您是否分配了输出？非常感谢，这是一种比我想象的更简单的解决方案。虽然当我的tibble有更多列时，它会再次从左到右打印列。@阿米达维德上述第二种方法适用于任何列数的tibble。您是否分配了输出？它给出了相同的结果，即对于宽TIBLE（许多列），打印的第一部分具有错误的列名打印到控制台可能会扭曲列对齐。创建修改后的df后，可以转到RStudio全局环境窗格，通过选中右侧的选择框来选择它。这将显示一个干净的df视图，并在源窗格中正确对齐。它给出了相同的结果，即对于宽TIBLE（许多列），打印的第一部分使用了错误的列名打印到控制台可能会扭曲列对齐。创建修改后的df后，可以转到RStudio全局环境窗格，通过选中右侧的选择框来选择它。这将在“源”窗格中显示一个干净的df视图，并正确对齐。@Amidavid您需要将其分配回
mtcars@Amidavid您需要将其分配回
mtcars