R entfernen Sie Objekte aus einer Liste mit if-else-Anweisung

Ich habe eine Liste von Daten-frames, und möchte zu entfernen, die mit weniger als 2 Zeilen aus mylist:

a<-data.frame(x=c(1:4),y=c("m", "n", "o", "p"))
b<-data.frame(x=c(2:6),y=c("q", "w", "e", "r", "t"))
c<-data.frame(x=c(6,7),y=c("j","k"),z=c("$","#"))
d<-data.frame(x="9",y="q",z="+")
mylist<-list(a,b,c,d)

for (i in length(mylist)){
if (nrow(mylist[[i]])<=2){
mylist<-mylist[-i]
}
else{
mylist<-myslit
}}

Aber es schien nur, um Daten zu entfernen.Rahmen d.... Daten-frame-c ist immer noch in "mylist" nach der Ausführung der for-Schleife.

+1 um zu zeigen, was Sie bereits versucht, und bieten ein funktionierendes Beispiel.

InformationsquelleAutor lamushidi | 2013-04-23

12

Dies können Sie leicht unter Verwendung eines gelten-Schleife:
```
row_lt2 <- which(sapply(mylist, nrow) < 2)
mylist[-row_lt2]
[[1]]
  x y
1 1 m
2 2 n
3 3 o
4 4 p

[[2]]
  x y
1 2 q
2 3 w
3 4 e
4 5 r
5 6 t

[[3]]
  x y z
1 6 j $
2 7 k #
```
Bemerken, dass ich mit negativen Indizierung, um Elemente zu entfernen, anstatt Sie Sie auswählen.
- Ich danke Ihnen so sehr. Es funktionierte wunderbar. 😀
- Ich Liebe wirklich die Aussagekraft dieser funktionale Lösung zu Gunsten einer imperativen Stil mit einer for-Schleife. Es ist viel kürzer, in verständlicher meiner Meinung nach.
- Ich bin über die Aussagekraft des funktionalen Stil. Dies kann auch bündig mit der Filter Funktion. (Siehe meine Antwort weiter unten.)
InformationsquelleAutor Paul Hiemstra
7

Hinzufügen zu den anderen Antworten: das ist genau die Art von Sache, die höherer Ordnung Filter Funktion für:
```
> Filter(function(x) {nrow(x) >= 2}, mylist)
[[1]]
  x y
1 1 m
2 2 n
3 3 o
4 4 p

[[2]]
  x y
1 2 q
2 3 w
3 4 e
4 5 r
5 6 t

[[3]]
  x y z
1 6 j $
2 7 k #
```
- WOW, Filter - Funktion ist genial. Danke!!!!!
- Kein problem. Werfen Sie einen Blick auf die anderen verfügbaren Funktionen auf der gleichen Hilfeseite als ?Filter. Sie können ganz nützlich sein.
InformationsquelleAutor Jason Morgan
3

Können Sie nicht tun, diese Prozedur mit for weil die Indizes ändern. Mit for, nach dem entfernen der Linie 2, Sie wird prüfen, Zeile 3, aber Sie müssen prüfen, Linie 2 wieder (weil die Linie 2 nicht mehr die gleiche Zeile wie vorher). Ändern Sie es zu repeat oder while.
```
a<-data.frame(x=c(1:4),y=c("m", "n", "o", "p"))
b<-data.frame(x=c(2:6),y=c("q", "w", "e", "r", "t"))
c<-data.frame(x=c(6,7),y=c("j","k"),z=c("$","#"))
d<-data.frame(x="9",y="q",z="+")
mylist<-list(a,b,c,d)

i <- 1
while (i <= length(mylist)) {
 if (nrow(mylist[[i]])<=2){
  mylist<-mylist[-i]
 }
 else{
  i <- i+1
 }
}
```
Oder nutzen Sie einfach @Paul-Lösung... 😛
- Ich nur ausgelassen den OP ' s Vorschlag, aber Ihr völlig Recht, dass eine for-Schleife ist nicht wirklich sinnvoll hier.
- sapply wird immer überlegen sein, aber for können auch verwendet werden, siehe meine Antwort
- Obwohl Sie ein bisschen ein anderer Ansatz als der OP, einen neuen zu erstellen ohne die Spiele, anstelle von löschen der Spiele von der Liste.
InformationsquelleAutor Rcoster
3

