Как насчет:
x[!unlist(lapply(x, is.null))]
Вот краткое описание того, что происходит.
lapply
сообщает нам, какие элементы являются NULL
R> lapply(x, is.null)
$a
[1] FALSE
$b
[1] FALSE
$c
[1] TRUE
R> unlist(lapply(x, is.null))
a b c
FALSE FALSE TRUE
TRUE
на FALSE
: R> !unlist(lapply(x, is.null))
a b c
TRUE TRUE FALSE
x[!unlist(lapply(x, is.null))]
plyr Попробуйте использовать toString
:
# plyr
library(plyr)
ddply(data, .(A,B), summarize, C = toString(C))
Вот некоторые дополнительные альтернативы, также используя toString
:
data.table
# alternative using data.table
library(data.table)
as.data.table(data)[, toString(C), by = list(A, B)]
aggregate Это не использует пакеты:
# alternative using aggregate from the stats package in the core of R
aggregate(C ~., data, toString)
sqldf
И вот альтернатива, использующая функцию SQL group_concat
с помощью пакета sqldf :
library(sqldf)
sqldf("select A, B, group_concat(C) C from data group by A, B", method = "raw")
dplyr A dplyr
альтернатива:
library(dplyr)
data %>%
group_by(A, B) %>%
summarise(test = toString(C)) %>%
ungroup()
Измените, где вы положили as.character
:
> out <- ddply(data, .(A, B), summarise, test = list(as.character(C)))
> str(out)
'data.frame': 4 obs. of 3 variables:
$ A : num 111 111 222 222
$ B : int 1 2 1 2
$ test:List of 4
..$ : chr "5" "7"
..$ : chr "6"
..$ : chr "9"
..$ : chr "8" "10"
> out
A B test
1 111 1 5, 7
2 111 2 6
3 222 1 9
4 222 2 8, 10
Обратите внимание, однако, что каждый элемент по-прежнему фактически является отдельным символом, а не одной символьной строкой. То есть, это не настоящая строка, которая выглядит как «5, 7», а скорее два символа «5» и «7», которые R отображает с запятой между ними.
Сравните с следующее:
> out2 <- ddply(data, .(A, B), summarise, test = paste(C, collapse = ", "))
> str(out2)
'data.frame': 4 obs. of 3 variables:
$ A : num 111 111 222 222
$ B : int 1 2 1 2
$ test: chr "5, 7" "6" "9" "8, 10"
> out
A B test
1 111 1 5, 7
2 111 2 6
3 222 1 9
4 222 2 8, 10
. Сопоставимое решение в базе R, конечно, aggregate
:
> A1 <- aggregate(C ~ A + B, data, function(x) c(as.character(x)))
> str(A1)
'data.frame': 4 obs. of 3 variables:
$ A: num 111 222 111 222
$ B: int 1 1 2 2
$ C:List of 4
..$ 0: chr "5" "7"
..$ 1: chr "9"
..$ 2: chr "6"
..$ 3: chr "8" "10"
> A2 <- aggregate(C ~ A + B, data, paste, collapse = ", ")
> str(A2)
'data.frame': 4 obs. of 3 variables:
$ A: num 111 222 111 222
$ B: int 1 1 2 2
$ C: chr "5, 7" "9" "6" "8, 10"