如何从数据框中多个变量的单行生成条形图？

Question

我有大量变量（3000 个变量），我想分别为每一行（140 行）生成一个条形图。我知道我不能在脚本中写入所有变量。

barchart(V1+V2+V3+...+V3000~ var,
         data=my_data,
         auto.key=list(space='right')
         )

Answer 1

在数据行的 for 循环中使用所需的绘图函数。

## bar chart version
op <- par(mfrow=c(3, 2))
for (i in seq_len(nrow(dat))) {
  barplot(unlist(dat[i, ]), main=i)
}
par(op)

## histogram version
op <- par(mfrow=c(3, 2))
for (i in seq_len(nrow(dat))) {
  hist(unlist(dat[i, ]), main=i)
}
par(op)

---

数据：

set.seed(42)
dat <- as.data.frame(replicate(6, rpois(6, 3)))