Warning: file_get_contents(/data/phpspider/zhask/data//catemap/4/r/67.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
R 将数字输入到数据框中_R_Shiny - Fatal编程技术网

R 将数字输入到数据框中

R 将数字输入到数据框中,r,shiny,R,Shiny,如果以前有人问过这个问题,我很抱歉,但通过四处搜索,我还没有完全找到我想要的东西 我正在开发一个小应用程序,从辩论活动中获取分数,并将这些分数绘制成散点图。我已经知道了如何实际制作情节,但将数据输入其中是另一回事。 我所有的输入都是一个数字输入,有一个唯一的输入ID,但我没有运气把数据放到它自己的框架中 我试着制作几个不同的集合,然后将所有集合编译成一个框架(使用name1),鉴于您的问题描述不太清楚,也没有准确显示您需要什么,我建议: 一个应用程序,它接受6个数字输入,将所有数据合并到一个有两

如果以前有人问过这个问题,我很抱歉,但通过四处搜索,我还没有完全找到我想要的东西

我正在开发一个小应用程序,从辩论活动中获取分数,并将这些分数绘制成散点图。我已经知道了如何实际制作情节,但将数据输入其中是另一回事。 我所有的输入都是一个数字输入,有一个唯一的输入ID,但我没有运气把数据放到它自己的框架中


我试着制作几个不同的集合,然后将所有集合编译成一个框架(使用
name1),鉴于您的问题描述不太清楚,也没有准确显示您需要什么,我建议:

一个应用程序,它接受6个数字输入,将所有数据合并到一个有两列的数据框中,并用这些数据创建散点图

library(shiny)
library(ggplot2)
library(dplyr)

# 1 - The UI with a sidebar layuot
ui <- fluidPage(
  sidebarLayout(
    # A well panell to separate the values
    # for the X axis
    sidebarPanel = sidebarPanel(
      wellPanel(
      h3("X axis"),
      numericInput('numb1', 'A', value = 1),
      numericInput('numb2', 'B', value = 2),
      numericInput('numb3', 'C', value = 3)
    ),
    # A well panell to separate the values
    # for the Y axis
    wellPanel(
      h3("Y axis"),
      numericInput('numb4', 'A', value = 1),
      numericInput('numb5', 'B', value = 2),
      numericInput('numb6', 'C', value = 3)
    )),
    
    # Main panel with the plot
    mainPanel = mainPanel(
      plotOutput("plot")
    )
  )
  
  
)

server <- function(input, output, session) {
  
  # Here You create a reactive objece with all the values
  data <- reactive({
    data.frame(
      a = c(input$numb1, input$numb2, input$numb3),
      b = c(input$numb4, input$numb5, input$numb6)
    )
  })
  
  # plot output
  output$plot <- renderPlot({
     data() %>%
      ggplot(aes(x = a, y = b)) +
      geom_point()
  })
}

shinyApp(ui, server)
库(闪亮)
图书馆(GG2)
图书馆(dplyr)
#1-带有侧边栏layuot的UI

是的!就是这样!谢谢你的帮助,这让我一整天都很沮丧。