Изменение формы Dataframe в специальной форме

Question

У меня есть конкретный фрейм данных, скажем:

Site  Date   Start  End    Spec1 Spec2
ZR    10.05  10:40  11:40  X1
ZR    10.05  10:40  11:40  X2
ZR    10.05  10:40  11:40  X3
ZR    10.05  10:40  11:40        X1
ZR    10.05  10:40  11:40        X4
ZR    10.05  10:40  11:40        X5

В конце оно должно выглядеть следующим образом:

      ZR
Date  10.05
Start 10:40
End   11:40
Spec1 X1
Spec1 X2
Spec1 X3
Spec2 X1
Spec2 X4
Spec2 X5

У кого-то есть хорошая идея, как начать?Меня смущает тот факт, что мне нужны новые строки для каждого Spec1 и Spec2.

Тестовые данные:

structure(list(Site = c("ZR", "ZR", "ZR", "ZR", "ZR", "ZR"), 
    Date = c("10.05", "10.05", "10.05", "10.05", "10.05", "10.05"
    ), Start = c("10:40", "10:40", "10:40", "10:40", "10:40", 
    "10:40"), End = c("11:40", "11:40", "11:40", "11:40", "11:40", 
    "11:40"), Spec1 = c("X1", "X2", "X3", "", "", ""), Spec2 = c("", 
    "", "", "X1", "X2", "X3")), class = "data.frame", row.names = c(NA, 
-6L))

Answer 1

В базе R вы можете использовать тот факт, что в столбцах есть уникальные значения с unique() и lapply(), что дает вам список.С подходом do.call(rbind()) вы можете связать строки списков вместе.Аналогично do.call(c()), объединяя которые вам нужно преобразовать в матрицу, чтобы вы могли rbind() это с первой частью.Например:

var <- c(names(df1)[1:3], rep(names(df1)[5:6], each=3))
ZR <- rbind(do.call(rbind, lapply(df1[, 2:4], unique)),
            as.matrix(
              do.call(c, lapply(5:6, function(x) df1[, x][df1[, x] != ""])))
            )
out1 <- data.frame(var, ZR, row.names=NULL)

Дает

> out1
    var    ZR
1  Site 10.05
2  Date 10:40
3 Start 11:40
4 Spec1    X1
5 Spec1    X2
6 Spec1    X3
7 Spec2    X1
8 Spec2    X4
9 Spec2    X5

Или, если вам не нужны дополнительные строки для каждого Spec* иИмена строк вместо ID переменной, вы можете сделать

out2 <- data.frame(rbind(
  do.call(rbind, lapply(df1[, 2:4], unique)),
  do.call(rbind, lapply(5:6, function(x) paste0(df1[, x][df1[, x] != ""], collapse=", ")))
))
dimnames(out2) <- list(names(df1)[-1], df1[1,1])

Дает

> out2
              ZR
Date       10.05
Start      10:40
End        11:40
Spec1 X1, X2, X3
Spec2 X1, X4, X5

Answer 2

Я предполагаю, что у вас есть данные для нескольких сайтов в ваших реальных данных.Вот обобщенное решение, использующее tidyverse.Обратите внимание, что невозможно иметь повторяющиеся имена строк, поэтому я превратил их в столбец variable в выводе -

df %>% 
  gather(variable, value, -Site) %>% 
  distinct() %>% 
  filter(value != "") %>% 
  rownames_to_column("id") %>% 
  spread(Site, value) %>%
  select(-id)

  variable    ZR
1     Date 10.05
2    Start 10:40
3      End 11:40
4    Spec1    X1
5    Spec1    X2
6    Spec1    X3
7    Spec2    X1
8    Spec2    X4
9    Spec2    X5

Answer 3

Вот один вариант с data.table

library(data.table)
unique(melt(setDT(df1), id.var = "Site", 
               value.name = 'ZR'))[ZR != ''][, Site := NULL][]
#   variable    ZR
#1:     Date 10.05
#2:    Start 10:40
#3:      End 11:40
#4:    Spec1    X1
#5:    Spec1    X2
#6:    Spec1    X3
#7:    Spec2    X1
#8:    Spec2    X2
#9:    Spec2    X3

Answer 4

(не общим!) Решением вашей проблемы будет

library(tidyverse)
gather(foo,key = Var, value=ZR, -Site) %>% 
 filter(ZR!="") %>% 
 select(-Site) %>% 
 distinct()

   Var    ZR
1  Date 10.05
2 Start 10:40
3   End 11:40
4 Spec1    X1
5 Spec1    X2
6 Spec1    X3
7 Spec2    X1
8 Spec2    X4
9 Spec2    X5

Однако мне кажется, что вы хотели бы иметь переменную Key в качестве имени строки (?).Это на самом деле не работает, так как содержит дубликаты.Более того, я не вижу причины, по которой вы хотели бы этого?