数据框中每一行的条形图

Question

我有一个数据框，我想为该数据框中的每一行绘制条形图。

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

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

*编辑：

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

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

Answer 2

如果我没理解错的话，这里有一个替代方案。

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

colnames(data) <- myDf$name

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

数据框中每一行的条形图

Barchart for each row in dataframe

diagram

plot

r

bar-chart