我正在try 转换数据集:

比如:

我怎么能在R上这么做?我试着使用gather()但不知怎么的,我没有得到结果..

library(tidyverse)
df_gather <- df %>% gather(key = "Day", "Sensor",2:5)
View(df_gather)

提前感谢您的帮助!

推荐答案

下面是另一个tidyverse种方法:

dat %>% 
  rename_with(., ~str_replace_all(., "Sensor", "Time_")) %>% 
  pivot_longer(-Date,
               names_sep = "_",
               names_to = c(".value", "Sensor")  
               )
    Date Sensor  Time
   <int> <chr>  <dbl>
 1     1 1       155.
 2     1 2       160.
 3     1 3       126.
 4     1 4       162.
 5     1 5       155.
 6     2 1       126.
 7     2 2       133.
 8     2 3       155.
 9     2 4       171.
10     2 5       154.
# … with 15 more rows

R相关问答推荐

R:如何自动化变量创建过程,其中我需要基于ifelse()为现有变量的每个级别创建一个单独的变量

计算R中的威布尔分布的EDF

保存包含循环和ifelse的函数的输出

R Tidymodels textercipes-使用spacyR进行标记化-如何从生成的标记列表中删除标点符号

将非重复序列高效转换为长格式

在R中使用download. file().奇怪的URL?

多个过滤器内的一个盒子在仪表板Quarto

矩阵的堆叠条形图,条形图上有数字作为标签

如何删除最后一个可操作对象

R中的哈密顿滤波

TreeNode打印 twig 并为其上色

有没有可能用shiny 的书签恢复手风琴面板?

将全局环境变量的名称分配给列表中的所有元素

如何计算每12行的平均数?

长/纬点继续在堪萨斯-SF结束,整齐的人口普查

在同一单元格中创建包含整数和百分比的交叉表

Data.table::Shift type=允许扩展数据(&Q;LAG&Q;)

使用列名和r中的前缀 Select 列的CREATE函数

子样本间系数检验的比较

Ggplot2:添加更多特定 colored颜色 的线条