Plot gruppiert (Zeit -) Reihe in R mit Legende

Plot gruppiert (Zeit -) Reihe in R mit Legende

Laut meiner Daten (vgl. Bild) nennt sich BIP. Ich würde gerne wissen, wie man plot alle Länder in einem Diagramm. Und ich würde gerne eine Legende für die einzelnen Länder wie unterschiedliche Farben pro Zeile oder anderen Form pro Zeile.

Ich wissen, wie die Handlung einer Serie, zum Beispiel:

ts.plot(BIP$ALB)

Aber nicht wissen, wie zu zeichnen alle Serie mit einer Legende.

Danke

  • Sollten Sie sample-Daten.
  • Hallo, sorry, können Sie mir mehr details, die ich nicht verstehe.
  • Die Möglichkeit, eine gewünschte Handlung wäre, die Nutzung ggplot2 wie gezeigt hier
  • Ich meinte Sie sollten geben Sie Beispieldaten für uns zu reproduzieren, auf unser Ende
InformationsquelleAutor S12000 | 2013-02-28
  1. 6

    Wenn Sie xts zu erstellen timeseries Daten, die Sie verwenden können plot.xts aus xtsExtra Paket zu bekommen gewünschten Ergebnis

    #Uncomment below lines to install required packages
#install.packages("xts")
#install.packages("xtsExtra", repos="http://R-Forge.R-project.org")

library(xts)
library(xtsExtra)

head(data)
##              ABC    DEF
## 2007-01-03 83.80 467.59
## 2007-01-04 85.66 483.26
## 2007-01-05 85.05 487.19
## 2007-01-08 85.47 483.58
## 2007-01-09 92.57 485.50
## 2007-01-10 97.00 489.46


plot.xts(data, screens = factor(1, 1), auto.legend = TRUE)

    Bekommen Sie so etwas wie dieses Plot gruppiert (Zeit -) Reihe in R mit Legende

    Falls Sie wünschen, dass Daten in separaten panels:

    plot.xts(data, auto.legend = TRUE)

    Plot gruppiert (Zeit -) Reihe in R mit Legende

    • +1 für die xts alternative.
    • das xts ist sehr interessant und gut aus, aber ich bekomme die folgende Fehlermeldung, wenn ich versuche zu installieren xtrsextra... (hoffe ich finde eine andere alternative, als sich einen alten R-version...): Warnung installieren.Pakete : Paket 'xtsExtra' ist nicht verfügbar (für R version 2.15.1)
    • haben Sie versucht, die install.packages("xtsExtra", repos="http://R-Forge.R-project.org") oder nur install.packages("xtsExtra")
    • Funktioniert, danke 😉
    • Die beste Antwort, IMHO. plot.ts nicht anzeigen x-Achsen Beschriftung z.B. Termine für eine Sache. Auch dort ist nicht mehr die auto.legend = TRUE option. Stattdessen: legend.loc = 'topleft'.
    InformationsquelleAutor Chinmay Patil
  2. 7

    Kreditaufnahme stark von Jilber, ich biete eine leichte Variante. Hier ist die Spannung auf, dass es vielleicht besser sein, das Angebot mit aktuellen Zeit-Serie-Objekte, da dies in der Regel lassen Sie etwas bekommen automatisch die output-Typen, die Sie interessieren könnten. Geektrader zeigt Ihnen, wie dies mit der "xts" - Paket, aber Sie können auch einige ähnliche Dinge, die mit der Basis R.

    Hier ist die geänderte version von Jilber die sample-Daten, wo ich baute es zu einem ts Objekt.

    set.seed(1)
