Konvertieren for-Schleife anwenden

In R, wie ersetzt man den folgenden code mithilfe von Funktionen wie apply, lapply, rapply, do.call usw.? 

u <- 10:12
slist <- list()

for (i in 1:length(u)) {
  p <- combn(u, i) 
  for (j in 1:ncol(p)) {
    s <- paste(p[,j], collapse=",")
    slist[[s]] <- 0
  }
}

Für diesen Teil: 

  for (j in 1:ncol(p)) {
    s <- paste(p[,j], collapse=",")

Habe ich versucht, etwas wie:

  s <- apply(p, 2, function(x) paste(x, collapse=","))

Die funktioniert. Aber dann slist[[s]] <- 0 im selben for-Schleife, ich weiß nicht, was zu tun ist.

Edit: Dies ist, was ich versuche zu tun. Für den Vektor u ist, bin ich produziert, eine Liste aller Teilmengen in der Richtung. Dann für jede Teilmenge, ich bin die Zuordnung zu s, dann mit dem string s wie der name eines Elements in slist. Irgendwie seltsam, ich weiß, aber es ist für eine Hausaufgabe. Für den code oben, würde dieser die ersten 5 Elemente slist: 

 > slist
 $`10`
 [1] 0

 $`11`
 [1] 0

 $`12`
 [1] 0

 $`10,11`
 [1] 0

 $`10,12`
 [1] 0

Yeah, ich versuche nur zu lernen, wie man anwenden und Sachen richtig.

  • Ihre for Schleife erzeugt eine eher ungewöhnliche Liste. Vielleicht möchten Sie erklären, was es ist, Sie wirklich versuchen, zu tun?
  • Okay, fertig! Ich bearbeitet die original-Beitrag.
InformationsquelleAutor Crystal | 2011-11-15
  1. 4

    Hier ist eine Lösung:

    n <- unlist(lapply(seq_along(u), function(i) {
  apply(combn(length(u),i),2, function(x) paste(u[x], collapse=','))
}
))

slist <- list()
slist[n] <- 0

    UPDATE Gepostet zur gleichen Zeit wie @djhurio, ist es sehr ähnlich, aber ich nahm mir die Freiheit die änderung der Nutzung von combn so verarbeitet u von der Länge 1, da @djhurio hingewiesen.

    • +1 für viel kürzere Lösung
    • Bekomme ich rep für die Erhöhung der Verwendung *tragen Sie die von einem? indvec <- unlist(lapply( sapply(1:3, combn, x=u) , function(z) apply(z, 2, paste, collapse=",") ) )
    • Nun, Sie haben eine Kommentar-upvote von mir - Dann beschweren sich die stackoverflow-Betreuer, der Kommentar upvotes geben sollte rep-Punkte 😉
    InformationsquelleAutor Tommy
  2. 3

    Lösung mit einem apply und eine lapply. Funktioniert auch, wenn length(u)==1.

    # Define function to create combinations
f1 <- function(y, i) {
  if (length(y)==1) as.character(y) else {
    p <- combn(y, i)
    apply(p, 2, function(x) paste(x, collapse=","))
  }
}

# Initial vector
u <- 10:12

# Character vector with all posible combinations
l <- unlist(lapply(1:length(u), f1, y=u))
l

# Create list with 0 values and same length as l
slist <- as.list(rep(0, length(l)))

# Assign names to the list objects
names(slist) <- l

slist
    • +1 - Great minds think alike 🙂
    InformationsquelleAutor djhurio
  3. 1

    Andere Lösung, ohne die Notwendigkeit für anonyme Funktionen. Die mapply vectorizes combn, während rapply durchläuft die Kombination Liste rekursiv, reduzieren Sie mit ,.

    rapply(mapply(combn, list(u), seq_along(u), simplify = F), paste, collapse = ",")
    InformationsquelleAutor Ramnath
Schreibe einen Kommentar