在闪亮 [R] 中上传 CSV 文件后的差异

Question

我创建了一个 fileInput，它在用户选择后直接加载 .CSV 文件[数据集]。

data <- data.frame(A=c(2.076,3.99,4.95,5.99,6.578,7.6.7),B=c(3.000,7.980,8.0001,9.001,2.000,1.056,2.789,3.546),C=c(1,1,1,2,2,1,1,1,1,2,2))

在ui.r中

library(shiny)
library(ggplot2)
shinyUI(fluidPage(
    fileInput('file', 'Choose CSV file',
            accept=c('csv', 'comma-separated-values','.csv')),
    ))

问题：我没有得到方差值

 In server.r
  library(shiny)
 library(ggplot2)

shinyServer(function(input, output,session) {

    d<-reactive({
            if (is.null(input$file))
                    return(NULL)                
            d<-read.csv(input$file$datapath)
            d <- transform(data, D= A+B, E= A-B) 
            d <- transform(data, var1 =var(D), var2= var(E))
             d
             # In table I am getting variance value as 0.00 
             })

Answer 1

你可以使用

 data <- transform(data, D= A+B, E= A-B)