当前的需求是聚合单个列,并提供每行的计数。我遇到了一些需要帮助的问题:
因此,我希望做到以下几点:
TextData
Message : @p_id is not valid
Message : @p_id is not valid
Message : @p_id is not valid
Message : @p_id is not valid
Message : ID record does not exist: @p_Id=11933
Message : ID record does not exist: @p_Id=21944
Message : ID record does not exist: @p_Id=31933
Message : ID record does not exist: @p_Id=41931
Message : ID record does not exist: @p_Id=51993
The duplicate key value is (129).
The duplicate key value is (129).
The duplicate key value is (135).
匹配并计算成类似如下的内容:
Count TextData Values
4 Message : @p_id is not valid
5 Message : ID record does not exist: @p_Id= 11933,21944,31933,41931,51993
3 The duplicate key value is (). 129,135
如果这是不可能的,那么至少
Count TextData
4 Message : @p_id is not valid
5 Message : ID record does not exist: @p_Id=
3 The duplicate key value is ().
我已经寻找了几个小时,试图找到这样的解决方案,但没有找到一个适用于我的情况的示例。
发布于 2018-12-13 05:22:14
data.table解决方案
library( data.table )
library( stringr )
#read data
dt <- fread(
"Message : @p_id is not valid
Message : @p_id is not valid
Message : @p_id is not valid
Message : @p_id is not valid
Message : ID record does not exist: @p_Id=11933
Message : ID record does not exist: @p_Id=21944
Message : ID record does not exist: @p_Id=31933
Message : ID record does not exist: @p_Id=41931
Message : ID record does not exist: @p_Id=51993
The duplicate key value is (129).
The duplicate key value is (129).
The duplicate key value is (135).", header = FALSE, sep = "")
#see if a string with numbers is present in the text, if so: extract
dt[, `:=`( id = stringr::str_extract( V1, "\\d+" ),
V1 = ifelse( grepl ( "\\d+", V1 ), gsub( "\\d+", "", V1 ), V1 ) ) ]
#summarise
dt[, list( Count = .N, values = toString( unique( id ) ) ), by = V1][]
# V1 Count values
# 1: Message : @p_id is not valid 4 NA
# 2: Message : ID record does not exist: @p_Id= 5 11933, 21944, 31933, 41931, 51993
# 3: The duplicate key value is (). 3 129, 135
https://stackoverflow.com/questions/53751259
复制相似问题