转换数据框中的重新排序时间戳 R

S <- c("A","A","A","B","B","B","C","C","C")
TS <- c(1,1,1,2,2,2,3,3,3)
f1 <- c(10,20,30,15,25,35,17,27,37)
p <- c(100,200,300,150,250,350,170,270,370)

df <- data.frame(S, TS, f1, p)

TS <- rep(1:3,3)

library(reshape2)

dcast(
  melt(df,id.vars=c("S","TS")),
  TS~S+variable,
  value.var="value",
  fun.aggregate=mean
)

  TS A_f1 A_p B_f1 B_p C_f1 C_p
1  1   10 100   15 150   17 170
2  2   20 200   25 250   27 270
3  3   30 300   35 350   37 370

R相关问答推荐

如何将标签移动到堆叠甜甜圈图表中每个切片的边缘？

想要创建一个可以存储四个多元正态总体的多元偏度的载体

手工PCA上的载体与输出双图不匹配

混淆矩阵，其中每列和等于1

名称输出pmap on tible

条形图和在Ploly中悬停的问题

将数字转换为分钟和秒

在数组索引上复制矩阵时出错

使用data.table：：fcase()而不是dplyr：：case_When()时保持值

无法正确设置动态创建的Quarto标注的格式

R中的哈密顿滤波

'使用`purrr：：pwalk`从嵌套的嵌套框架中的列表列保存ggplots时出现未使用的参数错误

有没有办法一次粘贴所有列

如何删除R中除数字元素以外的所有元素

循环遍历多个变量，并将每个变量插入函数R

如何阻止围堵地理密度图？

如何在使用Alpha时让geom_curve在箭头中显示恒定透明度

自定义交互作用图的标签

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

R：如何在数据集中使用Apply