标签: lattice

我想知道是否可以在R中的 levelplot(网格包)上显示数据值.如果有人帮我这样做,我会很感激.提前致谢.

我已经成功地在我的数据集中为所有年份和月份制作可变风速的直方图.但是我想要以1英里/小时的间隔标记x轴.每个箱也是1英里/小时的间隔.目前默认情况下,x轴以20英里/小时的间隔标记.

这是我的R代码.

histogram(~ as.numeric(spd) | factor(month) + factor(year), data = spd_sub, 
  xlab = "spd in miles/hour", 
  nint= max(as.numeric(spd))-min(as.numeric(spd)), layout = c(1, 1))

知道怎么做吗？

如何将我的轴标签以方便的格式放入格子中？

require(stats)

xyplot(lat*1000000 ~ long, data = quakes)

给了我像y的标签-3.5e+0.7.我希望格子写出整数.

(也许这很容易,但我找不到解决方案.)

先感谢您!

我得到了以下数据框(这里简化):

    H2475  H2481  H2669  H2843  H2872  H2873  H2881  H2909
E1 24.470 26.481 15.120 18.490 16.189 11.422 14.886 18.512
E2  1.016  0.363  0.509  1.190  1.855  0.958  0.771  0.815
E3  0.671  0.637  0.571  0.447  0.116  0.452  0.403  0.753
E4  3.448  2.826  2.183  2.607  4.288  2.526  2.820  3.523
E5  2.548  1.916  1.126  1.553  1.089  1.228  0.887  1.065

其中E1 - E5是行号.我想为每行的值创建一个boxplot(甚至更好的小提琴图).我想忽略列ID,并将行ID作为"因子".

像这样的回答: 如何生成boxplot

但使用E1 - E5作为值.正如你可能猜到我是新手融化/演员/重塑.

非常感谢您的帮助

使用auto.key时lattice,我可以交换符号和文本的默认位置吗？也就是说,我希望图例中的文字相对于符号位于右侧.我知道这很容易做到key,但是为每个绘图单独链接颜色和组不仅乏味,而且非常容易出错.

我有一个带有两个条件的晶格图：一个条件（x1）有4个层，一个条件有2个层（x2）。该图的每个变量x1和x2都有一个条纹（edit1：x3是具有2个级别的第三个变量）：

df <- data.frame(y = runif(100,0,10)
                 , x1 = rep(c("A","B","C","D"),25)
                 , x2 = as.numeric(c(runif(100)<0.5))
                 , x3 = c(runif(100) < 0.5)
                 )
df$x3 <- with(df, ifelse( x3 == TRUE, "R","S"))
histogram( ~y | x1 + as.factor(x2), data=df)

上面板包含x2的第一层，下面板包含x2的第一层。x1的条带根据x1的级别数（垂直线）划分。这是有道理的。但是x2的条带也根据x1的级别数进行了划分，分别显示级别0为1的4倍。我只希望看到x1的标签。代码提供了以下内容：

0000
ABCD

我想看这个：

  0
ABCD

谢谢你的帮助。

我可以做到这一点而没有问题：

boxplot(coef ~ habitat, data = res)
abline(h = 0, col = "green")

但是当我使用点阵时，水平线放错了位置：

bwplot(coef ~ habitat, data = res)
abline(h = 0, col = "green")

我尝试使用它panel.abline代替，但是将绿线放在图片的顶部。

我想在for循环中生成几个格子图,但它确实创建了空图像!

for (f in unique(df$month)) {
    plot.new()
    bwplot(x ~ country|type, data = df[df$month == f,], panel=function(...) {
        panel.abline(h=0, col="green")
        panel.bwplot(...)
    })
    savePlot(paste0("file_", f), "png")
}

当我"手动"运行for循环的内部时,它可以工作,但是在循环中它停止工作.为什么？

以下是生成数据的代码:

set.seed(123)
n <- 300
country <- sample(c("Europe", "Africa", "Asia", "Australia"), n, replace = TRUE)
type <- sample(c("city", "river", "village"), n, replace = TRUE)
month <- sample(c("may", "june", "july"), n, replace = TRUE)
x <- rnorm(n)
df <- data.frame(x, country, type, month)

有没有人知道如何调整格子图中的标记线宽度,理想情况下使用auto.key？我需要独立于绘图中的线条粗细调整它,我需要非常薄.默认情况下,图例中的线条也非常薄,这使得很难通过颜色或线条样式区分不同的系列.中等厚度的矩形将是图例中理想的系列标记.

x = seq(1,360*10,1)
y = sin(x*pi/180)
df = data.frame(x=x, y=y, id="x")
p.xy <- xyplot(y~x, groups=id, data=df, type="l", lwd=.1
              ,auto.key=list(lines=T, points=F))
print(p.xy)

谢谢!
布赖恩

我已经得到了聚类的结果,并决定使用晶格为每个聚类制作一个箱形图.接下来,我面临着建立所有集群箱图可接受的规模的需求.

找到一个解决方案,允许排除异常值并设置自由关系.

library(lattice)
trellis.device(new=FALSE, col=FALSE)

bwplot(value ~ variable | Cluster, data = test, 
       layout = c(2,2), 
       prepanel = function(x, y) {
               bp <- boxplot(split(y, x), plot = FALSE)
               ylim <- range(bp$stats)
               list(ylim = ylim) },
       scales = list(y = list(relation = "free")),
       do.out = F)

所以,我有很好的情节,但如果我手动设置每个情节的ylim,它会更好.例如,我的数据中只有整数值,而左上方群集图中的值0.5则没有意义.

那么,有没有办法在bwplot参数中设置多个ylims？