在R中繪制堆積條形圖

Question

我想在R中創建直方圖[堆積條形圖]，數據如下：

Period = c(1,1,2,2,3,3,4,4)                              
Sample = c("A","B","A","B","A","B","A","B")
Value1 = c(3,2,6,7,3,2,1,2)
Value2 = c(1,0,5,2,2,0,2,5)
x <- data.frame(Period,Sample,Value1,Value2)

是否可以在X軸上設置“Period”和“Sample”，在“Stacked Bar Plot”中設置值（“Value1”和“Value2”）。 所以第一個直方圖的高度為4（Value1和Value2分開）感謝您的幫助！ 最好的祝福。

Answer 1

您正在描述堆積條形圖，而不是直方圖。 使用ggplot您可以按如下方式執行此操作：

library(ggplot2)
library(reshape2)

x <- data.frame(
  Period = c(1,1,2,2,3,3,4,4),
  Sample = c("A","B","A","B","A","B","A","B"),
  Value1 = c(3,2,6,7,3,2,1,2),
  Value2 = c(1,0,5,2,2,0,2,5)
)

mx <- melt(x, id.vars=1:2)
ggplot(mx, aes(x=Period, y=value, fill=variable)) + 
  geom_bar(stat="identity") + 
  facet_grid(~Sample)

Answer 2

它不像ggplot解決方案那么漂亮但是

v <- rbind(Value1,Value2)
barplot(v,beside=FALSE,names=levels(interaction(Period,Sample)),legend=TRUE)

似乎工作。