Wie kann ich meinen Code effizienter machen in R - Es ist zu wiederholen

Question

Ich habe eine Frage bezüglich der Effizienz meines Codes. Ich habe 9 Datenrahmen in meiner Umgebung und für jeden von ihnen muss ich die gleichen Schritte ausführen. Die Schritte und der Code (nur für zwei der Datenrahmen dargestellt):

CDL <- aggregate(A$Frequency, by=list(Category=A$Words), FUN=sum) 
wordcloud(words = CDL$Category, freq = CDL$x, min.freq = 2, 
     max.words=250, random.order=FALSE, rot.per=0.35, 
     colors=brewer.pal(6, "Dark2")) 

Ltd <- aggregate(B$Frequency, by=list(Category=B$Words), FUN=sum) 
wordcloud(words = Ltd$Category, freq = Ltd$x, min.freq = 2, 
     max.words=250, random.order=FALSE, rot.per=0.35, 
     colors=brewer.pal(6, "Dark2")) 

ich zuerst alle die gleichen Worte zusammenfassen, deren Frequenzen summieren und dann eine Welt Wolke basierend auf den aggregierten Ergebnissen erstellen.

Die Objektnamen in der Umgebung beginnen von "A" und gehen bis "I". Die Variable 'Häufigkeit' ist nur eine Zahl, die Variable 'Wörter' enthält eine Liste der Wörter.

Für die Wordcloud: Die Variable ‚Kategorie‘ genommen, um die einzigartigen Wörter enthält der ‚Wörter‘ Variable und ‚x‘ ist die aggregierte Summe der Frequenzen von ‚Frequency‘ genommen

irgendeinen Weg gibt es, ich könnte dasselbe tun, aber meinen Code nicht wiederholen? Danke

Answer 1

Wenn ich mich nicht täusche, sollte eine Funktion und Schleife es funktionieren!

word_cloud <- function(df) { 
    temp <- aggregate(df[,"Frequency"], by=list(Category=df[,"Words"]), FUN=sum) 
    result <- wordcloud(words = temp[,"Category"], 
    freq = temp[,"x"], 
    min.freq = 2, 
    max.words=250, 
    random.order=FALSE, 
    rot.per=0.35, 
    colors=brewer.pal(6, "Dark2")) 
    return(result) 
} 

input_list <- list(A,B,C,D,E,F,G,H,I) 

for (df_inp in input_list) { 
    word_cloud(df_inp) 
} 

Ich weiß nicht, den Ausgabemodus von Wordcloud(), so dass Sie die Ergebnisse in einer Liste oder zeichnen sie speichern möchten! Ich hoffe das hilft!