4

光沢のある.CSVファイル[データセット]をアップロードするアップロードボタンを作成しました。

dataframe <- data.frame(A=c(2,3,4,5,6,7,3,7,8,9,2),B=c(3,7,8,9,2,1,2,3,4,5,6),C=c(1,1,1,2,2,1,1,1,1,2,2))

ui.R で:

fileInput('datafile', 'Choose CSV file',
     accept=c('csv', 'comma-separated-values','.csv')),
     actionButton("uploaddata", "upload"),

データセットに対して「a+b」や「ab」などの操作を実行し、actionButton を使用してデータセットに新しい列として追加したいと考えています。

問題 1: tableOutput() 関数を使用して、shinyapp で DATA を表示しようとしましたが、代わりに R コンソールで DATA データフレームを表示しています。

server.R で:

DATA <- dataframe %>% group_by(C) %>% mutate(A) %>% 
mutate(B) %>% mutate(add = (A+B)) %>% mutate(sub = (A-B))

問題 2: (add, sub) の ggplots を作成するための入力として DATA を使用したい

4

1 に答える 1

8

次のようなことができます。

ui.R

library(shiny)

shinyUI(fluidPage(
        fileInput('datafile', 'Choose CSV file',
                accept=c('csv', 'comma-separated-values','.csv')),
        tableOutput('table'),
        plotOutput('plot')
        ))

サーバー.R

library(shiny)
library(ggplot2)

shinyServer(function(input, output,session) {

        dataframe<-reactive({
                if (is.null(input$datafile))
                        return(NULL)                
                data<-read.csv(input$datafile$datapath)
                data<- data %>% group_by(C) %>% mutate(A) %>% 
                        mutate(B) %>% mutate(add = (A+B)) %>% mutate(sub = (A-B))
                data
        })
        output$table <- renderTable({
                dataframe()
        })
        output$plot <- renderPlot({
                if(!is.null(dataframe()))
                        ggplot(dataframe(),aes(x=X,y=add))+geom_point()
        })
})

fileInputユーザーがファイルを選択すると、ファイルが直接読み込まれるため、アクション ボタンを削除しました。ではserver.R、ロードdataframeされた値はリアクティブ値に格納されdataframe()ます。テーブルをプロット/レンダリングしてデータフレームを取得するときに呼び出すことができます。

また、csv ファイルに A と B が列として含まれていることを確認するコードを作成することもできます。

于 2015-07-23T14:52:53.073 に答える