如何將數據傳遞到R中的堆疊條形圖？

Question

我有其中數據結構這樣一個CSV文件：

model,pass,fail 
a,10,5 
b,5,10 
c,15,5 

我想打一個堆積條形圖，將是這樣的：

我曾嘗試使用下面的代碼（數據是導入的csv文件的名稱）：

barplot(as.matrix(data), col=c("light green","light yellow")) 
legend("topright", fill=c("light green","light yellow"), legend=rownames(data)) 

...但是這將標題名稱作爲數據點。我應該如何將「數據」傳遞給barplot函數，以便每個模型（a，b，c）都是條形圖？

（因爲我是新來的R，我寧可不使用像ggplot的庫現在）

Answer 1

> model <- c("a", "b", "c") 
> pass <- c(10, 5, 15) 
> fail <- c(5, 10, 5) 
> dat <- data.frame(model, pass, fail) 
> 
> library(ggplot2) 
> library(reshape2) 
> dat <- melt(dat) 
Using model as id variables 
> dat 
    model variable value 
1  a  pass 10 
2  b  pass  5 
3  c  pass 15 
4  a  fail  5 
5  b  fail 10 
6  c  fail  5 
> ggplot(dat, aes(x = model, y = value, fill = variable)) + geom_bar(stat = "identity") 

如果你不想使用GGPLOT2包，就可嘗試

model <- c("a", "b", "c") 
pass <- c(10, 5, 15) 
fail <- c(5, 10, 5) 
dat <- data.frame(pass, fail) 
dat <- t(dat) 
rownames(dat) <- model 

barplot(dat, xlab = "Model", col = c("light green","light yellow")) 
legend("top", legend = rownames(dat), fill = c("light green", "light yellow"))