Riformattazione dei dati con un modello
Domanda
Dispongo di un ampio set di dati con una combinazione di numeri e alfabeti.Solo un piccolo esempio:
sex <- c("M", "F", "F", "M", "M")
ind <- c("I1", "I2", "I3", "I4", "C")
M1 <- c("ab", "bb", "ac", "ad", "dd")
M2 <- c(12, 22, 23, 24, 25)
M3 <- c("AT", "AG", "AC", "GG", "TC")
M4 <- c(22, 23, 24, 14, 24)
mydf <- data.frame(sex, ind, M1, M2, M3, M4)
mydf
sex ind M1 M2 M3 M4
1 M I1 ab 12 AT 22
2 F I2 bb 22 AG 23
3 F I3 ac 23 AC 24
4 M I4 ad 24 GG 14
5 M C dd 25 TC 24
Voglio introdurre un segno "/" tra due caratteri nelle colonne M1 ...... Mn (fine del file) in modo che il frame di dati risultante assomigli a:
sex ind M1 M2 M3 M4
1 M I1 a/b 1/2 A/T 2/2
2 F I2 b/b 2/2 A/G 2/3
3 F I3 a/c 2/3 A/C 2/4
4 M I4 a/d 2/4 G/G 1/4
5 M C d/d 2/5 T/C 2/4
Scusa se non sapevo come procedere ... il tuo aiuto ha apprezzato ...
Soluzione
Una fodera:
> data.frame(lapply(mydf, function(x) sub("(.)(.)", "\\1/\\2", x)))
sex ind M1 M2 M3 M4
1 M I/1 a/b 1/2 A/T 2/2
2 F I/2 b/b 2/2 A/G 2/3
3 F I/3 a/c 2/3 A/C 2/4
4 M I/4 a/d 2/4 G/G 1/4
5 M C d/d 2/5 T/C 2/4
Altri suggerimenti
Tutto il potere criptico di R ti dà questo:
-
splitInsert
divide una colonna per ogni lettera utilizzandostrsplit
e la ricombina conpaste
.Questo è racchiuso insapply
per vettorializzare la funzione. - Quindi utilizzo
lapply
per applicaresplitInsert
sulle colonne 3: 6 del tuo data.frame edata.frame
per combinarlo con le due colonne che non desideri modificare. - Nota che
splitInsert
è completamente generico: funzionerà per stringhe di testo di qualsiasi lunghezza e puoi utilizzare qualsiasi nuovo carattere di scelta per ricombinare gli elementi divisi.
Il codice:
splitInsert <- function(x, split="", new="/"){
sapply(x, function(y)
paste(
strsplit(as.character(y), split=split)[[1]],
collapse=new)
)
}
data.frame(mydf[, 1:2], lapply(mydf[, 3:ncol(mydf)], splitInsert))
I risultati:
sex ind M1 M2 M3 M4
1 M I1 a/b 1/2 A/T 2/2
2 F I2 b/b 2/2 A/G 2/3
3 F I3 a/c 2/3 A/C 2/4
4 M I4 a/d 2/4 G/G 1/4
5 M C d/d 2/5 T/C 2/4
Sembra funzionare.
m1 <- substr(mydf$M1, start=1, stop=1)
m2 <- substr(mydf$M1, start=2, stop=2)
paste(m1, m2, sep="/")
Risultato
[1] "a/b" "b/b" "a/c" "a/d" "d/d"
Autorizzato sotto: CC-BY-SA insieme a attribuzione
Non affiliato a StackOverflow