Wiederholungszeilendaten mit kategorialen Variablen eine unterschiedliche Anzahl von Zeiten

Question

Ich habe einen Datenrahmen, der wie folgt aussieht:

DATE SURVEY SPECIES COUNT 
07/12/16 13 Paka 1 
07/12/16 14 Paka 1 
07/12/16 15 Grouper 2 
07/12/16 16 Grouper 3 
07/12/16 18 Grouper 1 
07/12/16 20 Lehi 3 

Wo ‚Count‘ ist die Zahl der Personen, für jede gegebene Umfrage beobachtet. Ich möchte die Daten neu zu gestalten, so dass es eine einzelne Zeile (Datensatz) für jeden einzelnen ist: z.B .:

DATE SURVEY SPECIES 
07/12/16 13 Paka 
07/12/16 14 Paka 
07/12/16 15 Grouper 
07/12/16 15 Grouper 
07/12/16 16 Grouper 
07/12/16 16 Grouper 
07/12/16 16 Grouper 
07/12/16 18 Grouper 
07/12/16 20 Lehi 
07/12/16 20 Lehi 
07/12/16 20 Lehi 

Mit den Daten für jede Umfrage so oft wiederholt wie nötig. Ich betrachtete die Schmelze() oder zusammenfassen() Funktionen aber stecken bin, weil die Zählvariable irgendwo im Bereich von 1 - 10.

Dank

Answer 1

Sie ursprünglichen Datenrahmen dat ist Angenommen, können Sie Folgendes tun bekommen gewünschte Datenrahmen new_dat:

new_dat <- dat[rep.int(1:nrow(dat), dat$COUNT), -4] 
rownames(new_dat) <- 1:nrow(new_dat) 

der Schlüssel ist, der Zeilenvektor Indexierungs rep.int(1:nrow(dat), dat$COUNT), während die nur die -4 4.en Spaltensignale fallen, dh Spalte COUNT.

---

-Test

x <- "DATE SURVEY SPECIES COUNT 
     07/12/16 13 Paka 1 
     07/12/16 14 Paka 1 
     07/12/16 15 Grouper 2 
     07/12/16 16 Grouper 3 
     07/12/16 18 Grouper 1 
     07/12/16 20 Lehi 3" 

dat <- read.table(text = x, header = TRUE) 

#DATE SURVEY SPECIES COUNT 
#07/12/16 13 Paka 1 
#07/12/16 14 Paka 1 
#07/12/16 15 Grouper 2 
#07/12/16 16 Grouper 3 
#07/12/16 18 Grouper 1 
#07/12/16 20 Lehi 3 

new_dat <- dat[rep.int(1:nrow(dat), dat$COUNT), -4] 
rownames(new_dat) <- 1:nrow(new_dat) 

#  DATE SURVEY SPECIES 
#1 07/12/16  13 Paka 
#2 07/12/16  14 Paka 
#3 07/12/16  15 Grouper 
#4 07/12/16  15 Grouper 
#5 07/12/16  16 Grouper 
#6 07/12/16  16 Grouper 
#7 07/12/16  16 Grouper 
#8 07/12/16  18 Grouper 
#9 07/12/16  20 Lehi 
#10 07/12/16  20 Lehi 
#11 07/12/16  20 Lehi 

Answer 2

Hier ist eine weitere Option mit expandRows

library(splitstackshape) 
`row.names<-`(expandRows(df1, "COUNT"), NULL) 
#  DATE SURVEY SPECIES 
#1 07/12/16  13 Paka 
#2 07/12/16  14 Paka 
#3 07/12/16  15 Grouper 
#4 07/12/16  15 Grouper 
#5 07/12/16  16 Grouper 
#6 07/12/16  16 Grouper 
#7 07/12/16  16 Grouper 
#8 07/12/16  18 Grouper 
#9 07/12/16  20 Lehi 
#10 07/12/16  20 Lehi 
#11 07/12/16  20 Lehi