我正在嘗試使用par函數合並多個圖。 這些圖由sjPlot函數sjp.likert()生成。

我使用了sjPlot包本身中的兩個示例圖,並嘗試將它們結合起來:

likert_2 <- data.frame(as.factor(sample(1:2, 500, replace=TRUE, prob=c(0.3,0.7))),
    as.factor(sample(1:2, 500, replace=TRUE, prob=c(0.6,0.4))),
    as.factor(sample(1:2, 500, replace=TRUE, prob=c(0.25,0.75))),
    as.factor(sample(1:2, 500, replace=TRUE, prob=c(0.9,0.1))),
    as.factor(sample(1:2, 500, replace=TRUE, prob=c(0.35,0.65))))
    levels_2 <- list(c("Disagree", "Agree"))

likert_4 <- data.frame(as.factor(sample(1:4, 500, replace=TRUE, prob=c(0.2,0.3,0.1,0.4))),
    as.factor(sample(1:4, 500, replace=TRUE, prob=c(0.5,0.25,0.15,0.1))),
    as.factor(sample(1:4, 500, replace=TRUE, prob=c(0.25,0.1,0.4,0.25))),
    as.factor(sample(1:4, 500, replace=TRUE, prob=c(0.1,0.4,0.4,0.1))),
    as.factor(sample(1:4, 500, replace=TRUE, prob=c(0.35,0.25,0.15,0.25))))
    levels_4 <- list(c("Strongly disagree", "Disagree", "Agree", "Strongly Agree"))
    items <- list(c("Q1", "Q2", "Q3", "Q4", "Q5"))

par(mfrow=c(2,1))
    sjp.likert(likert_2, legendLabels=levels_2, axisLabels.y=items, orderBy="neg")
    sjp.likert(likert_4, legendLabels=levels_4, axisLabels.y=items)

結果是R連續顯示圖。 有誰知道如何正確組合這些圖?

#1樓 票數:4 已采納

sjp.likert返回不是基本圖形的ggplot2-objects。

因此,您必須使用par以外的其他功能。

例如,嘗試以下操作:

p1 <- sjp.likert(likert_2, legendLabels=levels_2, axisLabels.y=items, orderBy="neg")
p2 <- sjp.likert(likert_4, legendLabels=levels_4, axisLabels.y=items)
require(gridExtra)
require(grid)
require(ggplot2)
grid.arrange(p1$plot, p2$plot, nrow = 2)

  ask by rdatasculptor translate from so

未解決問題?本站智能推薦:

1回復

如何平行地將點添加到兩個圖中? (在R中)

我正在尋找方法將點並行添加到三個不同的圖中。 我在一個窗口中有三個名為s3d1 , s3d2和s3d3散點圖 如果我嘗試將點添加到s3d1 , 積分將轉到s3d3而不是s3d1 。 我錯過了什么? 更多信息:我在運行程序時獲取數據點。 因此,當我獲得特定於該特定圖
1回復

在同一圖中繪制兩個空間圖-R會不斷切割該圖

我在R中的繪圖存在問題。基本上,我正在嘗試繪制兩個空間圖(MPC)(使用mfrow=c(1,2) ,但R一直在剪切其中一個的右邊緣。 我試圖更改par函數的oma , mai和mar參數,但是沒有用。 如果我分別繪制它們,則不會發生,這使我認為問題可能出在par()函數中。 這是我
1回復

在R-par中繪制多個圖

我已經使用par(mfrow = c(2,2))創建2x2繪圖的矩陣。 以前這個工作還不錯。 但是,這次我的地塊太小了。 我沒有更改代碼中的任何內容。 我想我一定是在不知情的情況下改變了環境。 有什么想法可以恢復更改嗎?
1回復

如何調整R中布局內單個圖的邊距?

我有一個由7個圖形組成的布局,一個在頂部,另一個在第一個下面的3x2矩陣中展開。 在我的布局中,情節完全在一起,我想在第一個情節和其他情節之間留下一點gao。 我怎么能在R中這樣做? 我想要類似的東西
1回復

使用 par mar 和 oma 增加 png 圖中的邊距不起作用 [重復]

這個問題在這里已經有了答案: 使用 par 設置 png 繪圖設備的繪圖邊距(1 個回答) pdf 繪圖設備的繪圖邊距:y 軸標簽落
2回復

R用par(new = T)繪制多個序列-軸標簽相互重疊,使該圖不可讀

我正在繪制多個數據系列。 我的情節看起來像這樣: 有沒有一種方法可以在每次迭代時覆蓋繪圖軸,但不覆蓋繪圖點?
2回復

在繪制來自partykit的ctree輸出時,如何抖動節點拆分字符串?

我有一個問題,我在分類樹中主要使用分類數據,設置為一類因子。 我在R中使用partykit包而不是party因為之前的答案建議前一個包更好地處理圖形輸出。 我的真實數據集中沒有很多節點(大約7個),但是我對一些變量有很多因子水平,我遇到的問題是分裂左側的因子水平和右側的因子水平是相互干擾
2回復

“plot.new()中的錯誤:繪制區域太大”同時使用R在一個布局/面/網格內繪制4個地圖(2 * 2)

我是R的新手,並嘗試使用R中的Map繪制航空公司網絡圖。我陷入了一個點,我想在面板/構面/網格中繪制4個不同的圖。 我收到如下錯誤: plot.new()中的錯誤:繪圖區域太大 示例代碼至今: //沒有任何網絡線的示例地圖.. PS:這不是一個重復的帖子。 我在R中