J K's questions

我有以下数据，它们是在给定日期前需要付款的。

data <- tribble(
  ~Date, ~Amount,
  "26/11/2024", 387,
  "04/01/2025", 879,
  "08/02/2025", 954,
  "22/02/2025", 1849,
  "25/02/2025", 103,
  "05/03/2025", 2400
)

我想为每笔款项创建一个零利息付款计划，在到期前的每个星期五付款。例如，对于 2024 年 11 月 26 日到期的 387，从现在（2024 年 11 月 5 日）到那时共有 3 个星期五。因此，我希望在付款到期前的每个星期五都有 387/3。

我尝试过以下代码：

library(tidyverse)
library(lubridate)

# calculate a sequence of dates from now until latest payment date
all_dates <- seq(as.Date("2024-11-05"),as.Date('2025-03-05'),by = 1) %>% 
  tibble() %>%
  rename("list_of_dates" = ".") %>% 
  mutate(dummy_amt = 0)

# create Friday payment plan
data2 <- data %>% 
  mutate(Date = strptime(as.character(Date), "%d/%m/%Y")) %>% 
  mutate(Date = format(Date, "%Y-%m-%d")) %>% 
  mutate(Date = as.Date(Date)) %>% 
  right_join(all_dates, by = c("Date" = "list_of_dates")) %>% 
  select(-dummy_amt) %>% 
  mutate(Amount = replace_na(Amount, 0)) %>% 
  arrange(Date) %>% 
  mutate(Day = wday(Date, label = TRUE, abbr = FALSE)) %>% 
  filter(Day == "Friday" | Amount != 0) %>% 
  mutate(no_fridays = if_else(Day == "Friday", 1, 0)) %>% 
  mutate(cum_fridays = cumsum(no_fridays))

...我已经能够计算出某个付款日期前星期五的累计金额。但我还在为下一步而苦恼，即为每个之前的星期五分配一笔付款。

类似这样的情况是理想的（例如，对于前 2 个金额）。然后我可以计算出总列。

   Date       Amount Day     cum_fridays payment1 payment2
   <date>      <dbl> <ord>         <dbl>    <dbl>    <dbl>
 1 2024-11-08      0 Friday            1      129     97.7
 2 2024-11-15      0 Friday            2      129     97.7
 3 2024-11-22      0 Friday            3      129     97.7
 4 2024-11-26    387 Tuesday           3        0        0
 5 2024-11-29      0 Friday            4        0     97.7
 6 2024-12-06      0 Friday            5        0     97.7
 7 2024-12-13      0 Friday            6        0     97.7
 8 2024-12-20      0 Friday            7        0     97.7
 9 2024-12-27      0 Friday            8        0     97.7
10 2025-01-03      0 Friday            9        0     97.7
11 2025-01-04    879 Saturday          9        0        0

我正在尝试提取列表中存储的数据。我已经学习了基本的反应性，但现在我陷入困境，因为我不知道如何处理列表中的列表。

如果我运行该应用程序，我希望能够查看每个列表的底层数据框。

例如，如果我在左侧的下拉菜单中选择“output_2”，那么我希望在页面的右侧看到数据框（从 2:20 开始）。

library(tidyverse)
library(shiny)
library(DT)

# create dummy data frames
df1.1 <- data.frame(Item = 1:10, Amount = 1:10)
df1.2 <- data.frame(Item = 1:10, Amount = 1:10)
df1.3 <- data.frame(Item = 1:10, Amount = 1:10)

df2.1 <- data.frame(Item = 2:20, Amount = 2:20)
df2.2 <- data.frame(Item = 2:20, Amount = 2:20)
df2.3 <- data.frame(Item = 2:20, Amount = 2:20)

df3.1 <- data.frame(Item = 3:30, Amount = 3:30)
df3.2 <- data.frame(Item = 3:30, Amount = 3:30)
df3.3 <- data.frame(Item = 3:30, Amount = 3:30)

# create list with dummy dfs
dummy_list1 <- list(df1.1 = df1.1,
                    df1.2 = df1.2,
                    df1.3 = df1.3)

dummy_list2 <- list(df2.1 = df2.1,
                    df2.2 = df2.2,
                    df2.3 = df2.3)

dummy_list3 <- list(df3.1 = df3.1,
                    df3.2 = df3.2,
                    df3.3 = df3.3)

# create data 
previous_data <- list(output_1 = dummy_list1,
                      output_2 = dummy_list2,
                      output_3 = dummy_list3)

previous_data_names <- previous_data %>% names()  

# Define UI for the app

ui <- fluidPage(
  titlePanel("Output Selector App"),
  sidebarLayout(
    sidebarPanel(
      selectInput("dataset", "Choose a dataset:", 
                  choices = previous_data_names)
    ),
    mainPanel(
      navlistPanel(
        tabPanel("df_1", dataTableOutput("df_1")),
        tabPanel("df_2", dataTableOutput("df_2")),
        tabPanel("df_3", dataTableOutput("df_3")),
      )
    )
  )
)


# Define server logic for the app
server <- function(input, output, session) {
  
  output$df_1 <- renderDataTable(
    datatable(df1.1)
  )
  
  output$df_2 <- renderDataTable(
    datatable(df1.2)
  )
  
  output$df_3 <- renderDataTable(
    datatable(df1.3)
  )
  
}


