多個barplots保持相同的軸和相同的條寬

Question

非常愚蠢的問題，但我無法找到答案在線：

需要繪製多個barplots這樣在一起：

i=1:4 
main = paste ("Location ", i) 

windows() 
par(mfrow=c(2,2)) 
a<-table(c(rep(10, 6), rep(4, 32))) 
b<-table(c(rep(9, 6), rep(10, 32), rep(11,4))) 
c<-table(c(rep(10, 6))) 
d<-table(c(rep(10, 3), rep(9, 3), rep(8, 5))) 

barplot(a, main=main[1], xlab='RSSI') 
barplot(b, main=main[2], xlab='RSSI') 
barplot(c, main=main[3], xlab='RSSI')#, width=0.5 
barplot(d, main=main[4], xlab='RSSI') 

1 ）是否有可能保持軸的比例不變，這樣每張圖都是一樣的？

2）是否可以在圖中保持條寬不變？我嘗試寬度，但它似乎並沒有工作，我想它有恆定和固定之間的圖形。

感謝

編輯：2）我知道你可以加個零，這樣所有的圖形具有相同數目的介入類，但由於我是在我策劃的循環，我已刪除，使例如更簡單，我寧願用另一種方式來做到這一點，如果可能的話。 再次感謝

Answer 1

看一看在?barplot描述的xlim和ylim參數：（xlim和width互相影響）

barplot(a, main=main[1], xlab='RSSI', xlim=c(0, 4), ylim=c(0, 32)) 
barplot(b, main=main[2], xlab='RSSI', xlim=c(0, 4), ylim=c(0, 32)) 
barplot(c, main=main[3], xlab='RSSI', xlim=c(0, 4), ylim=c(0, 32)) 
barplot(d, main=main[4], xlab='RSSI', xlim=c(0, 4), ylim=c(0, 32)) 

Answer 2

可能是隻爲你的例子說明你將每個繪圖的數據保存在不同的向量中。無論如何，如果地點的數量要大得多，你很快就會讓你的工作區變得雜亂無章，你必須多次撥打table和barplot。

無論您使用base R函數還是ggplot來繪圖，使用數據幀中存儲的數據都會更容易。此外，如果在每個圖中使用每個位置的相同類別集合，即包括具有零個計數的RSSI類別，則在不同位置之間比較不同級別的RSSI的計數可能更容易。您也可以在不同位置使用y軸的相同比例。這裏是ggplot

library(ggplot2) 

# create a data frame with the data in your vectors 
# 'x' is the value, and 'loc' the location of each registration 
df <- data.frame(x = c(rep(10, 6), rep(4, 32), 
         rep(9, 6), rep(10, 32), rep(11, 4), 
         rep(10, 6), 
         rep(10, 3), rep(9, 3), rep(8, 5)), 
       loc = c(rep("a", 6+32), rep("b", 6+32+4), rep("c", 6), rep("d", 3+3+5))) 

# plot using geom_bar, which default counts the cases for each level of - no need for 'table' 
ggplot(data = df, aes(x = factor(x))) + 
    geom_bar() + 
    facet_wrap(~ loc)