lapply

-7熱

1答えて

Rでは行列が47行と30列です。各セルには数値（0.0〜1.0の範囲）が含まれています。いくつかのセルは数値の代わりに「NA」を持っています。行ごとに、サンプル1つのランダムな値をすべて47行が一度サンプリングしたまで：これは私がやりたいものです。数値のみをサンプリングすることができます（NAは無視する必要があります）。これらの47の値をとり、平均を計算し、平均を格納します。このプロセスを

0熱

1答えて

空のファイルと空のファイルを含むリストを作成する

フォルダ内にたくさんのファイルがあり、その多くは空であり、他は空のデータです。 #Load all data in a list file_all <- list.files(file.path(getwd(), "testall"), pattern = "\\.txt$") 、私は@nrussell How to skip empty files when importing text

-1熱

1答えて

ディレクトリ内のすべてのファイルに対して関数を実行し、ファイル名をRで保存する

Rでは、各ファイルをディレクトリごとに1つずつデータフレームとして抽出し、単純なクロス列計算を実行します。元のファイル名の一部を保存しながら、結果のデータフレームをcsvとしてエクスポートします。私は、以下の4つのファイルが持っている Path/To/Directoryに例えば：各ファイルには、次のようになりますデータフレームを持ってい Prot1-Combined_Scores.csv Pr

0熱

1答えて

lapplyとinterp（アキマ）

akimaパッケージを使用してlistに格納されている多くの個人data.framesに内挿したいと思います。私の元のデータフレームに分割た： store <- split(data, data$frameID) は私が...これを試してみました results <- lapply(store, interp, x = lon, y = lat, z = precip) しかし、私はエラ

1熱

3答えて

リストから空のdataframe/data.tablesをプレースホルダdata.tableに置き換えるにはどうすればよいですか？

この投稿How do I remove empty data frames from a list?は、空のデータフレームを削除する方法について話します。空のデータフレーム（nrow = 0）をリストから削除し、1行のプレースホルダdataframes/data.tablesに置き換えるにはどうすればよいですか？ M1 <- data.frame(matrix(1:4, nrow = 2, nco

3熱

1答えて

Rはデータフレームの異なる行にある文字列を一致させます

私は条件とその値の列を持つデータフレームを持っており、条件付きのデータフレームしか持っていません。 df1: Name Style Price Style Price Style Price Gary A 100 AB 300 B 200 Johnson AB 200 B 700 A 300 Marsha AC 300 C 500 A 400 Watson

0熱

2答えて

時間で順序付けされたデータのIDと繰り返しのグループを数える

私はRで処理しているデータセットを持っています。各グループの出現順序を示す時間の経過とともにカテゴリの発生をグループ化したいと思います。データは「id」でグループ化され、「時間」によってサンプリングされ、「カテゴリ」ラベル（低、高）を持ちます。 #make example data id <- c("a", "a", "a", "a", "a", "b", "b", "b", "b", "b"

1熱

1答えて

リストに結果を追加する

私はlapplyを使って株式のリストをCAPMを使ってベータ計算に成功させる次のコードを持っています。しかし、各株式がモデルを実行した後、回帰係数（ベータ）を別のリストに追加する（またはcapmリストから抽出する）必要があります。私の問題は、appappが私のラップ関数内で動作しないということです。データリストリストに係数があることを期待しています。 library(qmao) librar

3熱

1答えて

data.tableのグループ内のすべての可能なペアを抽出します

現在、私はdata.tableを使用してグループ内で可能なすべての置換を取得することに関連する問題に苦しんでいます。私の問題を説明するために、例を示しましょう。 x <- c(1, 1, 1, 2, 2) y <- c('red', 'blue', 'black', 'orange', 'red') dt1 <- as.data.table(cbind(x,y)) dt1 x