Permettez-moi de définir un bloc de données avec une colonne id
formée par un vecteur d'entier
df <- data.frame(id = c(1,2,2,3,3))
et une colonne objects
qui est à la place une liste de vecteurs de caractères. Créons la colonne avec la fonction suivante
randomObjects <- function(argument) {
numberObjects <- sample(c(1,2,3,4), 1)
vector <- character()
for (i in 1:numberObjects) {
vector <- c(vector, sample(c("apple","pear","banana"), 1))
}
return(vector)
}
qui est alors appelé avec lapply
set.seed(28100)
df$objects <- lapply(df$id, randomObjects)
La trame de données résultante est
df
# id objects
# 1 1 apple, apple
# 2 2 apple, banana, pear
# 3 2 banana
# 4 3 banana, pear, banana
# 5 3 pear, pear, apple, pear
Maintenant, je veux compter le nombre d'objets correspondant à chacun id
avec un bloc de données comme celui-ci
summary <- data.frame(id = c(1, 2, 3),
apples = c(2, 1, 1),
bananas = c(0, 2, 2),
pears = c(0, 1, 4))
summary
# id apples bananas pears
# 1 1 2 0 0
# 2 2 1 2 1
# 3 3 1 2 4
Comment dois-je réduire les informations de df
dans un bloc de données plus compact, par exemple summary
sans utiliser de for
boucle?
library(plyr)
ddply(df, .(id), function(d, lev) {
x <- factor(unlist(d$objects), levels = lev)
t(as.matrix(table(x)))
}, lev = unique(unlist(df$objects)))
# id apple banana pear
#1 1 2 0 0
#2 2 1 2 1
#3 3 1 2 4
Este artículo se recopila de Internet, indique la fuente cuando se vuelva a imprimir.
En caso de infracción, por favor [email protected] Eliminar
Déjame decir algunas palabras