web-dev-qa-db-ja.com

Rでtibble（）を転置する方法

Rでは、t()関数は実際には行列用です。ティブルをt()で転置しようとすると、最終的に行列になります。 tibble()を使用してマトリックスをティブルにすることはできません。結局、列名を変数として格納し、転置したバージョンのチブルを再作成しようとすると、それらをアタッチすることに時間を費やしてしまいます。

質問：最初の列が新しいチブルの列名になり、古い列名が新しいチブルの最初の列になるチブルを転置する最も簡単な方法は何ですか。

rdataframetranspose
13
Alex

ソトスが言及したように、あなたはあなたのマトリックスをtibleとして再宣言する必要があるだけです：

as_tibble(cbind(nms = names(df), t(df)))
19
Laurent

ここでの解決策： https://stackoverflow.com/a/28917212/3880322

library(dplyr)
library(tidyr)
df %>%
    gather(key = var_name, value = value, 2:ncol(df)) %>% 
    spread_(key = names(df)[1],value = 'value')
8
Rahul

私は同じ問題に直面し、上記の解決策をすべて試しましたが、実際には列の名前を保持するものはないことに気付きました。

私の意見では、これは同じことをするためのより良い方法です：

# attaching needed libraries
library(dplyr)
library(data.table)
library(tibble)

# defining the dataframe
df <- cbind.data.frame(x = rnorm(10), y = rnorm(10))

# custom function to transpose while preserving names
transpose_df <- function(df) {
  t_df <- data.table::transpose(df)
  colnames(t_df) <- rownames(df)
  rownames(t_df) <- colnames(df)
  t_df <- t_df %>%
    tibble::rownames_to_column(.data = .) %>%
    tibble::as_tibble(.)
  return(t_df)
}

# using the function
transpose_df(df)
#> # A tibble: 2 x 11
#>   rowname    `1`   `2`     `3`    `4`      `5`   `6`    `7`    `8`    `9`
#>   <chr>    <dbl> <dbl>   <dbl>  <dbl>    <dbl> <dbl>  <dbl>  <dbl>  <dbl>
#> 1 x       -1.38  0.752  1.22    0.296 -0.00298 1.50  -0.719 -0.503 -0.114
#> 2 y        0.618 0.304 -0.0559 -1.27   0.0806  0.156  0.522  0.677  0.532
#> # ... with 1 more variable: `10` <dbl>

reprexパッケージ （v0.2.0）によって2018-02-17に作成されました。

6
Indrajeet Patil