| 小数以下を揃える |
|
| 投稿者：コロン 2021/12/12(Sun) 12:22 No. 23172 |
お世話になっております。
早速ではございますが，小数点を揃える方法をご教示いただけますでしょうか。
mean1 <- round(mean(d[method=="〇" & personal=="〇", 3]), digits=2)
mean2 <- round(mean(d[method=="△" & personal=="△", 3]), digits=2)
mean3 <- round(mean(d[method=="■" & personal=="■", 3]), digits=2)
mean1とmean3は小数点以下が3桁以上となるため小数第2まで表示させることはできているのですが，mean2が30(.00)となり，mean1やmean3と同じように小数第2まで表示されているかと思ったら，小数点以下は表示されていませんでした。mean2の30を30.00にするにはどのようにしたら良いのでしょうか。
formatでやってみたのですが，文字列として処理されてしまっているようで，その後の四則演算でエラーが起きてしまいました。
よろしくお願い致します。 |
| Re: 小数以下を揃える |
| 投稿者：aoki 2021/12/12(Sun) 14:07 No. 23173 |
コピペして動く形で提示してください。d なんか不要で邪魔なだけです。なんの情報ももっていません。
以下のようなことなんでしょう?
> round(31.2345, digits=2)
[1] 31.23
> round(30, digits=2)
[1] 30
> round(31.45678, digits=2)
[1] 31.46
> formatでやってみたのですが，文字列として処理されてしまっているようで，その後の四則演算でエラーが起きてしまいました。
についても，実際に書いたプログラムを示してください。
sprintf は文字列に変換するものですから，その後四則演算するとエラーになるのはあたりまえですが，そもそも，その後四則演算するのなら，小数点以下2桁で丸めたのでは誤差を含むことになるので，意味がないですね。そのまま計算して，最終結果の表示のときに文字列として表示するものでしょう。
> sprintf("%.2f", 31.2345)
[1] "31.23"
> sprintf("%.2f", 30)
[1] "30.00"
> sprintf("%.2f", 31.45678)
[1] "31.46"
|
| Re: 小数以下を揃える |
| 投稿者：コロン 2021/12/12(Sun) 14:30 No. 23174 |
青木先生
申し訳ございませんでした。再度ご教示くださいませ。
使用データは次の通りで，これをdとしました。
method personal score
黒板 低 18
黒板 低 6
黒板 低 29
黒板 中 20
黒板 中 12
黒板 中 31
黒板 高 40
黒板 高 49
黒板 高 31
以下はplot等を使ったグラフとなります。このグラフに平均点を桁数を揃えて表示させたいのです。
x <- c(1, 2, 3)
mean4 <- round(mean(d[method=="黒板" & personal=="低", 3]), digits=2)
mean5 <- round(mean(d[method=="黒板" & personal=="中", 3]), digits=2)
mean6 <- round(mean(d[method=="黒板" & personal=="高", 3]), digits=2)
allmean2 <- c(mean4, mean5, mean6)
plot(x, allmean2, xaxt="n", yaxt="n", xlab="", ylab="", xlim=c(0.5, 3.5), ylim=c(0, 50), type="b", pch=2, lwd=2, lty=2, col=3)
text(x=1, mean4-3, mean4)
text(x=2, mean5+3, mean5)
text(x=3, mean6+3, mean6)
よろしくお願い致します。
|
| Re: 小数以下を揃える |
| 投稿者：aoki 2021/12/12(Sun) 15:14 No. 23175 |
No. 23173 の最後に書いていることそのままですが，以下でよいでしょう。
text(x=1, mean4-3, sprintf("%.2f", mean4))
text(x=2, mean5+3, sprintf("%.2f", mean5))
text(x=3, mean6+3, sprintf("%.2f", mean6))
なお，最近 R を書くことがメッキリ減って，
d[method=="黒板" & personal=="低", 3]
で出るエラーの理由がわからなくて焦りました。 |
| Re: 小数以下を揃える |
| 投稿者：コロン 2021/12/12(Sun) 20:54 No. 23176 |
青木先生
お休みのところ、ありがとうございます。text内で対応するわけですね。
ところで、d[method==.....のところなのですが、私のRではエラーが出ませんでしたが、何か問題がございますでしょうか。もしよろしければご指導いただけますでしょうか。 |
| Re: 小数以下を揃える |
| 投稿者：aoki 2021/12/12(Sun) 22:45 No. 23177 |
エラーが出ない？？
はてさて。
method personal score
黒板 低 18
黒板 低 6
黒板 低 29
黒板 中 20
黒板 中 12
黒板 中 31
黒板 高 40
黒板 高 49
黒板 高 31
というデータということで，わざわざ，普通のエディタを立ち上げ，そのようなデータファイルを作りました。Mac の terminal でやれば
foor [1] > cat test.dat
method personal score
黒板 低 18
黒板 低 6
黒板 低 29
黒板 中 20
黒板 中 12
黒板 中 31
黒板 高 40
黒板 高 49
黒板 高 31
ですね。
これを，reda.table で読み込んで，
> d <- read.table("test.dat", header=TRUE)
表示してみると，ちゃんと読み込めています
> d
1 method personal score
2 黒板 低 18
3 黒板 低 6
4 黒板 低 29
5 黒板 中 20
6 黒板 中 12
7 黒板 中 31
8 黒板 高 40
9 黒板 高 49
10 黒板 高 31
で，あなたが書いたようにやってみると
> d[method=="黒板" & personal=="低", 3]
Error in `[.data.frame`(d, method == "黒板" & personal == "低", 3) :
object 'method' not found
エラーになります。
しばし熟考後，以下のようなんだろうなと
> d[d$method=="黒板" & d$personal=="低", 3]
[1] 18 6 29
え〜〜と，tydyvers とか dplyr とか，ほかのナントカライブラリ，を使えばできるんでしょうか?時代遅れなので，pure な R しか使えないんです。
わざわざデータファイルを作らないといけないとか，余分なライブラリを読んでおかないといけないとか（少なくとも，私は dplyr とか tidyverse その他は，使わない），（追試してみようとする他のユーザの方のためにも）他の余分な前提条件が必要ないように提示するのがよろしいかと。（便利ならば，そのようなライブラリーを使うように奨励すればよいとは思いますが）l
つまるところは，例えば，
> d <- structure(list(method = c("黒板", "黒板", "黒板", "黒板",
"黒板", "黒板", "黒板", "黒板", "黒板"), personal = c("低",
"低", "低", "中", "中", "中", "高", "高", "高"), score = c(18L,
6L, 29L, 20L, 12L, 31L, 40L, 49L, 31L)), class = "data.frame", row.names = c(NA,
-9L))
> mean4 <- round(mean(d[d$method=="黒板" & d$personal=="低", 3]), digits=2)
> mean4
[1] 17.67
と提示すればよろしいのかなと。
逆に，
mean4 <- round(mean(d[method=="黒板" & personal=="低", 3]), digits=2)
で mean4 がなぜ求まるのかな〜〜と思ったわけです。（時代遅れ?）
|
| Re: 小数以下を揃える |
| 投稿者：aoki 2021/12/12(Sun) 23:17 No. 23178 |
長くなりましたので，総括します。
潜在回答者に負担をかけないような，具体的な質問の仕方をお願いします。
それは，あなたのためでもあるのです。 |
| Re: 小数以下を揃える |
| 投稿者：コロン 2021/12/13(Mon) 09:37 No. 23179 |
青木先生
お忙しい中，ご説明くださりありがとうございます。
はい，私の元々のコードではなぜかエラーは表示されませんでした。
先生が書いてくださったコードを見て，（関係はないのかも知れませんが）VBAの以下を思い出しました。
ws1.Range(ws1.cells(), ws1.cells())
です。
ありがとうございました。 |
| Re: 小数以下を揃える |
| 投稿者：aoki 2021/12/13(Mon) 10:58 No. 23180 |
どこか前の方で，
> method <- c("黒板", "黒板", "黒板", "黒板", "黒板", "黒板", "黒板", "黒板", "黒板")
> personal <- c("低", "低", "低", "中", "中", "中", "高", "高", "高")
とかやってませんでしたか?
そのあとで d <- dataframe(method, personal, score) としたとか。
> d[method=="黒板" & personal=="低", 3]
[1] 18 6 29
[ ] の中の method も personal も データフレーム中の method，personal ではありません。 |
| Re: 小数以下を揃える |
| 投稿者：aoki 2021/12/13(Mon) 11:06 No. 23181 |
どこか前の方で，
> method <- c("黒板", "黒板", "黒板", "黒板", "黒板", "黒板", "黒板", "黒板", "黒板")
> personal <- c("低", "低", "低", "中", "中", "中", "高", "高", "高")
とかやってませんでしたか?
そのあとで d <- dataframe(method, personal, score) としたとか。
> d[method=="黒板" & personal=="低", 3]
[1] 18 6 29
[ ] の中の method も personal も データフレーム中の method，personal ではありません。 |
|