8

在此处输入图像描述

根据我的数据（参见图片）称为GDP。我想知道如何在一张图中绘制所有国家。而且我想为每个国家/地区获得一个图例，例如每条线不同的颜色或每条线的不同形状。

我知道如何绘制一个系列，例如：

ts.plot(GDP$ALB)

但不知道如何用图例绘制所有系列。

谢谢

4

4 回答 4

8

使用 ts.plot 只需 2 行

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

结果：在 R 中绘制带有图例的倍数（时间）序列 用图例在 R 中绘制倍数（时间）序列

于 2015-07-16T14:32:31.013 回答
7

如果您用于xts创建时间序列数据，则可以使用plot.xtsfrom xtsExtrapackage 来获得所需的结果

#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)

你会得到这样的东西在此处输入图像描述

如果您想要单独面板中的数据：

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

在此处输入图像描述

于 2013-02-28T09:53:09.600 回答
7

从 Jilber 大量借用，我提供了一个轻微的变体。在这里，重点在于处理实际的时间序列对象可能会更好，因为这通常会让您在某种程度上自动获得您可能感兴趣的输出类型。Geektrader 向您展示如何使用“xts”执行此操作" 包，但你也可以用 base R 做一些类似的事情。

这是 Jilber 示例数据的修改版本，我已将其转换为ts对象。

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

现在，这里有两个基本的绘图选项：

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

在此处输入图像描述

# 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)

在此处输入图像描述

于 2013-02-28T10:16:10.147 回答
5

那这个呢...？

> 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)

在此处输入图像描述

于 2013-02-28T09:45:04.010 回答