So ersetzen Sie das "." in Spaltennamen, die von read.csv() mit einem Leerzeichen beim Exportieren generiert werden?

Question

Ich verwende R, um einige Daten vor der Verarbeitung zu tun, und hier ist das Problem, mit dem ich konfrontiert bin: Ich gebe die Daten mit read.csv(filename,header=TRUE), und dann der Platz in Variablennamen wurde ".", Zum Beispiel eine Variable namens Voller Code wurde Full.Code im generierten Datenframe. Nach der Verarbeitung verwende ich write.xlsx(filename), um die Ergebnisse zu exportieren, während die Variablennamen geändert werden. Wie man dieses Problem anspricht?

Außerdem in der Ausgabe .xlsx Datei, die erste Spalte werden Indizes (d. H. 1 bis N), was ist nicht das, was ich erwarte.

Answer 1

Wenn Sie check.names=FALSE in read.csv eingestellt haben, wenn Sie die Daten einlesen, werden die Namen nicht geändert und Sie müssen sie nicht bearbeiten, bevor Sie die Daten zurückschreiben. Dies bedeutet natürlich, dass Sie die Spaltennamen angeben müssen (in einigen Fällen zurückgesetzte Anführungszeichen) oder sich bei der Bearbeitung auf die Spalten nach Ort und nicht nach dem Namen beziehen.

Answer 2

Leerzeichen in den Namen zurück, dies zu tun (rechts, bevor Sie exportieren - R hat Sie in Variablennamen Leerzeichen lassen, aber es ist ein Schmerz):

# A simple regular expression to replace dots with spaces 
# This might have unintended consequences, so be sure to check the results 
names(yourdata) <- gsub(x = names(yourdata), 
         pattern = "\\.", 
         replacement = " ") 

der ersten Spalte Index löschen Fügen Sie einfach row.names = FALSE zu Ihrer write.xlsx() hinzu. Das ist ein häufiges Argument für Funktionen, die Daten im Tabellenformat ausgeben (write.csv() hat es auch).

Answer 3

Hier ist eine Funktion (sorry, ich weiß, es Refactoring werden könnte), die auch schön Spaltennamen macht, wenn es mehrere aufeinander folgende Punkte und Hinter Punkte:

makeColNamesUserFriendly <- function(ds) { 
    # FIXME: Repetitive. 

    # Convert any number of consecutive dots to a single space. 
    names(ds) <- gsub(x = names(ds), 
        pattern = "(\\.)+", 
        replacement = " ") 

    # Drop the trailing spaces. 
    names(ds) <- gsub(x = names(ds), 
        pattern = "()+$", 
        replacement = "") 
    ds 
} 

Beispiel Nutzung: Sie

ds <- makeColNamesUserFriendly(ds)