Reproduzindo os dados
dados <- structure(
list(
X = c("Ver_suj", "Ver_obj", "Substantivo", "Adjetivo" ),
Bolsonaro = c(59L, 299L, 988L, 653L),
Ciro = c(188L, 242L, 128L, 212L),
Manuela = c(59L, 66L, 1024L, 629L),
Marina = c(87L, 135L, 741L, 28L)
),
class = "data.frame", row.names = c(NA, -4L )
)
Desde a última versão do dplyr, é possível usar a notação de fórmula dentro do mutate. Assim temos,
dados %>%
mutate_at(-1, ~.x/sum(.x))
# X Bolsonaro Ciro Manuela Marina
# 1 Ver_suj 0.02951476 0.2441558 0.03318335 0.08779011
# 2 Ver_obj 0.14957479 0.3142857 0.03712036 0.13622603
# 3 Substantivo 0.49424712 0.1662338 0.57592801 0.74772957
# 4 Adjetivo 0.32666333 0.2753247 0.35376828 0.02825429
O que esta "sentença" quer dizer é "Faça uma mutação em todos as colunas menos a primeira coluna. Esta mutação será dividir cada número pela soma dos números da coluna".
A primeira parte em negrito é determinada pelo -1
na função e a segunda é determinada pela fórmula ~.x / (sum.x)
. Nesta fórmula .x
é uma representação genérica para cada valor do vetor (coluna)
Alternativa
Na versão mais tradicional do dplyr
o comum seria definir uma função que retorna os percentuais e usa-la em um mutate_at()
ou mutate_if()
. Algo assim:
percentual <- function(n) {
n / sum(n)
}
dados %>%
mutate_if(is.integer, percentual)
dput(dados)
? Veja mais aqui sobre como melhorar a pergunta.