Ändern Sie Spalten in einem Datenrahmen in R sauberer - vielleicht mit() oder apply()?

Question

Ich verstehe die Antwort in R auf sich wiederholende Dinge ist in der Regel "apply()" eher als Schleife. Gibt es ein besseres R-Design-Muster für einen fiesen Code, den ich häufig erstelle?

Also, Tabellendaten aus HTML ziehen, muss ich normalerweise den Datentyp ändern, und am Ende läuft so etwas, um die erste Spalte in Datumsformat (von Dezimal) und Spalten 2-4 von Zeichenketten zu konvertieren mit Komma tausend Trennzeichen wie "2,400,000" zu numerischen "2400000".

X[,1] <- decYY2YY(as.numeric(X[,1])) 
X[,2] <- as.numeric(gsub(",", "", X[,2])) 
X[,3] <- as.numeric(gsub(",", "", X[,3])) 
X[,4] <- as.numeric(gsub(",", "", X[,4])) 

Ich mag es nicht, dass ich X [Anzahl] hier sowohl auf die linke und die Fahrt Seiten wiederholt, oder dass ich im Grunde die gleiche Aussage haben für 2-4 wiederholt.

Gibt es eine sehr R-ähnliche Art, X [, 2] weniger repetitiv, aber immer noch schleifenfrei zu machen? Etwas, das sagt "Anwenden auf Spalten 2,3,4 --- eine Funktion, die die aktuelle Spalte einer modifizierten Version zuweist?"

Ich möchte nicht eine ganze, wiederholbare Reinigungsfunktion erstellen, wirklich, nur eine schnelle anonyme Funktion, die dies mit weniger Wiederholungen tut.

Answer 1

Unter der Annahme, X ein Datenrahmen ist, würde ich tun:

X[2:4] <- lapply(X[2:4], function (x) as.numeric(gsub(",", "", x))) 

Answer 2

So etwas wie

comma2numeric <- function(x) { as.numeric(gsub(",","",x)) } 
X[,2:4] <- apply(X[,2:4],2,comma2numeric) 

ist ein Anfang. transform ist ein gutes Modify-in-Place-Idiom, aber es arbeitet mit Namen statt mit Spaltennummern.

bearbeitet: close-Klammer in Zeile fehlt 1