Drucken Sie ein Daten-frame mit den Spalten ausgerichtet werden (siehe R)

Habe ich die folgenden Daten-frame in R:

> dframe
                Mean Median
Candidates     85.68     60
NonCands        9.21      4
Multi          27.48     17
Mono            4.43      3
Multi NonCands 22.23     15

Will ich drucken Sie in eine Datei und halten Sie es schön formatiert und ausgerichtet, so wie oben gezeigt. Ich benutze:

write.table(dframe,file="test",sep="\t", quote=F)

erzeugt die folgende Ausgabe:

Mean    Median
Candidates  85.68   60
NonCands    9.21    4
Multi   27.48   17
Mono    4.43    3
Multi NonCands  22.23   15

Da die Daten richtig angezeigt wird formatiert in die R-Umgebung, die ich dachte, es sollte trivial sein zu schreiben Sie es in eine Datei mit dem gleichen format. Anscheinend war ich falsch. Ich habe versucht das Spiel mit format() und write.matrix aus der MASSE Bibliothek, aber weder erzeugt das gewünschte Ergebnis.

Habe ich einige Vorschläge, wie diese eine, aber es scheint zu kompliziert und vor allem nicht zu dem gewünschten Ergebnis beim drucken in eine Datei mit write.table().

So, wie Drucke ich meine Daten-frame in eine Textdatei und haben es einfach Aussehen, wie es auch in R?

UPDATE

Folgende Justin ' s Vorschlag in seinem Kommentar unten, ich installierte gdata-Bibliothek und verwendet werden write.fwf. Dies ist fast, was ich brauche:

write.fwf(dframe,file="test",sep="\t", quote=F, rownames=T)

erzeugt die folgende Ausgabe:

Mean    Median
Candidates      85.68   60
NonCands         9.21    4
Multi           27.48   17
Mono             4.43    3
Multi NonCands  22.23   15

So, irgendwelche Ideen auf, wie man "Mean" und "Median" nach rechts verschoben, so dass Sie richten Sie mit den jeweiligen Spalten?

Da kann es nun wichtig sein, hier ist, wie die Daten.Bild wurde erstellt:

labels<-c("Candidates","NonCands","Multi", "Mono", "Multi NonCands")
Mean <- c(mean(cands), mean(non),mean(multi),mean(mono),mean(multi_non))
Median <- c(median(cands), median(non),median(multi),median(mono),median(multi_non))
names(Mean)<-labels
dframe<-data.frame(Mean,Median)

werfen Sie einen Blick auf write.fwf von der gdata Paket. fwf steht für fixed-width-Datei. allerdings, wenn Sie die schriftart zur Anzeige von text-Datei, die nicht mit fester Breite, es könnte nicht noch.
danke, finden Sie in den aktualisierten Frage.
Um genau zu sein, Sie wollen die rownames Links ausgerichtet und gepolstert, und die Spalten rechts ausgerichtet. (print.data.frame(... right=X) nur erlaubt, die option zu Global festgelegt werden, so dass ein wenig Feintuning nötig).

InformationsquelleAutor terdon | 2012-11-27

dataframe output-formatting r text-alignment

6

Könnte man umleiten der Ausgabe von print Datei.
```
max.print <- getOption('max.print')
options(max.print=nrow(dframe) * ncol(dframe))
sink('dframe.txt')
dframe
sink()
options(max.print=max.print)
```
- Sie können Erfahrung getOption("max.print") Problem, wenn die Anzahl der Zeilen, die größer sind als max.print Wert.
- guter Punkt, habe ich aktualisiert meine Antwort.
- bitte siehe meine Antwort unten, ist es ein Weg, um loszuwerden, Zeile Namen und Nummern in Ihre einfache Lösung?
- Sie könnte konvertieren Sie die Daten.frame in eine matrix und legen Sie Sie alle auf die leeren Zeichen.
InformationsquelleAutor Matthew Plourde
7

Könnten Sie auch capture.output mit cat
```
cat(capture.output(dframe), file = 'dframe.txt', sep = '\n')
```
- capture.output dauert file parameter selbst zu.
InformationsquelleAutor mnel

# Add the row names to the data frame, if you want them included
dframe2 <- data.frame("Row"=rownames(dframe), dframe, stringsAsFactors=FALSE)

# apply format over each column
dframe2 <- apply(dframe2, 2, format)

# print it out, make sure not to use quotes
write.table(dframe2, "test.txt", quote=FALSE, row.names=FALSE)

InformationsquelleAutor Ricardo Saporta

Einen anderen Weg ohne Zeile Namen auf der Grundlage der Antwort von mnel:

prettyprint.df <- function(x, filename='dframe.txt', width=200)  
   # Pretty-print data frame without row names  
{  
   op.w <- options("width")  
   options("width"=width)  

   first <- max(nchar(rownames(x))) + 2  
   cat(substring(capture.output(x), first), file=filename, sep="\n")  

   options(op.w)  
}

InformationsquelleAutor jpjns

1

Zur Steuerung der Ausgabe, tune print.data.frame auf Ihre Bedürfnisse ein und erfassen Sie die Ausgabe in eine Datei, zB.:
```
capture.output(
  print.data.frame(df, row.names=F, print.gap=3, quote=F, right=F),
  sep="\n", file="out.txt"
)
```
- Wie funktioniert das drucken auf einem Datei?
- Tut es aber nicht. Ich konzentrierte mich auf die Frage der Formatierung der Daten-frame.
- Danke, aber der dataframe wird angezeigt perfekt in R. Die Frage ist, drucken Sie in eine Datei, also deine Antwort ist nicht wirklich relevant hier.
- Schrieb die Antwort komplett
InformationsquelleAutor jnas

Ich mochte die Einfachheit der Antwort von Matthew Plourde, aber leider funktioniert es nicht bieten einen Weg, um loszuwerden, die Reihe von Namen/Nummern für meine situation; so, ich veränderte ein wenig die Antwort von Ricardo:

print.to.file <- function(df, filename) {
  cnames <- colnames(df)
  n      <- as.matrix(nchar(cnames))

  d <- apply(df, 2, format)
  n <- apply(cbind(n, nchar(d[1,])), 1, max)

  fmts <- paste0("%",n, "s")
  for(i in 1:length(cnames)) {
    cnames[i] <- sprintf(fmts[i], cnames[i])
    d[,i] <- sprintf(fmts[i], trimws(d[,i]))
  }
  d <- rbind(cnames, d)
  write.table(d, filename, quote=F, row.names=F, col.names=F)
}

Ergibt die gleiche Ausgabe von Matthäus außer der Reihe von Namen/Telefonnummern.

EDIT: ersetzen trim mit trimws.

Leider mit der neuesten R... Error in trim(d[, i]) : could not find function "trim"

InformationsquelleAutor Sezen

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.