apply

0熱

1答えて

Dplyr突然変異体Dapply/Lapplyを用いて複数のzスコアを2つのグループで数える

複数の変数のZスコアを2つのグループで数えようとしています。ここでは例です：データ=のmtcars 私はZスコアを取得したい変数：1つの変数（作業）のためのZスコアを数える vars <- c("mpg", "disp", "hp", "drat", "wt", "qsec") ： mtcars %>% group_by(am, vs) %>% mutate(z_mpg = (mpg - me

0熱

1答えて

R適用とループ計算

この適用が正しく機能しない理由を誰かが説明できますか？私は、各行のすべての値を各行の値の合計で正規化したかったので、各行の合計= 1でした。しかし、これを適用関数を使って実行した場合、答えは正しくありません。 data <- data.frame(Sample=c("A","B","C"),val1=c(1235,34567,234346),val2=c(3445,23446,234235),va

1熱

2答えて

グループ化変数のリストに対する列の集約

ID 1,2および3とVALUE列を持つdata.tableがあるとします。統計を計算したいサブセットを定義するこれらのIDの順列のリストもあります。例えば。 library(data.table) DT <- data.table(ID = c(1,1,2,2,3,3),VALUE = c(1,2,10,20,100,200)) permutations <- list(c(1,2),c(2

0熱

3答えて

Rの新しい列の2つの列を合計する場合のみNa

2つの列を合計したい場合は、列「apinten」と「apmod」とします。私はそれをやった瞬間のために...私はNaが唯一の二つの列の中に存在する場合にRをNaを無視したいが、私は、2つの列がNAの場合、「ナ」を報告したい： etude1<-within(etude1,{mvpascore<-rowSums(cbind(apinten,apmod), na.rm = T, dims = 1)})

0熱

2答えて

なぜ適用すると、引数に使用する配列の最初の要素をスキップしますか？

プロトタイプにオブジェクトリテラルを追加しています。私は、オブジェクトのプロパティを取得し、値を配列に入れることで、これを実行しています。次に、コンストラクタを使用して配列を引数として新しいオブジェクトを作成します。唯一の問題は、新しいオブジェクトを作成するときに配列の最初の要素をスキップしているため、新しいオブジェクトの間違った値に間違った値を割り当てることです。空の。デバッガでは、配列とコ

2熱

1答えて

引数として複数の列を使用する関数を適用すると、関数はdata.frameを返します。

データフレームの複数の列を引数として使用する関数を適用しようとしています。ここではforループを使うことができますが、これを行う方法が他にあるかどうかを確認したい場合ここでは簡単な例を示します。私の元の問題はやや複雑です。 DF1<-data.frame(start=seq(from=1, to=5, by=1),end=seq(from=10, to=14, by=1)) rep_fun

2熱

2答えて

適用ファミリを使用して新しい列を作成

私のデータフレームには文字列があります。私は自分自身で作成した関数を使って、既存の文字列から新しい列を作成したいと思います。 My機能 lat_finder <- function(coord){ return(as.numeric(substr(strsplit(coord,",")[[1]][1],2,10)))} テストデータフレーム私はこの test['Lat'] <- lapply

-1熱

3答えて

関数を実装するのに手助けが必要ですR

私はこの形式で出力を定期的に取得し、Excelで1つ1つコピー＆ペーストする必要があるため、スクリプトを活用するような方法でコードを作成しようとしています雑用。しかし、私はそれが機能を実装することになると固執しています。だから、私のデータは次の形式である： Condition Sample1 Sample2 .... Sample n T1 6.99 5.80 .... n_1 T2

-1熱

1答えて

データフレーム：機能は適用しない - "UnboundLocalError：代入する前に、参照ローカル変数 'MONTH_NAME'" の下

が私のコードです：これは私が受け取るエラーです： UnboundLocalError: local variable 'month_name' referenced before assignment

0熱

1答えて

シーケンスの変更をどのように追跡できますか？

私はLO_SEQ_NOを追跡したいと思っています。変更前と変更後に現在変更を受けています。私は "LO_SEQ_NO lse 358 0 478 1 478 0 478 0 478 0 として置いて取得ステータス変更 loan_test$lse <-with(loan_test, as.integer(c(FALSE, LO_SEQ_