Paulus hat eine Antwort schon, aber deine Fehler wurde nicht hingewiesen.

Dein code hat zwei Probleme. Erste, Sie brauchen, um zu liefern eine Reihe zu deinem loop:
```
for (i in 1:length(mylist))
```
bzw.
for (i in seq_along(Länge(mylist)))

Ohne diese, Ihre Initialisierung sah aus wie for (i in 4) nach der Auswertung, was bedeutet, dass nur eine iteration ausgeführt wurde, entfernen von element 4 und auch nicht auf der Suche alle vorherigen Elemente.

Jedoch, wenn Sie das problem beheben, ein anderes taucht auf. Nämlich, Ihre Liste nicht mehr hat 4 Elemente nach entfernen von element 3. Es hat nur 3 Elemente, während Ihre i - index gehen wird, bis 4, was in subscript out of bounds Fehler.

Daher kann man nur raten, den Ansatz anwenden, wie beschrieben von @Paul.

Auch, im Gegensatz zu der Behauptung, andernfalls ist es möglich, um das gleiche zu erreichen mit for Schleife, nur Ihr Ansatz muss etwas anders sein:
```
for (i in 1:length(mylist)) {
    if (nrow(mylist[[i]])>2)
    {
        mylist2[i]<-mylist[i]
    }
}  
print(mylist2)
```
Hier wählen Sie die Liste Elemente, die größer sind als 2, und ordnen Sie eine neue Liste. Sapply werden mehr speedy aber.
- +1 schöne Lösung mit einem for Schleife. Wenn mylist ist groß, Sie könnte preallocate es zunächst, spart viel Speicher und Zeit.
- Ich sehe nicht, wie könnte man die Festlegung der Größe von mylist2 hier, außer mit Ihrem Ansatz, das macht die ganze Schleife obsolet 🙂
- Vielen Dank für den Hinweis auf den Unterschied zwischen (i in length(mylist)) und (i in 1:length(mylist)). Ein häufiger Fehler habe ich oft gemacht.
InformationsquelleAutor Maxim.K
0

Für ein paar Besondere Fälle, die anderen oben genannten Methoden nicht funktionieren, obwohl while arbeiten konnte. Ich habe die Erfahrung gemacht, dass, wenn Sie Rcoster Ansatz while ohne hinzufügen einer Auswertung der zurückgegebenen Liste, wäre es immer noch zurückgeben, die falsche Antwort-denn jedes mal, wenn die Bedingung i<=length(mylist) habe ausgewertet, die Länge der mylist ändern kann, aufgrund der Löschung der mylist[-i]. Daher die while Auswertung stoppen konnte, bevor es erreicht alle unerwünschten Elemente in der Liste.

Beispielsweise in meinem Fall, ich wollte sicherstellen, dass die gesamte Länge der mylist[[i]]<=4. Die Liste ist sehr groß (2284879 Elemente, mit zu beginnen). Beim ersten mal lief ich die while evaluation, das Programm beendet, bevor die alle mylist[[i]]>4 da die Länge der mylist wurde kleiner. Ich musste table(lengths(mylist)) zu beurteilen, ob alle unerwünschten Listen entnommen wurden. Wenn nicht, dann führen Sie die while loop wieder. Zum Glück dauerte es nur zwei Läufe. Aber ich dachte, es ist notwendig zu betonen, falls jemand anderes kam hier und versuchen, mit dieser while Ansatz.

PS. for Schleife kann verwendet werden, auch wenn einige der evaluation Hinzugefügt, um zu beurteilen, ob re-Lauf notwendig ist.

InformationsquelleAutor Rui

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.