☰

選択した列を丸めるために dplyr::mutate_all を使用する方法 質問する

tag-icon • tag-icon r dplyr
選択した列を丸めるために dplyr::mutate_all を使用する方法 質問する

私は以下のパッケージバージョンを使用しています

# devtools::install_github("hadley/dplyr")
> packageVersion("dplyr")
[1] ‘0.5.0.9001’

次のティブルで:

library(dplyr)
df  <- structure(list(gene_symbol = structure(1:6, .Label = c("0610005C13Rik", 
"0610007P14Rik", "0610009B22Rik", "0610009L18Rik", "0610009O20Rik", 
"0610010B08Rik"), class = "factor"), fold_change = c(1.54037, 
1.10976, 0.785, 0.79852, 0.91615, 0.87931), pvalue = c(0.5312, 
0.00033, 0, 0.00011, 0.00387, 0.01455), ctr.mean_exp = c(0.00583, 
59.67286, 83.2847, 6.88321, 14.67696, 1.10363), tre.mean_exp = c(0.00899, 
66.22232, 65.37819, 5.49638, 13.4463, 0.97043), ctr.cv = c(5.49291, 
0.20263, 0.17445, 0.46288, 0.2543, 0.39564), tre.cv = c(6.06505, 
0.28827, 0.33958, 0.53295, 0.26679, 0.52364)), .Names = c("gene_symbol", 
"fold_change", "pvalue", "ctr.mean_exp", "tre.mean_exp", "ctr.cv", 
"tre.cv"), row.names = c(NA, -6L), class = c("tbl_df", "tbl", 
"data.frame"))

それは次のようになります:

> df
# A tibble: 6 × 7
    gene_symbol fold_change  pvalue ctr.mean_exp tre.mean_exp  ctr.cv  tre.cv
         <fctr>       <dbl>   <dbl>        <dbl>        <dbl>   <dbl>   <dbl>
1 0610005C13Rik     1.54037 0.53120      0.00583      0.00899 5.49291 6.06505
2 0610007P14Rik     1.10976 0.00033     59.67286     66.22232 0.20263 0.28827
3 0610009B22Rik     0.78500 0.00000     83.28470     65.37819 0.17445 0.33958
4 0610009L18Rik     0.79852 0.00011      6.88321      5.49638 0.46288 0.53295
5 0610009O20Rik     0.91615 0.00387     14.67696     13.44630 0.25430 0.26679
6 0610010B08Rik     0.87931 0.01455      1.10363      0.97043 0.39564 0.52364

浮動小数点数（2列目以降）を3桁に丸めたいのですが、どうすればいいでしょうか？dplyr::mutate_all()

私はこれを試しました:

cols <- names(df)[2:7]
# df <- df %>% mutate_each_(funs(round(.,3)), cols)
# Warning message:
#'mutate_each_' is deprecated.
# Use 'mutate_all' instead.
# See help("Deprecated") 

df <- df %>% mutate_all(funs(round(.,3)), cols)

しかし、次のエラーが発生します。

Error in mutate_impl(.data, dots) : 
  3 arguments passed to 'round'which requires 1 or 2 arguments

ベストアンサー1

新しいacross()関数は以前のバージョンよりも少し冗長ですがmutate_if、dplyr 1.0.0更新により tidyverse 言語とコードの一貫性と汎用性が高まります。

指定した列を丸める方法は次のとおりです。

df %>% mutate(across(2:7, round, 3))# 位置による列 2-7

df %>% mutate(across(cols, round, 3))変数で指定された列数cols

すべての数値列を小数点以下 3 桁に丸める方法は次のとおりです。

df %>% mutate(across(where(is.numeric), round, 3))

これはすべての列を丸める方法ですが、この場合は gene_symbol が数値ではないため機能しません。

df %>% mutate(across(everything(), round, 3))

where(is.numeric)の引数を入力する場所に、列 1 を除外するやacrossなどの他の列指定を入力することもできます。さらに多くのオプションについては、 を参照してください。-1-gene_symbolhelp(tidyselect)

dplyr 1.0.0 のアップデート

このacross()関数は、動詞の _if/_all/_at/_each バリアントを置き換えますdplyr。https://dplyr.tidyverse.org/dev/articles/colwise.html#既存のコードを変換する方法

mutate_if古い回答: 一部の列は数値ではないため、数値である場合に限り、列を丸めるという追加の利点を使用できます。

df %>% mutate_if(is.numeric, round, 3)

おすすめ記事