R-4组、3个子组中的分组条形图

我试图用R来绘制这些数据

group1(extremely obese=1.3, obese=8.6, overweight=10.9)

group2(extremely obese=8.6, obese=19.5, overweight=15.7)

group3(extremely obese  =7.6, obese =21.9, overweight 1=7)

group4(extremely obese=4.4, obese=14.7, overweight=13.8)

我尝试了很多教程中建议的代码，但我一直遇到红色脚本的问题。 常说“数据框错误”，条形图公式错误，找不到主题

我想把数据放在一个分组条形图中，其中x轴有1-4组，子组为（极度肥胖、肥胖、超重），y轴为代表百分比的相应数字

我怎样才能让它显示出来？

虽然我同意这个问题太宽泛了，但我觉得以给定的格式获取数据并创建所需的图表是一个挑战

该任务需要读取数据，将宽格式重新调整为长格式，并创建绘图：

# dataset as posted by the OP
txt <- "
group1(extremely obese=1.3, obese=8.6, overweight=10.9)

group2(extremely obese=8.6, obese=19.5, overweight=15.7)

group3(extremely obese  =7.6, obese =21.9, overweight =17)

group4(extremely obese=4.4, obese=14.7, overweight=13.8)
"

library(data.table)
library(magrittr)
library(ggplot2)

txt %>% 
  # turn special characters into column separators
  gsub("[(=)]", ",", .) %>% 
  # read 
  fread(., blank.lines.skip = TRUE) %>%
  # reshape from wide to long format with two value columns
  .[, melt(.SD, "V1", list(c("V2", "V4", "V6"), c("V3", "V5", "V7")),
           value.name = c("subgroup", "percent"))] %>% 
  # rename first column
  .[, setnames(.SD, "V1", "group")] %>% 
  # create chart
  ggplot() +
  aes(group, percent, fill = subgroup) +
  geom_col(position = "dodge")

#OP发布的数据集
txt%
#将特殊字符转换为列分隔符
gsub（“[（=）]”，“，”，）%>%
#阅读
fread（，blank.lines.skip=TRUE）%>%
#使用两个值列将宽格式重塑为长格式
[，熔化（.SD，“V1”，列表（c（“V2”，“V4”，“V6”），c（“V3”，“V5”，“V7”），
value.name=c（“子组”、“百分比”）]%>%
#重命名第一列
[，设置名称（.SD，“V1”，“组”）]%>%
#创建图表
ggplot（）+
不良事件（组，百分比，填充=子组）+
几何坐标（位置=“道奇”）

---

欢迎使用堆栈溢出！解决这个问题需要几个步骤。我建议您1）学习如何创建数据框2）使用此处的教程制作条形图：或