如何在R中一次生成多个条形图？

我有一张超过100张的excel表格。如何为带有X轴和Y轴标签的所有raw一次分别为每个raw生成条形图

• 第一，没有标准误差

• 接下来是标准错误

这里的示例显示了3个RAW。 期待您的支持

Status  Sample 1    Sample 2    Sample 3    Sample 4    Sample 5    Sample 6    Sample 7    Sample 8    Sample 9    Sample 10
AA1 1.457958966 1.082728155 1.421862008 1.282919309 1.365338194 1.825823721 1.442458653 1.301820193 0.605102201 0.795770198
AB2 0.215245986 0.232381653 0.206548478 0.203164578 0.476502255 0.178929005 0.2419442   0.381018497 1.00597396  0.722438532
AZ1 0.297877541 0.313489112 0.251719576 0.272301642 0.354067746 0.326371147 0.268637474 0.344993509 1.912717065 1.22454492

---

我想您已经知道如何将excel中的数据导入R。我已经创建了一个示例数据框：

df <- data.frame(
  sample1 = runif(4, 0, 2),
  sample2 = runif(4, 0, 2),
  sample3 = runif(4, 0, 2),
  sample4 = runif(4, 0, 2),
  sample5 = runif(4, 0, 2),
  status = c("AA1", "AB2", "AZ1", "AX4")
)

> df
    sample1    sample2   sample3    sample4   sample5 status
1 0.8932929 1.31205570 1.9886886 0.05468494 0.8996559    AA1
2 0.9979367 0.02584171 0.6417443 0.53378421 0.9303479    AB2
3 1.8358270 1.49354287 0.2439607 1.72527919 0.7083448    AZ1
4 1.2310165 1.93928257 1.2704148 0.22660472 1.6099852    AX4

因此，现在我们可以使用

ggplot

绘制数据，并使用

facet\u wrap

为每个状态绘制单独的图

library(ggplot2)
ggplot(data = df_melted, aes(x = variable, y = value)) + geom_col() + facet_wrap(~status)

---

我想您已经知道如何将excel中的数据导入R。我已经创建了一个示例数据框：

df <- data.frame(
  sample1 = runif(4, 0, 2),
  sample2 = runif(4, 0, 2),
  sample3 = runif(4, 0, 2),
  sample4 = runif(4, 0, 2),
  sample5 = runif(4, 0, 2),
  status = c("AA1", "AB2", "AZ1", "AX4")
)

> df
    sample1    sample2   sample3    sample4   sample5 status
1 0.8932929 1.31205570 1.9886886 0.05468494 0.8996559    AA1
2 0.9979367 0.02584171 0.6417443 0.53378421 0.9303479    AB2
3 1.8358270 1.49354287 0.2439607 1.72527919 0.7083448    AZ1
4 1.2310165 1.93928257 1.2704148 0.22660472 1.6099852    AX4

因此，现在我们可以使用

ggplot

绘制数据，并使用

facet\u wrap

为每个状态绘制单独的图

library(ggplot2)
ggplot(data = df_melted, aes(x = variable, y = value)) + geom_col() + facet_wrap(~status)

---

谢谢你，布雷特约。如何在垂直位置分别为每个图形添加X轴标签。添加

facet\u wrap（~Status，scales=“free”，ncol=1）

谢谢tyluRp如果可能的话，您能告诉我如何将SE/SD添加到该图中吗。谢谢谢谢你，布雷特约森。如何在垂直位置分别为每个图形添加X轴标签。添加

facet\u wrap（~Status，scales=“free”，ncol=1）

谢谢tyluRp如果可能的话，您能告诉我如何将SE/SD添加到该图中吗。谢谢