У меня есть набор данных в этом формате:
#albaran|fecha|cliente|estado|descrip|destinatario|direccion|cp|poblacion|observaciones
#11111|43229|C1|E1|D1|DD1|DIR1|CP1|P1|COLECCIÓN CLÁSICOS DISNEY - Entrega Nº: 11, 12, 13, 14; Grandes Enigmas - Entrega Nº: 5, 6
#22222|43229|C2|E2|D2|DD2|DIR2|CP2|P2|COLECCIÓN CLÁSICOS DISNEY - Entrega Nº: 8, 9; Otro Pedido - Entrega Nº: 1, 2
И мне нужно конвертировать:
#albaran|fecha|cliente|estado|descrip|destinatario|direccion|cp|poblacion|pedido|entregas
#11111|43229|C1|E1|D1|DD1|DIR1|CP1|P1|COLECCIÓN CLÁSICOS DISNEY|11, 12, 13, 14
#11111|43229|C1|E1|D1|DD1|DIR1|CP1|P1|Grandes Enigmas|5, 6
#22222|43229|C2|E2|D2|DD2|DIR2|CP2|P2|COLECCIÓN CLÁSICOS DISNEY|8, 9
#22222|43229|C2|E2|D2|DD2|DIR2|CP2|P2|Otro Pedido|1, 2
Я пытаюсь с
library(data.table)
hec1 <- as.data.table(dataset)
res <- hec1[,strsplit(observaciones, split = ";"),by = c("albaran", "fecha", "cliente", "estado", "descrip", "destinatario", "direccion", "cp", "poblacion")]
res[, pedido:= substring(observaciones, 1, regexpr(":", observaciones)-2)][, entregas := substring(observaciones, regexpr(":", observaciones)+2, nchar(observaciones))]
res$V1 <- NULL
res <- res[,strsplit(entregas, split = ","),by = c("albaran", "fecha", "cliente", "estado", "descrip", "destinatario", "direccion", "cp", "poblacion", "tipo_pedido")]
setnames(res, "pedido", "entregas")
res
Но это не работает, покажите мне эту ошибку:
Ошибка в strsplit (observaciones, split = ";"): argumento de tipo no-carácter Вызовы: [-> [.data.table -> strsplit Ejecución interrumpida
Думаю ... может проблема в формате происхождения? Это data.table
.
Спасибо @prem, ваш пример хорошо работает в RStudio, я пытаюсь выполнить этот скрипт в PowerBI Script, но покажите мне эту ошибку
Ошибка в UseMethod (отдельные_строчки_): к объекту не применяется применимый метод для "отдельных_ строк_" ... ErrorCode = -2147467259 ExceptionType = Microsoft.PowerBI.Radio.RScriptRuntimeException
Когда я пытаюсь использовать библиотеку dplyr, я получаю следующую ошибку
DataSource.Error: ADO.NET: ошибка сценария R.
Прикрепление пакета: 'dplyr'
Следующие объекты замаскированы из 'package: stats':
фильтр, лаг
Следующие объекты замаскированы из package: base:
пересечение, setdiff, setequal, union
Ошибка в UseMethod ("отдельные_ строки_"): нет применимого метода для 'отдельные_ строки_', примененного к объекту класса> "функция". Вызовы:%>% ... отдельные строки -> отдельные строки по умолчанию -> отдельные строки_ Ejecución interrumpida
Этот пакет совместим с PowerBI https://docs.microsoft.com/es-es/power-bi/service-r-packages-support
Это код, я не могу использовать tidyverse, потому что он несовместим.
library(ggplot2)
library(tibble)
library(tidyr)
library(readr)
library(ggplot2)
library(stringr)
library(forcats)
library(dplyr)
df %>%
separate_rows("observaciones", sep = ";") %>%
separate(observaciones, c("pedido", "entregas"), " - Entrega Nº ")
Проблема решена, спасибо @Prem
Это финальная версия:
library(ggplot2)
library(tibble)
library(tidyr)
library(readr)
library(ggplot2)
library(stringr)
library(forcats)
library(dplyr)
library(data.table)
df <- as.data.table(dataset)
df <- df %>%
separate_rows("observaciones", sep = ";") %>%
separate(observaciones, c("pedido", "entregas"), " - Entrega Nº:")
df <- df %>%
separate_rows("entregas", sep = ", ") %>%
separate(entregas, c("entregas"), ",")
df <- df %>%
separate_rows("entregas", sep = "y") %>%
separate(entregas, c("entregas"), ",")
tidyr::separate_rows()
- person Roman   schedule 09.05.2018?tstrsplit
- person David Arenburg   schedule 09.05.2018