1

目标

在此处输入图像描述

代码

require(lattice)

png('my_typing.png')
par(mfrow=c(2,1))

read.csv('race_data.csv')->sol
plot(sol$Race.., sol$WPM*sol$Accuracy, type='l')

# TODO: it wrongly substitutes the plot with levelplot
# TODO: I want two plots one below another, plot and then levelplot below
levelplot(cor(sol[1:5]))

帮助问题

  1. 如何在一个 PNG 文件中同时绘制正常图和特殊图？

  2. 我应该将不同的绘图包（例如格子和网格）组合到基础吗？

4

2 回答 2

3

gridBase包为组合网格和基本图形输出提供了一些支持。

这是一个简单的例子：

library("grid")
library("gridBase")
library("lattice")

# example from levelplot help page
x <- seq(pi/4, 5 * pi, length.out = 100)
y <- seq(pi/4, 5 * pi, length.out = 100)
r <- as.vector(sqrt(outer(x^2, y^2, "+")))
g <- expand.grid(x=x, y=y)
g$z <- cos(r^2) * exp(-r/(pi^3))
p <- levelplot(z~x*y, g, cuts = 50, scales=list(log="e"), xlab="",
               ylab="", main="lattice levelplot",
               colorkey=FALSE, region=TRUE)

grid.newpage()
pushViewport(viewport(layout=grid.layout(2, 1,
                                         heights=unit(c(2, 1), "null"))))
vp <- pushViewport(viewport(layout.pos.row=1, layout.pos.col=1))
par(omi=gridOMI())
# base graphics
plot(1:10, main="base graphics plot")
popViewport()
# lattice plot
vp <- pushViewport(viewport(layout.pos.row=2, layout.pos.col=1))
print(p, vp=vp, newpage=FALSE)
popViewport()
popViewport()

网格基础示例

于 2012-08-18T20:17:23.360 回答
0

先生。在#R 中建议只使用一种类型的情节 - 事物。Trellis 函数不能与基本函数互换，因此还应该为趋势线和标题等内容重新编程语法。否则，您会随着时间的推移和对狗的一致性造成语法上的混乱。

我正在尝试找出做网格图形的替代方法，以便进行写作。

创建网格图形的不同方法

1. Trellis - 做事方式，使用lattice -pkg，代码在这里

在此处输入图像描述

2.结合不同的情节-pkgs

先生。不鼓励这种方式，但 rcs 在这里的做法。根据 MR 的说法，grid 是"much more user friendly way of creating grid grapics"，所以我觉得值得学习，lattice 和 ggplot2 之类的东西都是建立在 grid 之上的。请在此处查阅有关结合基本绘图功能和网格绘图功能的论文。

于 2012-08-18T19:58:50.370 回答