Объединить строки с похожей информацией

Question

У меня есть фрейм данных с несколькими строками, и мне нужно объединить строки с одинаковым идентификатором.

a=read.csv("a.csv")
view(a)

ID  Value1  Value2  Value3  Value4  Value5  Value6
1076    2940    NA  NA  2   NA  NA
1076    2940    1   A-  NA  302 549
1109    2940    NA  NA  3   NA  NA
1109    2940    NA  A-  NA  700 150

Мне нужны результаты типа

ID  Value1  Value2  Value3  Value4  Value5  Value6
1076    2940    1   A-  2   302 549
1109    2940    NA  A-  3   700 150                     

Я уже рассмотрел ответ на похожую проблему ( Объединение строк с общей информацией ). Но я получаю ошибку в результатах.

library(dplyr)
f <- function(x) {
  x <- na.omit(x)
  if (length(x) > 0) paste(x,collapse='-') else NA
}
a_merge <- a %>% group_by(ID)%>%summarise_all(list(f))

Но я получаю следующую ошибку

Error: Column `Value2` can't promote group 1 to character

Пожалуйста, помогите.

Answer 1

Можно создать условие с помощью if/else для возврата NA, когда все значения в столбце равны NA или else, чтобы получить unique не-NA элементов в list

library(dplyr)
a %>% 
   group_by(ID) %>%
   summarise_all(list(~ list(if(all(is.na(.))) NA else unique(.[!is.na(.)]))))
# A tibble: 2 x 7
#     ID Value1    Value2    Value3    Value4    Value5    Value6   
#  <int> <list>    <list>    <list>    <list>    <list>    <list>   
#1  1076 <int [1]> <int [1]> <chr [1]> <int [1]> <int [1]> <int [1]>
#2  1109 <int [1]> <lgl [1]> <chr [1]> <int [1]> <int [1]> <int [1]>

РЕДАКТИРОВАТЬ:

1) Завернуто в list

2) @ комментарий Грегора - получить только unique не-NA элементы

данные

a <- structure(list(ID = c(1076L, 1076L, 1109L, 1109L), Value1 = c(2940L, 
2940L, 2940L, 2940L), Value2 = c(NA, 1L, NA, NA), Value3 = c(NA, 
"A-", NA, "A-"), Value4 = c(2L, NA, 3L, NA), Value5 = c(NA, 302L, 
NA, 700L), Value6 = c(NA, 549L, NA, 150L)), class = "data.frame", row.names = c(NA, 
-4L))

Answer 2

Вот базовый подход R,

setNames(do.call(rbind.data.frame, lapply(split(df, df$ID), function(i) 
                                       sapply(i, function(j) j[!is.na(j)][1]))), names(df))

#    ID Value1 Value2 Value3 Value4 Value5 Value6
#1 1076   2940      1     A-      2    302    549
#2 1109   2940   <NA>     A-      3    700    150

Answer 3

Если вы используете data.table, вы можете избежать преобразования всех столбцов в списки и преобразовывать только те, которые необходимы.

library(data.table)
setDT(df)

df[, lapply(.SD, function(x)
          if(length(vals <- unique(x[!is.na(x)])) > 1)
            list(vals)
          else vals), 
  by = ID]

#      ID Value1 Value2 Value3 Value4 Value5 Value6
# 1: 1076   2940    2,1     A-      2    302    549
# 2: 1109   2940            A-      3    700    150

Если вы используете toString, вы можете удалить if и упростить вещи. Это также относится и к dplyr.

df[, lapply(.SD, function(x) toString(unique(x[!is.na(x)]))),
  by = ID]
# 1: 1076   2940   2, 1     A-      2    302    549
# 2: 1109   2940            A-      3    700    150

Модифицированные данные примера (добавлен регистр с> 1 отличным значением)

df <- fread('
ID  Value1  Value2  Value3  Value4  Value5  Value6
1076    2940    2  NA  2   NA  NA
1076    2940    1   A-  NA  302 549
1109    2940    NA  NA  3   NA  NA
1109    2940    NA  A-  NA  700 150
')