Ich hoffe, dass mein Post am richitgen Ort ist
![Neutral :|](./images/smilies/icon_neutral.gif)
Folgendes Problem stellt sich für mich:
Ich habe eine Funktion und diese Funktion will ich durch alle Spalten (Variablen) loopen. Es handelt sich dabei um eine ganz einfache ifelse function.
Es soll getestes werden, ob der Wert in der vorherigen "Zelle" der gleiche ist wie der zuvor. Als Beispiel wir haben die Spalten A, B, C usw. jede Spalte hat unterschiedliche Anzahl an Werten (Zeitwerte), in der Spalte C sind sogar die ersten 13 Zellen leer. Wie bereits erwähnt, möchte ich die ifelse function durch alle Spalten loopen und wenn der vorherige Wert mit dem jetzigen übereinstimmt soll in einer neuen Spalte eine 1 eingetragen werden, wenn der Wert nicht der gleiche ist eine 0. Es soll für jede Spalte sprich für A, B, C usw. eine neue keriert werden (z.Bsp mit dem Namen: sameA, sameB etc.). Am Schluss in einem neuen df noch für jede der neuen Spalte sameA, sameB etc. die Sequence ausgegeben werden.
Als Beispiel habe ich in einem PDF die Aufgabenstellung nochmals bildlich dargestellt.
![Wink ;)](./images/smilies/icon_e_wink.gif)
Viielen lieben Dank schonmal im Voraus, wenn mir jemand helfen könnte, das wäre echt super lieb
![Rolling Eyes :roll:](./images/smilies/icon_rolleyes.gif)
Lieber Gruss
Selina
Anbei noch der Code
Code: Alles auswählen
X$same <- ifelse( X$Last == X$Last[c(NA,0:(nrow(ZCZ18)-1))], 1, 0) # X ist das Excelfile.
Show <- X %>%
select(Time, same)
Show
y <- rle(X$same)
fre <- y$lengths[y$values==1] # Mit dieser Line werden die Sequencen gebildet.