在R中创建具有多个组的条形图[重复]

Question

我有一个包含多种病原体的数据集。我想创建一个条形图，在 x 轴上列出病原体，其中包含 3 个条形“阴性”“阳性”和“NA”（在数据集中列出）并在 y 轴上计数。我成功地使用以下代码为单个病原体创建了条形图，但我无法弄清楚如何在单个图表上获取所有病原体。帮助将不胜感激。

对于单一病原体：

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”、“Negative”和“Positive”而不是病原体。

Answer 1

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

# 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'))

这是输出：

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