R 具有单个分类变量和多个描述/连续变量的条形图

我有一个总结数据如下

实验室名称良好测试不良测试总数 1主楼1683911774 2区1200 2569 2769 3区2 106 1898 2004 4第3区53 808 861 5区4 115 1241 1356 6区5 NA 0

我正试图从Excel中绘制一个类似于此的图表

[！[Barchat][2]][2]

[2]: https://i.stack.imgur.com/f7DyF.png

我使用了下面的脚本，但没有成功

tidy_Data = df %>% 
  gather(key, value, Bad_tests, Good_tests)
tidy_Data
ggplot(aes(value)) + 
geom_density(aes(fill = key), show.legend = FALSE) + `
facet_grid(vars(Lab_Name), vars(key), scales = "free")

---

请帮助

下一个代码将帮助您达到类似的目的：

library(tidyverse)
#Data
Data <- data.frame(LabName=c('Main',paste0('District',1:5)),
                   Good_tests=c(1683,200,106,53,115,0),
                   Bad_tests=c(91,2569,1898,808,1241,0),stringsAsFactors = F)
#Variables
Data$Total_tests <- Data$Good_tests+Data$Bad_tests

#Tidy and Plot
tidy_Data = Data %>% 
  gather(key, value, Bad_tests, Good_tests,Total_tests)

ggplot(tidy_Data,aes(x=LabName,y=value,fill=key)) + 
  geom_bar(stat = 'identity',position = position_dodge())

库（tidyverse）
#资料
数据下一个代码将帮助您实现类似的目标：

library(tidyverse)
#Data
Data <- data.frame(LabName=c('Main',paste0('District',1:5)),
                   Good_tests=c(1683,200,106,53,115,0),
                   Bad_tests=c(91,2569,1898,808,1241,0),stringsAsFactors = F)
#Variables
Data$Total_tests <- Data$Good_tests+Data$Bad_tests

#Tidy and Plot
tidy_Data = Data %>% 
  gather(key, value, Bad_tests, Good_tests,Total_tests)

ggplot(tidy_Data,aes(x=LabName,y=value,fill=key)) + 
  geom_bar(stat = 'identity',position = position_dodge())

库（tidyverse）
#资料
数据
库（dplyr）
图书馆（三年）#枢轴#
图书馆（GG2）
tibble（lab=c（“m”、“d1”、“d2”）、gt=c（1683200106）、bt=c（9125691898））%>%
突变（lab=粘贴（lab，gt，bt，sep=“\n”））%>%
枢轴长度（-lab）%>%
ggplot（aes（实验室、值、填充=名称、组=名称））+
几何坐标（位置=“道奇”）+
xlab（空）+
主题（legend.position=“底部”）

库（dplyr）
图书馆（三年）#枢轴#
图书馆（GG2）
tibble（lab=c（“m”、“d1”、“d2”）、gt=c（1683200106）、bt=c（9125691898））%>%
突变（lab=粘贴（lab，gt，bt，sep=“\n”））%>%
枢轴长度（-lab）%>%
ggplot（aes（实验室、值、填充=名称、组=名称））+
几何坐标（位置=“道奇”）+
xlab（空）+
主题（legend.position=“底部”）

请
dput（）
您的数据并添加到问题中。请
dput（）
您的数据并添加到问题中。这太完美了。谢谢你这太好了。非常感谢。