私は平均値がmy_mean
で標準偏差がの分布でmy_x
というスコアを入力として受け取るシンプルなアプリを開発しました。出力として、アプリは、対応するz-score
がmy_x
の標準標準分布を持つラティスプロットを返します。アプリのコードはGitHubで見つけてください。私は、例えば、入力およびシェードのpnorm
グラフの相対的面積を計算することになるcheckboxInput
をチェックすることによってShinyの追加機能を呼び出す
:
さて、アプリケーションへの第2の機能を追加したいと思います。
私はグラフのコード(ここでは予期した結果の例)を書いたが、Shinyで動作させる方法を理解できない。特に、グラフを描画する最初の関数でチェックボックスを有効にして関数をアクティブにする方法を理解できません。
library(lattice)
e4a <- seq(60, 170, length = 10000)
e4b <- dnorm(e4a, 110, 15)
#z-score is calculated with the inputs listed above:
z_score <- (my_x - my_mean)/my_sd
plot_e4d <- xyplot(e4b ~ e4a,
type = "l",
main = "Plot 4",
scales = list(x = list(at = seq(60, 170, 10)), rot = 45),
panel = function(x,y, ...){
panel.xyplot(x,y, ...)
panel.abline(v = c(z_score, 110), lty = 2)
xx <- c(60, x[x>=60 & x<=z_score], z_score)
yy <- c(0, y[x>=60 & x<=z_score], 0)
panel.polygon(xx,yy, ..., col='red')
})
print(plot_e4d)
チェックボックスがオンになっているときに関数を呼び出すようにしますか? – tospig
@tospigとまったく同じです。 – Worice
それぞれの値はこのベクトルで何を表しますか: 'v = c(80,95,110)'?私はこれらが反応的な値でなければならないと思う。 – zx8754