В цикле R проходит один фрейм данных, чтобы сгенерировать другой фрейм данных условно с одной или несколькими строками для каждой строки в первом фрейме данных.

Редактировать. Вот ленивый подход, который должен быть очень быстрым за счет временного создания строк, которые мы удалим в конце. Вместо того, чтобы вычислять, сколько копий нужно сделать для каждой строки, я делаю кучу копий каждой строки, затем применяю быстрые векторизованные вычисления, чтобы получить обновленные значения end, count и count0, и удаляю строки, которые нам не нужны.

library(dplyr); library(tidyr)
output <-
  dat %>%
  mutate(orig_row = row_number()) %>%
  uncount(10) %>%   # I'm assuming here that 10 is enough columns
  group_by(orig_row) %>%
  mutate(row = row_number()) %>%
  mutate(
    end = end + row,
    count0 = pmin(count, start * para1 + end * para2), # Edit #2
    count = count - cumsum(count0)
  ) %>%
  filter(lag(count, default = 0) >= 0) %>%
  mutate(count = pmax(0, count),
         count0 = if_else(count == 0, lag(count), count0))
output


# A tibble: 4 x 10
# Groups:   orig_row [2]
  region place start   end count para1 para2 orig_row   row count0
  <chr>  <chr> <int> <int> <dbl> <dbl> <dbl>    <int> <int>  <dbl>
1 A      C         2     7  6.02 0.394  2.46        1     1  18.0 
2 A      C         2     8  0    0.394  2.46        1     2   6.02
3 A      D         3     2  5.34 0.644  2.86        2     1   7.66
4 A      D         3     3  0    0.644  2.86        2     2   5.34

Первоначальный ответ:

Я представляю, что это по соседству.

Предупреждение: я не получил те же образцы данных, которые вы показали, и я не понимаю, как конкретные числа в предоставленном вами образце будут генерировать предлагаемый результат. Например, из первой строки dat, которую вы показываете (отличается от того, что я получил), первый count0 должен быть 2*0.394 + 6*2.456 = 15.527, не так ли?

Мой подход здесь состоит в том, чтобы вычислить count0, а затем выяснить, сколько из count в него вписывается, а затем сделать столько копий строки, уменьшая count на count0 с каждой строкой.

library(dplyr); library(tidyr)
output <- dat %>%
  mutate(end = end + 1,
         orig_data = row_number(),
         count0 = if_else(count == 0, 0,
                          start*para1 + end*para2),
         copies = 1 + count %/% count0) %>%
  uncount(copies) %>%
  group_by(orig_data) %>%
  mutate(row = row_number() - 1,
         count = count - row * count0)

Кстати, мой dat инициализируется по-другому, используя set.seed(71). Не могли бы вы подтвердить, инициализируются ли ваши данные, как указано в OP? Нам будет легче договориться, если мы сможем начать с одного и того же места.

> head(dat)
   region place start end count    para1    para2
1:      A     C     2   7    19 3.400587 2.757140
2:      A     D     3   3    31 1.503740 6.089518
3:      A     C     2   8     2 2.561869 5.236298
4:      A     D     2   3    33 3.069835 3.770121
5:      A     C     2   2    21 2.989221 3.547926
6:      A     D     5   5    32 2.720636 5.379352