decode

技術ブログ 本の紹介

中学校のテニス部行ってきた。R書いた。

今日は母校の硬式テニス部行ってきました。
ダブルスに混ぜてもらったらストロークはまぁまぁだったけど私のサーブで4本ダブって一ゲーム落とした。笑。
こうみえて中3の頃はダブルス県ベスト8でした。
悔しいので明日も行きます。

そしてR書きました。
前回よりも男性用、女性用のデータフレーム作ってないのでスマートです。

akaboshi 60 64 55 55 55 m
huzikawa 41 44 46 55 44 f
ishida 55 63 62 58 70 f
kakei 60 45 44 53 49 m
kanemoto 58 56 61 67 58 m
kobayashi 64 47 52 42 48 f
kondo 39 36 35 38 36 m
kubota 42 43 43 57 39 f
matsui 64 58 47 33 56 f
minagawa 49 47 46 49 54 m
murai 51 52 53 54 55 m
muto 53 50 49 51 51 m
sakamoto 54 49 48 54 53 f
sakano 55 55 58 58 59 m
sasaki 56 56 50 58 57 m
shimizu 55 56 52 53 60 f
sugisawa 62 59 51 57 53 m
takeda 58 58 52 52 62 f
toriya 56 60 57 53 58 f
yamada 59 57 54 61 54 m

これから

1 all 20 264.5000
2 f 9 263.6667
3 m 11 265.1818

これをつくるRスクリプトです。

Tapplyすげーってなったコードです。Tapply神。

score2 <- read.delim("./score2.txt", header=FALSE)
five_sub <- score2[c(2,3,4,5,6)]
total_score <- apply(five_sub[,1:5],1,sum)
gender_sum_score <- data.frame(GENDER=score2$V7,TOTAL=total_score)
gender_mean <- tapply(gender_sum_score$TOTAL,gender_sum_score$GENDER,mean)
all_mean <- mean(total_score)
Num_f <- nrow(gender_sum_score[gender_sum_score$GENDER=="f",])
Num_m <- nrow(gender_sum_score[gender_sum_score$GENDER=="m",])
Num_all <- nrow(gender_sum_score)
Mean <- c(all=all_mean,f=gender_mean["f"],m=gender_mean["m"])
Num  <- c(all=Num_all,f=Num_f,m=Num_m)
scoreO <- data.frame(NUM=Num,MEAN=Mean)
write.table(scoreO, "./scoreO.txt", quote=F, col.names=F, append=T)

まぁ今日の進捗こんだけ。のんびりしすぎ?

〜Toggl〜

ブログ 0:14:19 11:27PM–11:41PM
R 1:29:37 9:56PM–11:25PM
ベース 0:26:09 9:19PM–9:45PM
風呂ごはん 0:33:33 8:45PM–9:19PM
ごはん 0:29:07 6:50PM–7:19PM
デート 6:31:50 12:08PM–6:40PM
テニス 1:16:12 10:52AM–12:08PM
ごはん 0:06:12 10:35AM–10:41AM
R 0:33:29 10:03AM–10:37AM


〜履歴〜

