「統計学関連なんでもあり」の過去ログ--- 048

No.22000　Ｒ　str()関数の結果の取り出し、整形出力　　【明石】　2016/05/13(Fri) 21:51

青木先生　様；

お忙しいところを失礼いたします，明石と申します。
過日は，ご丁寧なご教示をいただき，誠にありがとうございました。
改めて，御礼を申し上げます。

データフレームの構造は，str()関数で取得することができます。

以下に簡単な例でお示しをしますように，
str()関数の結果から，列の名前と型を，2列のデータフレームとして出力したいと思います。

str()関数の結果の取り出し方法が分からないため，作成することができません。

何卒，ご教示をよろしくお願いいたします。
失礼いたします。

> str(dat)

'data.frame':   1000 obs. of  9 variables:
 $ sid      : chr  "X100111" "X100115" "X100123" "X100143" ...
 $ name     : chr  "安田博美" "木村克己" "桜井真二" "入江優秀" ...
 $ gender   : Factor w/ 2 levels "女","男": 1 2 2 2 1 2 1 1 1 2 ...
 $ BirthDay : Date, format: "1999-12-09" "1981-07-21" ...
 $ BloodType: Factor w/ 4 levels "A","AB","B","O": 3 1 3 4 4 4 2 1 4 3 ...
 $ class    : Factor w/ 3 levels "1","2","3": 3 2 2 3 2 1 3 1 1 1 ...
 $ score1   : num  3.3 4.1 3 1.9 3.6 2.6 4.5 4 2 3.2 ...
 $ score2   : num  3.3 4.1 2.5 3 4.4 2.8 3.9 3.8 3.1 4.8 ...
 $ score3   : num  2.5 3.8 3.9 3.3 3 3.1 4.4 4.1 2.8 4.8 ...

⇒　以下のような，データフレームを作成したいと思います。

名前, 型
sid, chr
name, chr
gender, Factor
BirthDay, Date
BloodType, Factor
class, Factor
score1, num
score2, num
score3, num

何卒どうぞ，よろしくお願いいたします。

No.22001　Re: Ｒ　str()関数の結果の取り出し、整形出力　　【青木繁伸】　2016/05/14(Sat) 05:12
a = data.frame(names(iris), sapply(iris, class))
colnames(a) = c("名前", "型")
print(a, row.names=FALSE)
などはどうでしょうか

No.22002　Re: Ｒ　str()関数の結果の取り出し、整形出力　　【明石】　2016/05/14(Sat) 05:40

青木先生　様；

お忙しいところを失礼いたします，明石と申します。
ご教示をいただき，誠にありがとうございました。

いつもながら，研ぎ澄まされたエッセンス！

勉強になりました。

sapply　についても，勉強させていただきます。

心から御礼を申し上げます。