在R中缠绕数据以按组添加变量（列）和观察值（行）

Question

我正在尝试重新整理具有数千个观测值的数据集（以最终使用DRC包中的drm函数），而我厌倦了在excel中进行此操作。在数据框中，我希望根据df中向量中的间隔添加“开始”和“结束”时间（直至inf）。这意味着我将不得不在最后一个“结束”时间为inf的地方添加观察（行）。对于最后一行（带inf的那一行），我还需要从任意数字中减去“值”的总数（在我的示例中，这将是50）。所有这些都由两个变量（在我的示例中为“名称”和“ Rep”）分组。我希望有一个使用group_by的解决方案，但是老实说，任何解决方案我都会为之高兴！

我有一个看起来像这样的数据集；

# data
names<-c(rep("Luke",30), rep("Han", 30), rep("Leia", 30), rep("OB1", 30))
reps<-c(rep("A", 10), rep("B", 10), rep("C", 10))
time<-rep(seq(1:10), 4)
value<-rep(sample(0:5,10,replace=T), 4)
df<-data.frame(names, reps, time, value)

但是需要它看起来像这样； 我需要的数据结构示例。

我很茫然。请帮忙！

Answer 1

如果我对您的理解正确，我们可以

<h4 id="subtitle">List of Countries and Dependencies</h4>
<table id="outputTable">
  <thead>
    <tr>
      <th>Flag</th>
      <th>Code</th>
      <th id="countyrName">Country/Dep. Name</th>
      <th>Continent</th>
      <th>Area (Km<sup>2</sup>)</th>
      <th>Population</th>
      <th>Capital</th>
    </tr>
  </thead>

  <tbody id="flist">
    <tr id="rowTemplate">
      <td class="img">
        <figure><img src="/flags/{{code}}" alt="{{code}}" height="14" width="14"></figure>
      </td>
      <td>{{code}}</td>
      <td>{{name}}</td>
      <td>{{continent}}</td>
      <td>{{area}}</td>
      <td>{{population}}</td>
      <td>{{capital}}</td>
    </tr>
  </tbody>
</table>

Answer 2

我们可以在data.table shift中执行此操作，同时在“时间”末尾附加“ Inf”以创建end，并与{按“名称”和“代表”分组后，“值”中“值”的{1}}

sum