# Run the application
shinyApp(ui = ui, server = server)

我有以下 5 个数字步骤的数据：

    test_data <- tribble(
      ~one, ~two, ~three, ~four, ~five, 
      1, 2, 3, 4, 5, 
      2, 4, 6, 8, 10,
      3, 6, 9, 12, 15, 
      4, 8, 12, 16, 20
    )

我想乘以以下数据框：

    multiplier <- tribble(
      ~step, ~pct,
      "one", 0,
      "two", 1, 
      "three", 0, 
      "four", 1, 
      "five", 0
    )

这样我就得到了下面的“结果”列:(即，根据中的定义，只添加了五个步骤中的某些步骤multiplier)

    > result_df
    # A tibble: 4 x 6
        one   two three  four  five result
      <dbl> <dbl> <dbl> <dbl> <dbl>  <dbl>
    1     1     2     3     4     5      6
    2     2     4     6     8    10     12
    3     3     6     9    12    15     18
    4     4     8    12    16    20     24

这是一个简单示例，包含 5 个步骤和 100% 乘数，因此使用 可轻松选择和添加特定列rowSums。但是，问题是我正在处理一个包含 c. 40 个步骤和一些百分比（0% < x < 100%）的真实数据集。因此，我需要一个“求和乘积”样式的函数。

我尝试了以下方法：

test_data %>% 
  rowwise() %>% 
  mutate(result = prod(one:five, multiplier$pct))

并得到错误答案。此外，我尝试过，crossprod但我知道这类似于矩阵乘法。

dplyr 风格的解决方案将非常受欢迎。谢谢。

我想使用单独的数据框对测试执行变异，如下所示：

library(tidyverse)

test <- tribble(
  ~col1, ~col2, ~col3,
  "one", "a", "b",
  "two", "b", "c",
  "three", "c", "d"
)

mutator <- tribble(
  ~mutate_from, ~mutate_to,
  "a", "X",
  "b", "X"
)

期望输出：

> test
# A tibble: 3 x 3
  col1  col2  col3 
  <chr> <chr> <chr>
1 one   a     X    
2 two   b     X    
3 three c     d   

我不知道该如何实现这一点：

test %>% 
  mutate(col3 = map(mutator, ~.x %>% ?))

最终目标可能是在变量器中进行 30 个左右的观察，所以我希望以某种方式实现这一点。

我有以下数据：

my_data <- tribble(
  ~item1, ~item2,
  "car", "ferrari",
  "house", "3 bed",
  NA, "3"
)

我正在尝试提取其中存在“house”的列的名称

我努力了：

my_data %>%
mutate(across(everything(), ~str_detect(.x , "house")))

返回：

# A tibble: 3 × 2
  item1 item2
  <lgl> <lgl>
1 FALSE FALSE
2 TRUE  FALSE
3 NA    FALSE

这就是我陷入困境的地方，试图提取列“item1”，我尝试使用该函数any()，但将整个内容压缩为TRUE.

请寻找 dplyr/purrr 解决方案。谢谢。

我当前正在从外部文件读取数据，如下所示：

param_file <- tribble(
  ~model, ~variable, ~value,
  "BAX", "year", "2023",
  "BAX", "version", "Saint_XL, Sinner_XY",
  "BAX", "metric", "ATE, OFCE",
  "LAX", "time", "2024",
  "LAX", "model2", "Saint_XX, Sinner_XW",
  "LAX", "method", "TEA, CEOF")

然后，我将行分开并筛选出我想要运行的模型，在本例中为 BAX：

param_file2 <- param_file %>% 
  separate_rows(value, sep = ",") %>% 
  mutate(value = trimws(value)) %>% 
  filter(model == "BAX")

看起来像这样：

  model variable value    
  <chr> <chr>    <chr>    
1 BAX   year     2023     
2 BAX   version  Saint_XL 
3 BAX   version  Sinner_XY
4 BAX   metric   ATE      
5 BAX   metric   OFCE   

我想知道是否有一种方法可以自动将变量及其值分配为字符向量：

因此对于 BAX 模型，这些将是：

year <- param_file2 %>% filter(variable == "year") %>% pull(value)
version <- param_file2 %>% filter(variable == "version") %>% pull(value)
metric <- param_file2 %>% filter(variable == "metric") %>% pull(value)

和洛杉矶国际机场模型：

time <- param_file2 %>% filter(variable == "time") %>% pull(value)
model2 <- param_file2 %>% filter(variable == "model2") %>% pull(value)
method <- param_file2 %>% filter(variable == "method") %>% pull(value)

这些给了我想要的答案，但每次我想为每个模型定义一个新变量时，我都需要编写一行新代码。我想知道是否有一种方法可以将变量列中读取的任何内容分配给其相应的值，而不必每次都编写新的代码行。

即如果外部文件中出现 2 个新行，如下所示：

param_file <- tribble(
  ~model, ~variable, ~value,
  "BAX", "pasta", "sauce",
  "BAX", "jalapenos", "are, spicy")

然后我想要定义如下的 2 个新变量（无需用新行显式分配它们）...理想情况下使用函数或 purrr 循环，例如：

> pasta
[1] "sauce"
> jalapenos
[1] "are"   "spicy"