R x-Achse Datum label nur einen Wert

Ich bin momentan dabei, ein Grundstück in R mit Daten, die als die x-Achse. Mein Rahmen hat dates, kein problem. Ich bin mit custom date range " - einer, der schneidet einige der ersten Daten durch die Verwendung eines festen start-und erstrecken sich geringfügig über die neuesten Daten durch eine Ende-bestimmt von einigen anderen code. Die Reichweite ist ~47 Tage. Das ist alles fein arbeiten.

Mein problem ist, dass die x-Achse Etikett enthält nur ein einzelnes Etikett, "Feb", aber ich möchte mindestens 3 labels, wenn nicht 5.

starttime <- strptime("20110110", "%Y%m%d")
endtime <- strptime("20110226 1202", "%Y%m%d %H%M") #This is actually determined programmatically, but that's not important
xrange <- c(starttime, endtime)
yrange <- c(0, 100)
par(mar=par()$mar+c(0,0,0,7),bty="l")
plot(xrange, yrange, type="n", xlab="Submission Time", ylab="Best Score", main="Top Scores for each team over time")
#More code to loop and add a bunch of lines(), but it's not really relevant

Das resultierende Diagramm sieht wie folgt aus:
R x-Achse Datum label nur einen Wert

Ich soll wirklich nur bessere Beschriftung. Ich bin nicht allzu besorgt über genau das, was Sie sind, sondern etwas mit Monat + Tag, und mindestens 3 von Ihnen.

  • werfen Sie einen Blick auf die Achse()
  • Ok, wie es scheint, Achse(1) oder axTicks(1) könnte es tun, etwas automatisch. Ich muss nur herausfinden, wie es zu ändern, aus der wissenschaftlichen notation, die Sie verwenden wollen, in so etwas wie "Feb 26"...
  • Auch möchten Sie vielleicht zu betrachten matplot(..., type='s'), statt Sie mit einer leeren plot() gefolgt von einzelnen Aufrufe lines().
  • Vielen Dank für diese Frage, denn es antwortete mir: Mittels dummy-plot-Aufruf zum festlegen der Grenzen ist die einzige Möglichkeit, die ich gefunden habe, das funktioniert mit Datumsbereiche / temporale Daten.
InformationsquelleAutor chmullig | 2011-02-26
  1. 3

    Versuchen. Ich änderte Ihren plot () - Anweisung ein wenig und fügte zwei Linien.

     starttime <- strptime("20110110", "%Y%m%d")
 endtime <- strptime("20110226 1202", "%Y%m%d %H%M")
 #This is actually determined programmatically, but that's not important
 xrange <- c(starttime, endtime)
 yrange <- c(0, 100)
 par(mar=par()$mar+c(0,0,0,7),bty="l")

 #I added xaxt="n" to supress the plotting of the x-axis
 plot(xrange, yrange, type="n", xaxt="n", xlab="Submission Time", ylab="Best Score", main="Top Scores for each team over time")

 #I added the following two lines to plot the x-axis with a label every 7 days
 atx <- seq(starttime, endtime, by=7*24*60*60)
 axis(1, at=atx, labels=format(atx, "%b\n%d"), padj=0.5)

 #More code to loop and add a bunch of lines(), but it's not really relevant

    R x-Achse Datum label nur einen Wert

    • Danke, das ist Super. Ich kann so etwas wie by=(endtime-starttime)/4 zu generieren 5 gleichmäßig verteilte Punkte, egal wie groß es ist. Das wird eine bessere Skalierung bei 147 Tagen, anstelle von 47 Tagen.
    • Verwenden Sie einfach die len=N argument zu bekommen N Punkte---seq() kann schon tun, was Sie annähernd hier.
    • Oh na toll, danke @Dirk.
    InformationsquelleAutor bill_080
  2. 3

    Darüber hinaus betrachten axis.Date(), die nicht ein S3 generischen, kann aber helfen, die extra Etiketten, die Sie wollen. Ich schrieb einen patch für diese Funktion, hab incorporated verschiedene R-Versionen her, die es erlaubte, Achsen ohne Beschriftungen. Hier ist ein Beispiel, genommen von ?axis.Date:

    random.dates <- as.Date("2001/1/1") + 70*sort(stats::runif(100))
plot(random.dates, 1:100)
# or for a better axis labelling
plot(random.dates, 1:100, xaxt="n")
axis.Date(1, at=seq(as.Date("2001/1/1"), max(random.dates)+6, "weeks"))
axis.Date(1, at=seq(as.Date("2001/1/1"), max(random.dates)+6, "days"),
          labels = FALSE, tcl = -0.2)

    produziert:
    R x-Achse Datum label nur einen Wert

    Gibt es auch Axis.Date() die ist ein S3 generisch, so kann aufgerufen werden über Axis(dates.vec, ....) wo dates.vec ist die x-Achse-Vektor, der die Termine. at usw. können ebenfalls angegeben werden.

    InformationsquelleAutor Gavin Simpson
  3. 2

    Können Sie das von hand machen, wenn Sie unterdrückt die x-Achsen-Beschriftung in dem Aufruf plot() und verwenden Sie dann axis() mit manuell angegebenen Punkte und Etiketten:

    axis(1,at=axis.pos[axis.ind],labels=axis.txt[axis.ind])

    verwenden eine Reihe von Indizes axis.ind wählt von x-Werte formatiert und labels. Sie können strftime() für fast alles, z.B. '%d %b' sollte produzieren Tag und lesbare kurze Monate im 

    R> strftime(Sys.Date(), "%d %b")
[1] "26 Feb"
    • Dies scheint wie ein guter Weg, aber ich bin unklar, auf was ich verwenden würde, für die Werte. Würde ich nur wählen Sie das anfangs-und Enddatum, dann Holen Sie sich den Mittelpunkt Datum? Es wäre also Befehle wie axis(1, at=starttime, labels=strftime(starttime, "%d %b"))?
    • Sie müssen, um das herauszufinden. Achse Beschriftung ist hart. Sie fing das Standard-Verhalten zu einem suboptimalen Ergebnis, jetzt müssen Sie entweder damit Leben, oder schreiben Sie sich ein wenig alternative oder versuchen zur Parametrierung der Standard anders. Vielleicht ist die Festlegung expliziter xlim Grenzen helfen. Wir können nicht sagen, wie Sie geliefert, keine (Pseudo -) Daten machen diese reproduzierbar.
    • Ich weiß, es ist schwer, dass ist, warum ich bin das bitten um Hilfe! Wenn es leicht war, ich würde es herausgefunden haben. Ich lieferte den genauen code zu generieren, der Achse, wie sieht es in meinem Beispiel. Die Linien sind nicht relevant für das problem. Wenn Sie den code ausführen, ich gab die Frage, die Sie werde das gleiche Diagramm ohne Linien, perfekt für diesen Zweck.
    InformationsquelleAutor Dirk Eddelbuettel
Schreibe einen Kommentar