Fatal编程技术网
  • r/
  • R 将几个小时列重塑为键和值

R 将几个小时列重塑为键和值

r

R 将几个小时列重塑为键和值,r,dplyr,reshape,tidyr,R,Dplyr,Reshape,Tidyr,我有一个这样的数据帧 ID <- c("A","A","A","A","A","A","B","B","B","B","B","B") Day <- c("Mon","Mon","Mon","Fri","Fri","Fri","Tue","Tue","Tue","Wed","Wed","Wed") minute <- c(49,32,15,38,18,16,06,16,26,31,33,38) second <- c(12,22,08,16,21,42,41,48,32,

我有一个这样的数据帧

ID <- c("A","A","A","A","A","A","B","B","B","B","B","B")
Day <- c("Mon","Mon","Mon","Fri","Fri","Fri","Tue","Tue","Tue","Wed","Wed","Wed")
minute <- c(49,32,15,38,18,16,06,16,26,31,33,38)
second <- c(12,22,08,16,21,42,41,48,32,21,26,18)
hour0 <- c(0,0,0,60,0,0,0,0,0,0,0,0)
hour1 <- c(0,100,0,0,0,0,68,0,0,0,0,0)
hour2 <- c(0,0,0,0,0,0,0,92,0,0,0,72)
hour3 <- c(0,0,92,0,62,0,0,0,81,0,0,0)
hour4 <- c(110,0,0,0,0,0,0,0,0,93,0,0)
hour5 <- c(0,0,0,0,0,112,0,0,0,0,0,0)
hour6 <- c(0,0,0,0,0,0,0,0,0,0,105,0)

df <- data.frame(ID,Day,minute,second,hour0,hour1,hour2,hour3,hour4,hour5,hour6,
                 stringsAsFactors=FALSE)
我正试图这样做，但这并不完全是我想要的

library(tidyr)
df1 <- gather(df, key = "Hour", value = "Unit" ,
        hour0, hour1, hour2, hour3, hour4, hour5, hour6 )

library（tidyr）

df1不指定“hour0”、“hour1”等，它可以与
start\u with
或
matches
匹配，然后
过滤出“unit”为0的行，并从“hour”中提取数字部分（
解析数字
）


您问题的第一步有以下几个答案：

library(tidyr)
df1 <- gather(df, key = "Hour", value = "Unit" ,
        hour0, hour1, hour2, hour3, hour4, hour5, hour6 )



library(tidyverse)
df %>% 
  gather(hour, unit, starts_with("hour")) %>% 
  filter(unit != 0) %>% 
  mutate(hour = readr::parse_number(hour)) %>%
  arrange(ID, 
       factor(Day, levels = c("Mon", "Tue", "Wed", "Thu", "Fri", "Sat", "Sun")))