Comment concaténer le pourcentage d'une ligne dans une seule valeur?

Question

Je voudrais concaténer le pourcentage de cette valeur sur une seule ligne. Disons que je:

dat<-data.frame(x1=c(1), x2=c(4), x3=c(5), stringsAsFactors = FALSE) 

Je voudrais avoir une valeur de concaténer dans la colonne comme cette dat$concat: [10,40,50] (chaque valeur est le pourcentage maintenant)

J'ai demandé précédemment comment Je peux concaténer, et la commande fonctionne plutôt bien:

dat$conc <- paste0("[",apply(dat,1,paste,collapse=","),"]") 

Comment puis-je le faire?

Answer 1

Si nous supposons que 5 représente 50%, il est aussi facile que de remplacer dat avec dat * .1, comme ceci:

dat <- data.frame(x1=c(1), x2=c(4), x3=c(5), stringsAsFactors = FALSE) 

dat$conc <- paste0("[",apply(dat*.1,1,paste,collapse=","),"]") 

    x1 x2 x3   conc 
1 1 4 5 [0.1,0.4,0.5] 

Mais je ne veux noter que si 5 on entend pour signifier 5%, pas 50%, alors vous voulez remplacer dat avec dat/100, comme ceci:

dat <- data.frame(x1=c(1), x2=c(4), x3=c(5), stringsAsFactors = FALSE) 

dat$conc <- paste0("[",apply(dat/100,1,paste,collapse=","),"]") 

    x1 x2 x3    conc 
1 1 4 5 [0.01,0.04,0.05] 

EDIT:

pour obtenir le pourcentage de chaque valeur relati ve à sa rangée (c.-à-d. valeur/rowSums (x)), essayez ceci:

dat <- data.frame(x1=c(7),x2=c(4),x3=c(5),stringsAsFactors=FALSE) 

dat$conc <- paste0("[",apply(dat/rowSums(dat),1,paste,collapse=","),"]") 

Sortie:

x1 x2 x3     conc 
1 7 4 5 [0.4375,0.25,0.3125]