如何在R中分割数据集和绘图-HowtoSplitDatasetandplotinR

2  

Well, first you need to create a variable with the row number, for each subset of the first variable separately. Here's one way to do it, by splitting the data set by the first variable, making a new variable that has the row number, and recombining.

首先，你需要为第一个变量的每个子集创建一个带有行号的变量。这里有一种方法，通过将数据集分解为第一个变量，创建一个具有行号的新变量，然后重新组合。

You also probably want V1 to be a factor (a categorical variable).

你也可能希望V1是一个因子(一个分类变量)。

d <- do.call(rbind, lapply(split(d, d$V1), function(x) {
    x$iterations <- 1:nrow(x)
    x
}))
d$V1 <- factor(d$V1)

Then using the lattice library, you'd do something like

然后用晶格库，你会做一些类似的事情

xyplot(V3 ~ iterations | V1, type="l", data=d)

To make the plots appear on more than one page, limit the number of plots on a page using the layout option. You'll need to save the plot to a file that supports multi-page output to do that. For example, for 5 rows and 5 columns:

要使这些图出现在一个以上的页面上，使用布局选项限制一个页面上的绘图数量。您将需要将绘图保存到支持多页输出的文件中，以实现这一点。例如，5行5列:

trellis.device("pdf", file="myplot.pdf")
p <- xyplot(V3 ~ iterations | V1, type="l", data=d, layout=c(5,5))
plot(p)
dev.off()

Also, to make the plot appear when running the code using source, you need to specifically plot the output from the xyplot command, like

此外，要使代码在使用源代码运行时显示图表，您需要特别绘制xyplot命令的输出，如

p <- xyplot(...)
plot(p)

When running at the console, this is not necessary as the plot (well, actually, the print function) is called on it by default.

当在控制台运行时，这是不必要的，因为在默认情况下会调用plot(实际上是print函数)。

1  

Like Chase said, please clarify on your question so that we can envision better what you're trying to achieve. To add to the heap of confusion, here's a lattice ballpark solution of what I think you may be after.

就像蔡斯说的，请澄清你的问题，这样我们就能更好地想象你想要达到的目标。为了增加混乱，这里有一个我认为你可能正在追求的晶格球解。

library(lattice)
fdt <- data.frame(col1 = seq(from = 1, to = 10, each = 10),
        col2 = round(56 * rnorm(100, mean = 30, sd = 5)),
        col3 = round(20 * rnorm(100, mean = 11,)))
xyplot(col3 ~ 1:100 | col1, data = fdt)

0  

I'm not exactly following what it is that you want to plot, but here's an approach that should get your down the right path and you can fill in the appropriate plotting command...or clarify your question and explain what the final result of your plot should look like in more detail.

我并没有完全遵循你想要绘制的内容，但是这里有一种方法可以让你沿着正确的路径前进，你可以输入相应的绘图命令……或者澄清你的问题，详细解释你的故事的最终结果。

We are going to take advantage of two packages: plyr and ggplot2. We will use plyr to split up your data into the appropriate groups and then use ggplot2 for the actual plotting. We'll take advantage of the pdf() function and put a different plot on each page.

我们将利用两个包:plyr和ggplot2。我们将使用plyr将数据分割成适当的组，然后使用ggplot2进行实际的绘图。我们将利用pdf()函数，在每个页面上放置不同的图。

library(ggplot2)
library(psych)    #For copying in data, not needed beyond that.

df <- read.clipboard(header = F)

pdf("test.pdf")
    d_ply(df, "V1", function(x)     #Split on the first column
        print(qplot(x$V3))          #Your plotting command should go here. This plots histograms.
    )
dev.off()                           #Close the plotting device.

This will generate an n page PDF where n represents the number of groups in V1 (your splitting column). If you'd rather have JPEG outputs, look at ?jpeg or the other graphics options for making other outputs.

这将生成一个n页的PDF，其中n表示V1(您的分裂列)中的组数。如果您希望有JPEG输出，请查看? JPEG或用于制作其他输出的其他图形选项。

EDIT: As you can see, people interpreted your question in a few ways. If @Roman's solution is more what you want, here's roughly the same ggplot code

编辑:正如你所看到的，人们用几种方式来解释你的问题。如果@Roman的解决方案更符合您的需要，这里有大致相同的ggplot代码

qplot(col2, col3, data = fdt, geom = "point") + facet_wrap(~ col1 , nrow = 2)