テキストとデータを表示するRマークダウンシャイニー

Question

昨日私はRスタジオで最初のインタラクティブなマークダウン文書を書こうとしましたが、最終的にはうまくいきましたが、レンダリングプロット（）内のデータにアクセスする方法がわかりません。おそらく非常に簡単ですが、適切な例は見つけられません。何らかの魂が私を助けることがありますか？私はこのコード

--- 
title: "Eksperimentering med utvalg" 
author: "Per G. Østerlie" 
date: "15 3 2017" 
output: html_document 
runtime: shiny 
--- 

```{r setup, include=FALSE} 
knitr::opts_chunk$set(echo = TRUE) 
``` 


# CLT 


```{r} 
fisk_masse =sample(1:1000,500,replace=TRUE) 

``` 
```{r histogram, echo=FALSE} 
hist(fisk_masse, 
    main="Masse i populasjon", 
    xlab="Masse", 
    ylab="Antall", 
    border="darkgray", 
    col="lightgray", 
    xlim=c(0,1000), 
    las=1, 
    breaks=10) 
``` 

```{r, echo=FALSE} 
paste("Gjennomsnitt: ",mean(fisk_masse)) 
paste("Standardavvik: ",sd(fisk_masse)) 
``` 

# Sample 

50 fish, choose number of samples 

```{r, echo=FALSE} 
inputPanel(
    sliderInput("n_utvalg", label = "Antall utvalg", 
       min = 50, max = 800, value = 100, step = 50) 
) 
renderPlot({ 
xbar = rep(0,input$n_utvalg) 
for (i in 1:input$n_utvalg){xbar[i]=mean(sample(fisk_masse,50,replace=FALSE))} 
hist(xbar, 
    main="Gjennomsnittsmasse i stikkprovene", 
    xlab="Masse", 
    ylab="Antall", 
    border="darkgray", 
    col="lightgray", 
    #xlim=c(0,1000), 
    las=1, 
    breaks=10) 

m <-mean(xbar) 
std<-sqrt(var(xbar)) 

}) 

と中心極限定理を説明しようとしています

今私は、変数メートル（または平均値（XBAR）とstdを表示したいと思います。私は彼らが下に表示したいと思いますヒストグラム。すべての私の試みはXBARが（理にかなっている）が知られていないというメッセージになってしまう。誰もが答えに私を指示することはできますか？シャイニーで

Answer 1

パー

、あなたはどのようにと同様にテキストを描画する必要があります入力が動的であるときにプロットを描画します。したがって、additi最後にrenderPlot()にrenderText()の部分を追加する必要があります。

xbarは、いわゆるリアクティブ導体で計算することをお勧めします。反応導体の助けを借りれば、プロットとテキスト出力のために一度だけxbarを計算する必要があります。

あなたはこの実施例で、あなたの最後のチャンクを置き換えることができます。https://shiny.rstudio.com/articles/reactivity-overview.html

：あなたはこの概要記事で光沢のある反応性に関する詳細な情報を見つけることができ

```{r, echo=FALSE} 

    inputPanel(
     sliderInput("n_utvalg", label = "Antall utvalg", 
        min = 50, max = 800, value = 100, step = 50) 
    ) 
    computeXbar <- reactive({ 
    xbar = rep(0,input$n_utvalg) 
    for (i in 1:input$n_utvalg){xbar[i]=mean(sample(fisk_masse,50,replace=FALSE))} 
    xbar 
    }) 

    renderPlot({ 
    xbar <- computeXbar() 
    hist(xbar, 
     main="Gjennomsnittsmasse i stikkprovene", 
     xlab="Masse", 
     ylab="Antall", 
     border="darkgray", 
     col="lightgray", 
     #xlim=c(0,1000), 
     las=1, 
     breaks=10) 

    }) 

    renderText({ 
    xbar <- computeXbar() 
    paste(
     "The mean is: ", mean(xbar), " and the standard deviation is ", sqrt(var(xbar)) 
    ) 
    }) 

```