lattice

    0热度

    1回答

    请考虑文章末尾的短代码。 它产生一个条形图,其中一切都如我所愿,除了一些 小调整的传奇。 我可以控制图例中 图例的两行文本之间的间距,但是如何强制图例中红色和 蓝色矩形之间的某些间隔? 欢迎任何建议。 library(lattice) library(latticeExtra) df_tot<-structure(list(country = structure(c(13L, 1L, 3L

    1热度

    1回答

    我有一种情况,我有两种不同类型的情节,我需要将它们一起绘制在一起,并在其顶部标上标题。我必须使用格子包,因此ggplot2不是一个选项。由于 我这里有一个示例代码: library(lattice) library(latticeExtra) X<-rnorm(100) Y<-rnorm(100) S<- rnorm(500) df1<-data.frame(X,Y,S) p1<-d

    -1热度

    1回答

    我有一个带有平滑线(6条不同线)的点阵xyplot。我想更改线条类型 - 线条的颜色和类型(虚线等),以便它们在B & W中可以理解,而不是以颜色(这是默认设置)。任何人都可以就此提供建议吗?下面是我当前的代码: xyplot(y~x, data=df, group=categorical, type = "smooth", ylim=c(-2,0.5), xlab="x", ylab

    1热度

    1回答

    我正尝试使用R中的格子包创建图形。我知道其他现有的包,但如果可能的话想使用格子。 为了给分组的xyplot添加错误条,我采用了Deepayan Sarkars解决方案,我找到了here(代码如下)。 它工作正常,除非我尝试添加网格线的情节。网格线覆盖了一些数据点,但不是全部。有人明白这是为什么,以及如何避免它?我希望网格在后台绘制。 library(lattice) # prepare sam

    0热度

    1回答

    您好我正在尝试通过ID和天数来绘制多个地块因数。每个ID将根据当天有多个地块,所有ID都有多个日期数据,因此有多个地块。我尝试了如下所示的格子图。但是,日期和ID都是一个问题。 library("lattice") # require("lattice") - you do not need this line xyplot(IPRE+PRED+DV) ~ TIME| ID, data= df

    0热度

    1回答

    我正在使用R格包的levelplot。 我想用我的自定义刻度和标签制作坐标轴。目前,我有以下几点: 我想这两个轴线被标记为以下几点:-pi,-0.5pi,0,0.5pi,PI等..

    0热度

    2回答

    我想绘制一个x和y刻度的水平图作为log10刻度。 例如,我有一个这样的正常水平的情节。 x <- 10*1:nrow(volcano) y <- 10*1:ncol(volcano) filled.contour(x, y, volcano, color = terrain.colors, plot.title = title(main = "Volcano topolgy", xlab =

    0热度

    1回答

    我目前使用R中的网格包来创建散点图矩阵,使用splom函数。我的数据集中有两个组,标记在两个不同的列,如这样: PC1 PC2 PC3 Group1 Group2 1 2 3 A X 1 2 3 B X 1 2 3 C X 1 2 3 D X 1 2 3 A Y 1 2 3 B Y 1 2 3 C Y 1 2 3 D Y 1 2 3 A Z 1 2 3 B

    0热度

    2回答

    我有一个数据帧DF与以下变量Connet的点:测试,甲,p和D。我想打印一个对p,通过可变d水平分组。 我使用xyplot这样做,并型=( 'P', 'L')来绘制点和点之间的连接线。此过程连接相同级别变量的所有点D。问题是我只想连接来自相同的点测试。 任何线索如何做到这一点?或者,如果可以这样做xyplot? 示例数据 Test A p D 95 32 0.0000000 0.010

    2热度

    1回答

    我使用lattice程序包中的levelplot函数绘制热点图。在我的基质范围从-1到1,并且值我用下面的规模: cols <- colorRampPalette(c("blue", "white", "red"))(256) 一个小例子: d <- 20 df <- expand.grid(x = 1:d, y = 1:d) df$z <- runif(d*d, -1, 1) lev