基于计算，在数据框中插入行。

Question

我很新于R，尝试将在Excel中进行的计算复制到R中。
我有一个像这样的数据框：

Component <- c("A", "B", "C")
Report_Time <- c(5781, 5781, 5781)
Interval <- c(700, 600, 800)
End_Time <- c(8281, 8281, 8281)
Start_Time <- c(800, 298, 780)
df <- data.frame(Component, Report_Time, Interval, End_Time, Start_Time)

打印出来的样子如下所示：

# Component Report_Time Interval    End_Time    Start_Time
#1    A         5781        700         8281        800
#2    B         5781        600         8281        298
#3    C         5781        800         8281        780

对于每个组件，我希望填充一个计算列"Interval_Time"，它是开始时间+报告时间的总和，如果小于结束时间，则插入一行，其值为Interval_Time（最后一次求和）+ Interval。重复插入，直到Interval time的总和小于End_Time。

# Component Report_Time Interval    End_Time    Start_Time  Interval_Time
#1   A       5781       700             8281        800         6581
#2   A       5781       700             8281        800         7281
#3   A       5781       700             8281        800         7981
#4   B       5781       1000            8281        298         6079        
#5   B       5781       1000            8281        298         7079
#6   B       5781       1000            8281        298         8079
#7   C       5781       1200            8281        780         6561
#8   C       5781       1200            8281        780         7761

我一直在尝试在for循环中使用if语句来实现这个，但是一直没有成功。

- Madhu

---

你的意思不是“重复插入直到时间间隔内的总和大于End_Time”吗？“End_T2ime”看起来像是一个笔误，而你想要在总和大于时停止。 - steveb

Answer 1

使用data.table：

Component <- c("A", "B", "C")
Report_Time <- c(5781, 5781, 5781)
Interval <- c(700, 1000, 1200)
End_Time <- c(8281, 8281, 8281)
Start_Time <- c(800, 298, 780)
df <- data.frame(Component, Report_Time, Interval, End_Time, Start_Time)

library(data.table)
setDT(df)
df<-df[rep(1:.N,ceiling((End_Time-Start_Time-Report_Time)/Interval))]
df[,Interval_Time:=ifelse(.I==1,Start_Time+Report_Time,Start_Time+cumsum(Interval)+Report_Time-Interval),by=.(Component)]

df
Component Report_Time Interval End_Time Start_Time Interval_Time
1:         A        5781      700     8281        800          6581
2:         A        5781      700     8281        800          7281
3:         A        5781      700     8281        800          7981
4:         B        5781     1000     8281        298          6079
5:         B        5781     1000     8281        298          7079
6:         B        5781     1000     8281        298          8079
7:         C        5781     1200     8281        780          6561
8:         C        5781     1200     8281        780          7761

- Erdem Akkas

---

感谢 @fasttouch。 - Erdem Akkas

Answer 2

请确认这个部分解决方案对您是否有用。如果您想继续添加，直到时间间隔小于 End_Time，则还必须复制其他行。

Component <- c("A", "B", "C")
Report_Time <- c(5781, 5781, 5781)
Interval <- c(700, 600, 800)
End_Time <- c(8281, 8281, 8281)
Start_Time <- c(800, 298, 780)
df <- data.frame(Component, Report_Time, Interval, End_Time, Start_Time)

df$Interval_time[1]=df[1,2]+df[1,5]
for(i in 2:nrow(df))
{

  if((df[i,2]+df[i,5]) < df[i,4])
     df$Interval_time[i]=df$Interval_time[i-1]+df[i,3]
  else
    df$Interval_time[i]=df[i,2]+df[i,5]

}

- Pankaj Sharma

Answer 3

虽然不如@Erden Akkas的优雅，但既然我已经在处理它了;)

请注意，此方法假定原始数据框每个组件仅有一个观察值。

df$value <- df$Start_Time + df$Report_Time

for (i in 1:nrow(df))
{
  t <- df[i,]
  val <- t$value
  repeat {
    val <- val + t$Interval
    if (val > t$End_Time) {break}
    dftmp <- df[i,]
    dftmp$value <- val
    # Insert new Record
    df <- rbind(df, dftmp) 

   }
 }
 df[with(df, order(Component)), ]

但这显然更多是过程性的，因为它是由@Data table库的@Erden Akkas编写的... 但无论如何它都能完成工作...

   Component Report_Time Interval End_Time Start_Time value
1          A        5781      700     8281        800  6581
4          A        5781      700     8281        800  7281
5          A        5781      700     8281        800  7981
2          B        5781      600     8281        298  6079
21         B        5781      600     8281        298  6679
22         B        5781      600     8281        298  7279
23         B        5781      600     8281        298  7879
3          C        5781      800     8281        780  6561
31         C        5781      800     8281        780  7361
32         C        5781      800     8281        780  8161

- Umberto