数据框中每行的条形图

Question

我有一个数据框，我想在这个数据框中的每一行都有一个条形图。

for(i in levels(myDf$name)) {
    barplot(cbind(unlist(myDf[i, 1:2]), unlist(myDf[i, 3:4])), beside=TRUE)
}

然而，这不起作用。它没有给我输出...我如何在一个窗口中绘制它以便我可以将其导出到文件？！

*编辑：

myDf<-data.frame(name=c('xyz','ybc','def'),
              var1=c(2,8,7), 
              var2=c(1,4,5),
              var3=c(3.8,2.5,8.4),
              var4=c(93.8,42.5,91.4))

Answer 1

如果我理解正确，那么这里有另一种选择。

data <- t(myDf[,2:5])

colnames(data) <- myDf$name

barplot(data,legend.text = rownames(data),beside=T,xlab='Row', ylab='Value')

Answer 2

for(i in seq(myDf$name)) {
    barplot(cbind(unlist(myDf[i, 1:2]), unlist(myDf[i, 3:4])), beside=TRUE)
}