R 重塑以合并和转置

与

---

使用

cast

可以这样做吗

如果您想使用cast，也许这有助于：

df.cast
   id flavor_total treat_101 treat_102
1   1           89        48        41
2   2          129        73        56

dfmc dfmc 身份证号码101 102 1 1 48 41 2 2 73 56 >dfmc$总dfmc id 101 102总计 1 1 48 41 89 2 2 73 56 129

---

Thx。事实上，我的数据比这个例子复杂得多，所以可能不适合简单地在总数中添加另一列。但是谢谢你的提示！您可以尝试

cast（df.melt，id~treat，sum，margins=TRUE）

-或提供数据的真实结构…仅使用treat margin，

restrape2:：dcast（df.melt，id~treat，sum，margins=“treat”）

df.melt <- melt(df, measure.var = "flavor")

df.melt
   id treat variable value
1   1   101   flavor    13
2   1   101   flavor     7
3   1   101   flavor    28
4   1   102   flavor    15
5   1   102   flavor     5
6   1   102   flavor    21
7   2   101   flavor    32
8   2   101   flavor    14
9   2   101   flavor    27
10  2   102   flavor    24
11  2   102   flavor    15
12  2   102   flavor    17

df.cast
   id flavor_total treat_101 treat_102
1   1           89        48        41
2   2          129        73        56

> dfmc <- cast( df.melt, id ~ treat, sum )
> dfmc
  id 101 102
1  1  48  41
2  2  73  56

> dfmc$total <- rowSums( dfmc )
> dfmc
  id 101 102 total
1  1  48  41    89
2  2  73  56   129