我使用的是rnorm(),但不是仅用一个变量替换模拟数量n,而是用具有一系列值中预定值的n多次这样做. (在我的项目中,我需要这样做11,600+次,因为有11,600+个预定值,我需要使用rnorm()-但平均值和标准差将是恒定的.为了简化这次讨论的一切,我只假设我有10个预定值来代表我想要进行的模拟数量.)

unit.cost <- rnorm(n=728, mean = 8403.86, sd = 1000)

我不只是使用"728"作为模拟数量(n),而是希望使用以下系列值自动迭代替换:728, 628, 100, 150, 99, 867, 934, 11, 67, 753.(我还想以相同的顺序使用这些值系列--而不仅仅是随机使用它们,因为预期输出应该是一个数据帧,使用n的预定值列出单位成本.请注意,meansd都是常数.)

经过搜索,for循环似乎是进行此设置的理想候选者?

推荐答案

要获取数据帧作为输出,包括使用的n参数,您可以执行以下操作:

library(tidyverse)

param_n <- c(728, 628, 100, 150, 99, 867, 934, 11, 67, 753)

set.seed(1)

cost_df <- map(param_n, \(param_n){
  tibble(
    param_n,
    unit_cost = rnorm(param_n, mean = 8403.86, sd = 1000)
    )
}) |> 
  bind_rows()

cost_df
#> # A tibble: 4,337 × 2
#>    param_n unit_cost
#>      <dbl>     <dbl>
#>  1     728     7777.
#>  2     728     8588.
#>  3     728     7568.
#>  4     728     9999.
#>  5     728     8733.
#>  6     728     7583.
#>  7     728     8891.
#>  8     728     9142.
#>  9     728     8980.
#> 10     728     8098.
#> # ℹ 4,327 more rows

创建于2024年4月22日,共有reprex v2.1.0

R相关问答推荐

使用facet_wrap()时如何将面板标题转换为脚注?

按条件计算观察次数

R gtsummary tBL_summary,包含分层和两个独立分组变量

使用gggplot 2在R中重新调整面板和y轴文本大小

寻找图片边缘

如何在xyplot中 for each 面板打印R^2

selectInput不返回ALL,并将因子转换为shiny 的数字

如何通过判断数据框的一列来压缩另一列?

plotly hover文本/工具提示在shiny 中不起作用

给定开始日期和月份(数字),如何根据R中的开始日期和月数创建日期列

在R中,我如何使用滑动窗口计算位置,然后进行过滤?

在不对R中的变量分组的情况下取两行的平均值

防止正则表达式覆盖以前的语句

在生成打印的自定义函数中,可以通过变量将线型或 colored颜色 设置为NULL吗?

是否有一个R函数可以输出在输入的字符向量中找到的相应正则表达式模式?

当由base::限定时,`[.factor`引发NextMethod错误

生存时间序列的逻辑检验

以R表示的NaN值的IS.NA状态

R,将组ID分配给另一个观测ID变量中的值的组合

从字符串列中的向量中查找第一个匹配的单词