Rで複数行の平均を求める

前提・実現したいこと

「R」でイールドカーブの主成分分析を行っています。
「ファイナンスのためのRプログラミング」2.5　主成分分析によるイールドカーブ分析のコードを写経する際に以下のエラーメッセージが発生しました。
実現したいことは、1回で複数行の平均を求めることです。

発生している問題・エラーメッセージ

エラーメッセージ
警告メッセージ:
mean.default(data[, 2:14]) で:
引数は数値でも論理値でもありません。NA 値を返します

該当のソースコード

data <- read.csv("jgbdata.csv")
Mean <- mean(data[,2:14])

「R」

### 試したこと

財務省「[国債金利情報](https://www.mof.go.jp/jgbs/reference/interest_rate/index.htm)」の「過去の金利情報（昭和49年（1974年）～）」からデータをダウンロードし、基準日の日付と国債満期期間の金利のデータ（1年～40年）の部分を切り取り、「jgbdata.csv」にデータを上書きし、コードを実行しました。

### 補足情報（FW/ツールのバージョンなど）

ここにより詳細な情報を記載してください。

行動規範の内容に同意します

回答2件

ベストアンサー

求めたいのは各行の平均ではなく列ごとの平均ですね。

meanの対象がデータフレームのままだとうまくいかないようです。

sapply(data, function(x){mean(unlist(x))})

投稿2019/05/27 04:28

KojiDoi

総合スコア13671

読み込んだ際に、データの型がを明示的に指定していないことが原因のように見えます。

https://qiita.com/dokokano_panda/items/f12d1d2e4c7f63020440

data <- read.csv("jgbdata.csv", header=F,colClassed="numeric")

のような具合にやれば良さそうですが、「-」というデータも含まれるようなので、
この辺は事前加工が必要かもしれません。または、集計対象の列のみ、読み込んだ後にas.numeric で必要なカラムを変換するとか。

投稿2019/05/27 02:13

tetsunosuke

総合スコア1292

qs05t

2019/05/27 02:28

「-」というデータはあらかじめ事前加工をしていて、sapply(data, class)を実行したら、 Date X1 X2 X3 X4 X5 X6 "factor" "numeric" "numeric" "numeric" "numeric" "numeric" "numeric" X7 X8 X9 X10 X15 X20 X25 "numeric" "numeric" "numeric" "numeric" "numeric" "numeric" "numeric" X30 X40 "numeric" "numeric" という結果が得られました。