Объединить столбцы из одного фрейма данных в новый фрейм данных и отфильтровать

Question

Material    DocDate    Name  Address    Unit    Price
1258486   3/17/2017   FEHLIG BROS BOX    asd     8.95
1258486   5/11/2017   FEHLIG BROS BOX    asd     9.5
1258486   12/11/2017  FEHLIG BROS_BOX    asd     10.5
1250000   12/20/2017  Krones ALPHA       afg     11.5

У меня есть вышеупомянутый фрейм данных. Мне нужно, чтобы кадр, как показано ниже на основе дат (17.03.2017) появляется первым. Так что мне нужно ниже вывода

Material         Name/address/Unit Price
1258486     FEHLIG BROS BOX/asd/8.95/9.5/10.5
1250000     Krones/ALPHA/afg/11.5

Answer 1

Полное редактирование, основанное на изменениях в вашем вопросе:

# create example data (notice this differs slightly from your table above)
df <- read.csv(stringsAsFactors = FALSE, header = TRUE,
                 text ="Material, DocDate, Name, Address, UnitPrice
                        1258486, 3/17/2017, FEHLIG BROS BOX, asd, 8.95
                        1258486, 5/11/2017, FEHLIG BROS BOX, asd, 9.50
                        1258486, 12/11/2017, FEHLIG BROS_BOX, asd, 10.5
                        1250000, 12/20/2017, Krones ALPHA, afg, 11.5")

# let's use data.table
library(data.table)
df_orig <- as.data.table(df)
df_orig[ , DocDate := as.Date(DocDate,format="%m/%d/%Y")][order(DocDate)]

# create one string per Name-Material pair
df_intermed <- df_orig[ , .(newvar = paste(Name[1], Address[1], paste(UnitPrice, collapse="/"), sep="/")), by=.(Material, Name)]

# aggregate those strings across Names, so one row per Material
df_final <- df_intermed[ , .(newvar = paste(newvar, collapse=",")), by=Material]

Answer 2

Вот альтернативный вариант использования dplyr.Сначала пример данных:

data <- data.frame(stringsAsFactors=FALSE,
                   Material   = c(1258486L, 1258486L),
                   DocDate    = c("3/17/2017", "5/11/2017"),
                   Name       = c("FEHLIG BROS BOX", "FEHLIG BROS BOX"),
                   Address    = c("asd", "asd"),
                   Unit_Price = c(8.95, 9.5))

А затем вот один набор шагов, чтобы получить ваш ответ.(Кстати, я полагаю, что все представленные решения предоставят вам несколько строк вывода, если есть несколько строк Material, которые имеют одну и ту же «самую раннюю дату». Возможно, вы захотите использовать другой термин, например Unit_Price == min(Unit_Price) внутри filter, еслиздесь есть смысл прервать связь.)

library(dplyr)
output <- data %>%

  # convert DocDate to a date
  mutate(DocDate = as.Date(DocDate,'%m/%d/%Y')) %>%

  # For each Material...
  group_by(Material) %>% 

  # just keep the line(s) with the first date...
  filter(DocDate == min(DocDate)) %>% ungroup() %>% 

  # and combine fields
  mutate(`Name/address/Unit Price` = paste(Name, Address, Unit_Price, sep = "/")) %>%

  # just the requested columns
  select(Material, `Name/address/Unit Price`)

output
# A tibble: 1 x 2
  Material `Name/address/Unit Price`
     <int> <chr>                    
1  1258486 FEHLIG BROS BOX/asd/8.95 

(РЕДАКТИРОВАТЬ: исправлены опечатки в коде)

Answer 3

Используя data.table вы можете попробовать

df <- read.table(stringsAsFactors = FALSE, header = TRUE,
                 text ="Material DocDate Name  Address Unit  Price
                 1258486   3/17/2017  FEHLIG BROS_BOX     asd     8.95
                 1258486   5/11/2017  FEHLIG BROS_BOX     asd     9.5
                 1258486   12/11/2017  FEHLIG BROS_BOX    asd     10.5
                 1250000   12/20/2017  Krones ALPHA       afg     11.5
                 ")
df$DocDate <- as.Date(df$DocDate,'%m/%d/%Y')
library(data.table)
setDT(df)[,.(newVar = paste(Name, Address, Unit, paste(.SD$Price,collapse = "/"), sep = "/") )
          ,by = Material][,.(newVar = newVar[1]), Material]

#returns
   Material                            newVar
1:  1258486 FEHLIG/BROS_BOX/asd/8.95/9.5/10.5
2:  1250000             Krones/ALPHA/afg/11.5