Discussion :

[llep14]

Bonjour,

Je n'arrive pas à calculer mes pourcentages :

id	population
a1	50
a2	110
a3	72
a4	41
a5	NA
a6	80

je souhaite obtenir une colonne qui calcule le poids de la population

soit :

id	population	pourcentage
a1	50	14%
a2	110	31%
a3	72	20%
a4	41	12%
a5	NA	NA
a6	80	23%

avec pourcentage = population/sum(population).

Merci

[mgdondon]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
df1 <- read.table(header = TRUE, text = "
id population
a1 50
a2 110
a3 72
a4 41
a5 NA
a6 80
")
 
df1$pourcentage <- round(df1$population / sum(df1$population, na.rm=TRUE), 2) * 100
df1
#>   id population pourcentage
#> 1 a1         50          14
#> 2 a2        110          31
#> 3 a3         72          20
#> 4 a4         41          12
#> 5 a5         NA          NA
#> 6 a6         80          23
 
df1$pourcentage <- formattable::percent(df1$pourcentage/100, 0)
df1
#>   id population pourcentage
#> 1 a1         50         14%
#> 2 a2        110         31%
#> 3 a3         72         20%
#> 4 a4         41         12%
#> 5 a5         NA          NA
#> 6 a6         80         23%
 
# ou directement
df1$pourcentage <- formattable::percent(round(df1$population / sum(df1$population,na.rm=TRUE),2), 0)
df1
#>   id population pourcentage
#> 1 a1         50         14%
#> 2 a2        110         31%
#> 3 a3         72         20%
#> 4 a4         41         12%
#> 5 a5         NA          NA
#> 6 a6         80         23%
 
# Created on 2020-10-09 by the reprex package (v0.3.0.9001)

Attention toutefois à l'interprétation de ce pourcentage.

Cordialement,