Determinar la frecuencia de aparición de un elemento
library(dplyr)
frecuencias <- data.frame(id = datos$texto, value = datos$valor)
frecuencias <- mutate(group_by(frecuencias,id), cumsum=cumsum(value))
datos.frec <- data.frame(id=frecuencias$id,frec=frecuencias$cumsum)
datos.frec <- datos.frec[with(datos.frec, order(-datos.frec$frec)), ]
datos.frec <- datos.frec[!duplicated(datos.frec$id),]
barplot(datos.frec$frec, names.arg = datos.frec$id)
Sumar valores agrupados por categorías
categorias <- c("a","a","a","a","b","b","b","c","c","d")
numeros <- c(1,2,3,4,5,6,7,8,9,10)
datos <- data.frame(categorias=categorias, numeros=numeros )
datos.frec <- aggregate(datos$numeros, by=list(Category=datos$categorias), FUN=sum)
barplot(datos.frec$x, names.arg = datos.frec$Category)
Contar apariciones de elementos
valores <- c("a","a","a","a","b","b","b","c","c","d")
val.agrupados <- table(valores)
barplot(val.agrupados, names.arg = names(val.agrupados))
0 comentarios