使用多个组在R中创建条形图

我有一个关于几种病原体的数据集。我想创建一个条形图，在x轴上列出病原体，在y轴上有3条“阴性”、“阳性”和“NA”（列在数据集中）并计数。我用下面的代码成功地为单个病原体创建了一个条形图，但我不知道如何在一个图形上获得所有病原体。我们将不胜感激

对于单一病原体：

countST=table(NetJoint$`sT-ETEC`)  
barplot(countST)

我对多种病原体的尝试：

ETECcounts=table(NetJoint$`LT-ETEC`, NetJoint$`sT-ETEC`)  
barplot(ETECcounts, main="Pathogen Distribution",  
        xlab="Pathogen", beside=TRUE) 

---

^^此代码在x轴上列出“NA”、“阴性”和“阳性”，而不是病原体。

如果您共享一些数据，可能会对我们有所帮助。但我认为解决办法是这样的：

# create an example dataframe
NetJoint = data.frame(
  'LT-ETEC' = c('Positive', 'Positive', 'Negative', 'Positive', NA, 'Positive', NA),
  'sT-ETEC' = c(NA, 'Negative', 'Negative', NA, 'Positive', NA, 'Positive')
)
# create a table for each variable of the dataframe
ETECcounts = sapply(NetJoint, table, useNA = 'always')
# plot base layer
barplot(ETECcounts, main = 'Pathogen Distribution',  
        xlab = 'Pathogen', beside = TRUE, col = c('orange', 'darkgreen', 'grey'))
# add legend layer
legend('topright', fill = c('orange', 'darkgreen', 'grey'),
       legend = c('Positive', 'Negative', 'NA'))

以下是输出：

---

如果这是您要找的，请告诉我。

welcome@katie，堆栈溢出的一个好做法是共享一段数据，然后我们可以复制它。您可以复制并粘贴

dput（NetJoint）

的输出，我想我可以帮助您，但我无法分享我所了解的研究数据。。嗯，我试着回答你的问题。。我希望它能帮助你。非常有帮助，谢谢你！