0

周波数対ルーレット ホイール スロット (または係数) をプロットするルーレット ホイール シミュレーションがありますが、% 相対周波数対係数も表示したいと考えています。

black_on_wheel = paste("B", 1:18, sep = "") 
red_on_wheel = paste("R", 1:18, sep = "")
roulette_wheel = c(red_on_wheel, black_on_wheel, "0", "00")
simulated_roulette_wheel = sample(roulette_wheel, size=500, replace = TRUE)
plot(rw_runs)
4

2 に答える 2

0 
rw_runs <- table( simulated_roulette_wheel)
str(rw_runs)
# 'table' int [1:38(1d)] 19 9 13 8 19 16 12 11 14 13 ...
# - attr(*, "dimnames")=List of 1
#  ..$ simulated_roulette_wheel: chr [1:38] "0" "00" "B1" "B10" ...
 barplot( rw_runs*100/sum(rw_runs) )
于 2012-09-19T03:22:03.643 に答える
0

@joran が指摘したように、tableandを使用できprop.tableます。

set.seed(001) # For the simulation to be reproducible.
simulated_roulette_wheel = sample(roulette_wheel, size=500, replace = TRUE)

tab <-table(simulated_roulette_wheel)                  # Frequency of each factor
prop.tab <- prop.table(tab) * 100                      # % Relative Freq.
barplot(prop.tab, xaxs='i', ylab="Relative %") ; box() # Barplot

ではbarplot、xaxs="i"バーが x 座標の原点から開始できるようになり、関数box()によってボックスがプロットに追加されます。

の最初の 10 要素はprop.tab次のようになります。

prop.tab[1:10]
simulated_roulette_wheel
  0  00  B1 B10 B11 B12 B13 B14 B15 B16 
2.4 2.8 4.6 3.4 2.2 3.0 1.8 2.4 2.2 2.2

100を掛けないprop.table(tab)と、相対パーセンテージではなく比率しか得られません。

生成された棒グラフは次のとおりです。

ここに画像の説明を入力

于 2012-09-19T06:58:24.590 に答える