2つのランダムサンプルで構成される新しい変数を作成する

Question

私の目標は、2つの棒グラフを持つ1つのプロットを作成することです.1つはフィルタリングされたデータセット、もう1つはフィルタリングされません。プロットを出力すると、ワイドバーが1つあります。 mysampleとmysample2を新しい変数に組み込み、それをx軸にプロットする必要があると私は信じています。誰かが別のアイデアを持っている場合は、私に知らせてください、私は本当にこれを行う方法に固執しています。

また、私はx = input $ obsが完全に間違っていることを知っていますが、他に何を試していいのか分かりませんでした。

filtered = readxl::read_excel("/Filter.xlsx") 
unfiltered = readxl::read_excel("/Unfilter.xlsx") 

UI：

ui = fluidPage(
    sliderInput("obs", "Number of Observations", value = 550, min = 100, max = 1000), 
    plotOutput("filter") 
) 

サーバー：私はあなたが正しいと思います

server = function(input, output) { 
    output$filter = renderPlot({ 
    mysample = filtered[sample(1:nrow(filtered), input$obs, 
          replace=FALSE),] 
    mysample2 = unfiltered[sample(1:nrow(unfiltered), input$obs, 
          replace=FALSE),] 


    ggplot(NULL, aes_string(x = input$obs)) + 
    geom_col(data = mysample, aes(y = Net_Return)) + 
    geom_col(data = mysample2, aes(y = Net_Return)) + 

    labs(y = "Net Return") + 
    theme_bw() + 
    scale_y_continuous(labels = scales::dollar)  
}) 
} 

Answer 1

。フィルタリングされたデータとフィルタされていないデータの両方を持つ単一のデータフレームが必要です。

server = function(input, output) { 
    output$filter = renderPlot({ 
    mysample = filtered[sample(1:nrow(filtered), input$obs, 
          replace=FALSE),] 
    mysample2 = unfiltered[sample(1:nrow(unfiltered), input$obs, 
          replace=FALSE),] 
    tbl = bind_rows(filtered = mysample, unfiltered = mysample2, 
    .id="type") 


    ggplot(tbl, aes(x = type)) + 
    geom_col(aes(y = `Net Return`)) + 
    labs(y = "Net Return") + 
    theme_bw() + 
    scale_y_continuous(labels = scales::dollar)  
}) 
}