r - 如何使用 R 根据另一个条件将变量添加到数据框中

Question

我目前正在努力解决一个非常简单和基本的问题，

我有一个如下构建的数据框：

日期 CMP Line New_CMP 2021-09-06 2905 NA

本质上，我正在构建一个 flexdashboard，它将要求用户输入 2 个输入一个 Date 和 New_CMP 值，所以我想要的是匹配用户提供的日期和生产率。

数据框是使用日期列作为日期类型导入的，因此不确定为什么在尝试使用条件时它不起作用，但我只想简单地将一个值添加到与用户添加的日期相对应的 CMP 列。

请看下面的代码：

---

标题：“累积 - 实际与估计”作者：“ACTeQ”输出：flexdashboard::flex_dashboard：方向：行社交：菜单源代码：嵌入运行时：闪亮

library(ggplot2)
library(plotly)
library(flexdashboard)
library(readxl)
library(tibble)
library(dplyr)
cum_data <- read_excel("~/Cumplot/cum_data.xlsx")
cum_data <- cum_data %>% add_column(New_CMP = NA)

栏 {.sidebar}

selectInput('xcol','Select the Production Date',cum_data[1])
numericInput('ycol','Production Rate (CMP Sail Km)',value=100)

列 {data-width=350}

累积 - 实际与估计

#bar_plot <- reactive({match})

renderPlotly({ggplot(data = cum_data, aes(x=Date,y=cumsum(CMP_Line_Km))) +
      geom_line() + ylab("Cumulative Production (cmp-kms)")
      })

# A tibble: 8 x 3
  Date                CMP_Line_Km New_CMP
  <dttm>                    <dbl> <lgl>  
1 2021-09-06 00:00:00        2905 NA     
2 2021-09-07 00:00:00        2812 NA     
3 2021-09-08 00:00:00        2356 NA     
4 2021-09-09 00:00:00        2325 NA     
5 2021-09-10 00:00:00        2325 NA     
6 2021-09-11 00:00:00        2201 NA     
7 2021-09-12 00:00:00        1835 NA     
8 2021-09-13 00:00:00          45 NA     

标签： rshinyflexdashboard