lattice

1热度

1回答

是否可以将键（例如sp.points图层）添加到由levelplot生成的颜色键？看看下面的例子： library(rasterVis) library(latticeExtra) library(sp) r <- as.factor(raster(matrix(rbinom(100, 1, 0.5), 10))) levels(r)[[1]] <- data.frame(ID=0:1

0热度

1回答

不同布局的格点直方图

我想仔细看看RT时间在问题上的分布情况。为了做到这一点，我使用了格子来制作阴影，并用一个数字来描绘它们。我用以下设置： histogram(~ rt | pp,layout=c(6,4),data = data.frame, main=list( label="RT distribution per subject", cex=1.5), xlab=l

2热度

1回答

R格线框颜色比例相似的跨剧情

有没有办法改变格的悬垂颜色比例：wireplot？我有一系列的情节，并希望调整颜色，使他们每个显示相同的色阶。我可以改变z轴的比例尺，但这只能让它自动上下移动，而不是色阶。有没有一个关键字我查找它时失踪？ wireframe(InitFe2solid.ug.gdw~Depth*Distance, allplatesdata[allplatesdata$UseMonth=="Augus

2热度

1回答

在rasterVis levelplot中更改添加的形状文件的背景颜色

我想更改海洋颜色（在shapefile边界之外）。我可以剪切光栅并更改背景颜色，但在此我想用添加的shapefile来完成此操作。 library(raster) library(rasterVis) library(maps) library(maptools) library(mapdata) r <- raster(nrow=361, ncol=576, ymn=-90, ymx

0热度

1回答

更改区域间隔rasterVis horizonplot

我正在与rasterVishorizonplot功能，我想改变区间间隔;例如我想要显示x axis中每10个纬度区域的平均值。这是an example从rasterVis库。 library(raster) library(rasterVis) horizonplot(SSTanom, col.regions = rev(brewer.pal(n = 10, 'RdBu')))

-1热度

2回答

创建时间图

我有以下示例数据并想创建水平图，显示列在year上的更改。任何建议使用ggplot2？ year <- 1990:2005 area1 <- runif(16, 18,20) area2 <- runif (16,6,6.7) area3 <- runif(16, 7,8) dat <- data.frame(year, area1, area2, area3)

1热度

1回答

如何反转水平图中y轴标签的顺序？

我想将y轴（“行”）的标签从减少（从上到下）更改为增加（从上到下），以正确匹配绘图值。这应该对任何y轴标签（自动）完成，而不仅仅是手动定义y轴上的值（换句话说，我如何在y轴上取出使用的标签，颠倒它们的顺序，然后把它们放回来作为标签？panel.levelplot（）看起来像什么？）。另外，这应该在不使用额外包的情况下完成。 library(lattice) A <- outer(1:100, 1

2热度

1回答

如何删除面板标题，并添加点到晶格积

我有两个数据帧： df1 <- read.table(text = " Time Score ID -83 19 C1 -69 17 C2 -55 15 C3 -28 22 C4 0 27 C5", header=TRUE) df2 <- read.table(text = " Time Score ID -83 19 C1 -55 15 C3

1热度

1回答

在地层图上更改基线位置

如何手动调整地层图中特定面板的x轴基线位置？例如，这里的Stratiplot从模拟： library(analogue) data(V12.122) Depths <- as.numeric(rownames(V12.122)) (plt <- Stratiplot(Depths ~ O.univ + G.ruber + G.tenel + G.pacR, data =

0热度

1回答

更改格子图例中的订单

我想知道是否有改变格子图例中系列的顺序？例如，如果我有一个叠加密度a，b和c的图，但在图例中，我希望命令是c，b，a有无论如何我可以这样做？ dat <- data.frame(dens = c(rnorm(100), rnorm(100, 10, 5), rnorm(100,-10,5)) , lines = rep(c("a", "b","c"), each = 100))