DF <- data.frame(2000:2009,matrix(rnorm(50, 1000, 200), ncol=5))
colnames(DF) <- c('Year', paste0('Country', 2:ncol(DF)))
DF.TS <- ts(DF[-1], start = 2000, frequency = 1)
DF.TS
# Time Series:
# Start = 2000 
# End = 2009 
# Frequency = 1 
#       Country2  Country3  Country4  Country5  Country6
# 2000  874.7092 1302.3562 1183.7955 1271.7359  967.0953
# 2001 1036.7287 1077.9686 1156.4273  979.4425  949.3277
# 2002  832.8743  875.7519 1014.9130 1077.5343 1139.3927
# 2003 1319.0562  557.0600  602.1297  989.2390 1111.3326
# 2004 1065.9016 1224.9862 1123.9651  724.5881  862.2489
# 2005  835.9063  991.0133  988.7743  917.0011  858.5010
# 2006 1097.4858  996.7619  968.8409  921.1420 1072.9164
# 2007 1147.6649 1188.7672  705.8495  988.1373 1153.7066
# 2008 1115.1563 1164.2442  904.3700 1220.0051  977.5308
# 2009  938.9223 1118.7803 1083.5883 1152.6351 1176.2215

    Nun, hier sind zwei grundlegende Plotten:

    # Each country in a separate panel, no legends required
plot(DF.TS)

    Plot gruppiert (Zeit -) Reihe in R mit Legende

    # All countries in one plot... colorful, common scale, and so on
plot(DF.TS, plot.type="single", col = 1:ncol(DF.TS))
legend("bottomleft", colnames(DF.TS), col=1:ncol(DF), lty=1, cex=.65)

    Plot gruppiert (Zeit -) Reihe in R mit Legende

    • Vielen Dank für kommentieren und upvote meine Antwort 😉 +1 für eine alternative
    InformationsquelleAutor A5C1D2H2I1M1N2O1R2T1
  3. 7

    In nur 2 Linien mit ts.Grundstück

        ts.plot(time,gpars= list(col=rainbow(10)))
    legend("topleft", legend = 1:10, col = 1:10, lty = 1)

    Ergebnis: Plot gruppiert (Zeit -) Reihe in R mit Legende
    Plot gruppiert (Zeit -) Reihe in R mit Legende

    InformationsquelleAutor kirancodify
  4. 4

    Was ist das...?

    > set.seed(1)
> DF <- data.frame(2000:2009,matrix(rnorm(50, 1000, 200), ncol=5))
> colnames(DF) <- c('Year', paste0('Country', 2:ncol(DF)))
> DF # this is how the data.frame looks like:
   Year  Country2  Country3  Country4  Country5  Country6
1  2000  874.7092 1302.3562 1183.7955 1271.7359  967.0953
2  2001 1036.7287 1077.9686 1156.4273  979.4425  949.3277
3  2002  832.8743  875.7519 1014.9130 1077.5343 1139.3927
4  2003 1319.0562  557.0600  602.1297  989.2390 1111.3326
5  2004 1065.9016 1224.9862 1123.9651  724.5881  862.2489
6  2005  835.9063  991.0133  988.7743  917.0011  858.5010
7  2006 1097.4858  996.7619  968.8409  921.1420 1072.9164
8  2007 1147.6649 1188.7672  705.8495  988.1373 1153.7066
9  2008 1115.1563 1164.2442  904.3700 1220.0051  977.5308
10 2009  938.9223 1118.7803 1083.5883 1152.6351 1176.2215
> matplot(DF[,-1], col=1:ncol(DF), type='l', lty=1, ylim=range(DF), axes=FALSE)
> axis(1, 1:nrow(DF), as.character(DF[,1]))
> axis(2)
> box() #- to make it look "as usual"
> legend('topright', names(DF), col=1:ncol(DF), lty=1, cex=.65)

    Plot gruppiert (Zeit -) Reihe in R mit Legende

    • +1 für einen Rahmen, die anderen arbeiten können 😉
    • Der wesentliche Punkt ist, zu erkennen, dass die Achsen werden muss, zieht getrennt.
    InformationsquelleAutor Jilber Urbina
Schreibe einen Kommentar