R 复制简单图形

大家好，我需要帮助复制一个项目的图表。我已经走了这么远，但我有三个问题，我不知道如何编码

分组的钢筋应进行切换

我需要图例上的n=82

X轴标签的顺序错误，它们应该是体重不足、正常体重、超重和肥胖

我会附上一张图片，上面显示了我的图是什么样子的，以及它应该是什么样子的

这就是图表应该显示的样子：

这就是我的图表的样子：

我是R的新手，希望得到帮助

Database_Nutritional_status_and_nosocomial_infections = read_csv("Final Project/Database_Nutritional_status_and_nosocomial_infections.csv")
View(Database_Nutritional_status_and_nosocomial_infections)

d=Database_Nutritional_status_and_nosocomial_infections

groups=xtabs(~d$`14_Nosocomial_infection`+d$`13_Nutritional_Status`)
groups

par(mar=c(3, 10, 3, 3))
barplot(groups, 
        beside=TRUE, 
        yaxs="r",
        xlab="Number of Patients",
        horiz = TRUE,
        las=1,
        xlim = c(0,30),

)

legend(x=18,y=12,legend=c("without NI (-)","with NI (+)"), fill=(c("gray88","gray30")))