数据框有 n 列，我想得到 n 个图，每列一个图。
我是新手，R 语言不太流利，反正我找到了两种解决方案。
第一个有效，但它不打印列名（我需要它们！）：
data <- read.csv("sample.csv",header=T,sep=",")
for ( c in data ) plot( c, type="l" )
第二个效果更好，因为它打印列名：
data <- read.csv("sample.csv",header=T,sep=",")
for ( i in seq(1,length( data ),1) ) plot(data[,i],ylab=names(data[i]),type="l")
有没有更好的（从 R 语言的角度来看）解决方案？
该ggplot2软件包需要一些学习，但结果看起来非常好，您可以获得漂亮的图例，以及许多其他不错的功能，所有这些都无需编写太多代码。
require(ggplot2)
require(reshape2)
df <- data.frame(time = 1:10,
a = cumsum(rnorm(10)),
b = cumsum(rnorm(10)),
c = cumsum(rnorm(10)))
df <- melt(df , id.vars = 'time', variable.name = 'series')
# plot on same grid, each series colored differently --
# good if the series have same scale
ggplot(df, aes(time,value)) + geom_line(aes(colour = series))
# or plot on different plots
ggplot(df, aes(time,value)) + geom_line() + facet_grid(series ~ .)
有一种非常简单的方法可以使用单独的面板或同一面板绘制数据框中的所有列：
plot.ts(data)
产生（其中 X1 - X4 是列名）：
查看 ?plot.ts 的所有选项。
如果您不想更多地控制绘图功能并且不使用循环，您还可以执行以下操作：
par(mfcol = c(ncol(data), 1))
Map(function(x,y) plot(x, main =y), data, names(data))
您可以跳过箍并将您的解决方案转换为lapply,sapply或apply调用。（我看到@jonw 展示了一种方法。）除此之外，您已经拥有的是完全可以接受的代码。
如果这些都是时间序列或类似的，那么以下可能是一个合适的替代方案，它将每个系列在它自己的面板中绘制在一个绘图区域上。我们使用这个zoo包，因为它确实很好地处理了这样的有序数据。
require(zoo)
set.seed(1)
## example data
dat <- data.frame(X = cumsum(rnorm(100)), Y = cumsum(rnorm(100)),
Z = cumsum(rnorm(100)))
## convert to multivariate zoo object
datz <- zoo(dat)
## plot it
plot(datz)
这使：
我很惊讶没有人提到matplot. 如果您不需要在单独的轴上绘制每条线，这非常方便。只有一个命令：
matplot(y = data, type = 'l', lty = 1)
用于?matplot查看所有选项。
要添加图例，您可以设置调色板，然后添加它：
mypalette = rainbow(ncol(data))
matplot(y = data, type = 'l', lty = 1, col = mypalette)
legend(legend = colnames(data), x = "topright", y = "topright", lty = 1, lwd = 2, col = mypalette)
使用上面的一些技巧（特别感谢@daroczig 的names(df)[i]表格）这个函数打印一个数值变量的直方图和一个因子变量的条形图。探索数据框的良好开端：
par(mfrow=c(3,3),mar=c(2,1,1,1)) #my example has 9 columns
dfplot <- function(data.frame)
{
df <- data.frame
ln <- length(names(data.frame))
for(i in 1:ln){
mname <- substitute(df[,i])
if(is.factor(df[,i])){
plot(df[,i],main=names(df)[i])}
else{hist(df[,i],main=names(df)[i])}
}
}
最良好的祝愿，马特。
与lattice：
library(lattice)
df <- data.frame(time = 1:10,
a = cumsum(rnorm(10)),
b = cumsum(rnorm(10)),
c = cumsum(rnorm(10)))
form <- as.formula(paste(paste(names(df)[- 1], collapse = ' + '),
'time', sep = '~'))
xyplot(form, data = df, type = 'b', outer = TRUE)
不幸的是，ggplot2 没有提供一种方法来（轻松地）将您的数据转换为长格式。您可以尝试与之抗争，但进行数据转换会更容易。这里的所有方法，包括melt来自 reshape2、gather来自 tidyr 和pivot_longer来自 tidyr：Reshaping data.frame from wide to long format
这是一个使用的简单示例pivot_longer：
> df <- data.frame(time = 1:5, a = 1:5, b = 3:7)
> df
time a b
1 1 1 3
2 2 2 4
3 3 3 5
4 4 4 6
5 5 5 7
> df_wide <- df %>% pivot_longer(c(a, b), names_to = "colname", values_to = "val")
> df_wide
# A tibble: 10 x 3
time colname val
<int> <chr> <int>
1 1 a 1
2 1 b 3
3 2 a 2
4 2 b 4
5 3 a 3
6 3 b 5
7 4 a 4
8 4 b 6
9 5 a 5
10 5 b 7
如您所见，pivot_longer将选定的列名放入names_to（默认“名称”）指定的任何内容中，并将长值放入values_to（默认“值”）指定的任何内容中。如果我对默认名称没问题，我可以使用 use df %>% pivot_longer(c("a", "b"))。
现在您可以正常绘图，例如。
ggplot(df_wide, aes(x = time, y = val, color = colname)) + geom_line()
您可以使用该选项指定标题（以及通过xlab和轴的标题ylab）main。例如：
plot(data[,i], main=names(data)[i])
如果您想绘制（并保存）数据帧的每个变量，您应该使用png，pdf或您需要的任何其他图形驱动程序，然后发出dev.off()命令。例如：
data <- read.csv("sample.csv",header=T,sep=",")
for (i in 1:length(data)) {
pdf(paste('fileprefix_', names(data)[i], '.pdf', sep='')
plot(data[,i], ylab=names(data[i]), type="l")
dev.off()
}
mfrow或使用 的参数将所有绘图绘制到同一图像上par()。例如：用于par(mfrow=c(2,2)在同一“图像”中包含接下来的 4 个图。
我在这台计算机上没有 R，但这里有一个破解。您可以使用par在一个窗口中显示多个图，或者像这样在显示下一页之前提示单击。
plotfun <- function(col)
plot(data[ , col], ylab = names(data[col]), type = "l")
par(ask = TRUE)
sapply(seq(1, length(data), 1), plotfun)
.csv如果文件文件中的列名不是有效的 R 名称：
data <- read.csv("sample.csv",sep=";",head=TRUE)
data2 <- read.csv("sample.csv",sep=";",head=FALSE,nrows=1)
for ( i in seq(1,length( data ),1) ) plot(data[,i],ylab=data2[1,i],type="l")
这个链接对同样的问题帮助了我很多：
p = ggplot() +
geom_line(data = df_plot, aes(x = idx, y = col1), color = "blue") +
geom_line(data = df_plot, aes(x = idx, y = col2), color = "red")
print(p)