11:38PM Twitter/通知 twitter.com
11:27PM Twitter twitter.com
11:27PM Twitterにログイン twitter.com
11:25PM Facebook www.facebook.com
11:25PM Toggl www.toggl.com
11:06PM Google翻訳 translate.google.com
11:06PM Google翻訳 translate.google.com
10:59PM R-Source cse.naro.affrc.go.jp
10:59PM rベクトル-Google検索 www.google.co.jp
10:59PM Google www.google.co.jp
10:58PM R-Source cse.naro.affrc.go.jp
10:58PM Google www.google.co.jp
10:36PM Google翻訳 translate.google.com
10:36PM https://translate.google.com/#ja/en/%E7%94%B7%E6%80%A7%E4%BA%BA%E6%95%B0 translate.google.com
10:21PM R-Source cse.naro.affrc.go.jp
10:21PM https://www.google.co.jp/url?sa=t&rct=j&q=&esrc=s&source=web&cd=2&cad=rja&uact=8&sqi=2&ved=0CCMQFjAB&url=http%3A%2F%2Fcse.naro.affrc.go.jp%2Ftakezawa%2Fr-tips%2Fr%2F42.html&ei=E8O8VPGHFcTVmgX4j4KgDA&usg=AFQjCNGie3WnM0X1Q3bBxVNwj9GaTzQRpg&sig2=2Z8IO3spzkMlK096S4obDw www.google.co.jp
10:20PM めっちゃ本読んだ、R書いた。-本当のkawasakikou(光属性) kkou0801.hatenadiary.com
10:20PM 記事の管理-はてなブログ blog.hatena.ne.jp
10:18PM 本当のkawasakikou(光属性) kkou0801.hatenadiary.com
10:00PM rapply-Google検索 www.google.co.jp
9:59PM https://translate.google.com/#ja/en/%E6%80%A7%E5%88%A5%E3%81%A8%E5%90%88%E8%A8%88%E5%BE%97%E7%82%B9 translate.google.com
9:59PM https://translate.google.com/#ja/en/%E6%80%A7%E5%88%A5%E3%81%A8 translate.google.com
9:59PM Google翻訳 translate.google.com
10:28AM Google翻訳 translate.google.com
9:58AM R言語複数行のデータフレームを1行に変換する方法エクセル等のデータをでR言語...-Yahoo!知恵袋 detail.chiebukuro.yahoo.co.jp
9:58AM https://www.google.co.jp/url?sa=t&rct=j&q=&esrc=s&source=web&cd=10&cad=rja&uact=8&ved=0CFYQFjAJ&url=http%3A%2F%2Fdetail.chiebukuro.yahoo.co.jp%2Fqa%2Fquestion_detail%2Fq14107202319&ei=tijMVM7fEoSB8gWu3IL4CQ&usg=AFQjCNEXM3aEIRlNajjs2pixT5CAM_8cyw&sig2=J1CYY-wpTbfTVlVvgiWVZg&bvm=bv.85076809,d.dGY www.google.co.jp
9:58AM 基礎統計学講座@ウィキ-Rの基本的な使い方 www39.atwiki.jp
9:58AM https://www.google.co.jp/url?sa=t&rct=j&q=&esrc=s&source=web&cd=9&cad=rja&uact=8&ved=0CFAQFjAI&url=http%3A%2F%2Fwww39.atwiki.jp%2Fstat_semi%2Fpages%2F16.html&ei=tijMVM7fEoSB8gWu3IL4CQ&usg=AFQjCNHq0L_fjr15v-fWm3Hrokoz2emNGw&sig2=Mt600Vd895K9OGLe-SOH0Q&bvm=bv.85076809,d.dGY www.google.co.jp
9:58AM Rで検索する際に使いそうな関数の紹介と使い方-otukutunの日記 otukutun.hatenablog.com
9:58AM https://www.google.co.jp/url?sa=t&rct=j&q=&esrc=s&source=web&cd=7&cad=rja&uact=8&ved=0CEMQFjAG&url=http%3A%2F%2Fotukutun.hatenablog.com%2Fentry%2F2012%2F07%2F27%2F160500&ei=tijMVM7fEoSB8gWu3IL4CQ&usg=AFQjCNHHYU8Mgp0XCNtGkDXV7o_GDNOqnw&sig2=TOEus0Xwx8BZwfmddVpYsw&bvm=bv.85076809,d.dGY www.google.co.jp
9:58AM 8.表データの操作-統計ソフトRの使い方 sites.google.com
9:58AM https://www.google.co.jp/url?sa=t&rct=j&q=&esrc=s&source=web&cd=4&cad=rja&uact=8&ved=0CDEQFjAD&url=https%3A%2F%2Fsites.google.com%2Fsite%2Fwebtextofr%2Foperating&ei=tijMVM7fEoSB8gWu3IL4CQ&usg=AFQjCNFO4psD21VrLWRwrNKpgMlpeTtuKA&sig2=c1k6eoFnOpdkjxuyQ-zI8w&bvm=bv.85076809,d.dGY www.google.co.jp
9:58AM R複数列-Google検索 www.google.co.jp
9:58AM r引数複数-Google検索 www.google.co.jp
9:51AM R-Source cse.naro.affrc.go.jp
9:51AM https://www.google.co.jp/url?sa=t&rct=j&q=&esrc=s&source=web&cd=1&cad=rja&uact=8&ved=0CB8QFjAA&url=http%3A%2F%2Fcse.naro.affrc.go.jp%2Ftakezawa%2Fr-tips%2Fr%2F24.html&ei=JifMVIDcAoTxmAXUpoDICQ&usg=AFQjCNHa-wrIiYqd0kGngtpvjllZCj1f8w&sig2=m9eNFyGUgaGOt7i9HcN-Pw&bvm=bv.85076809,d.dGY www.google.co.jp
広告を非表示にする