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