在一个堆叠的圆形条形图中绘制共病数据

huangapple
go评论69阅读模式
英文:

Plotting comorbidity data in a stacked circular bar chart

问题

我主要想创建这幅糟糕的手绘图（见下文），以展示我手头的数据集中，特定疼痛症状患者的合并诊断传播情况。

以下是示例数据和示例大图的链接。

类别	        疾病	                      组别	频率
神经系统	    癫痫症	FM	                0
神经系统	    癫痫症	CR	                1
神经系统	    癫痫症	CM	                0
神经系统	    癫痫症	HC	                1
神经系统	    慢性偏头痛	FM	          2
神经系统	    慢性偏头痛	CR	          3
神经系统	    慢性偏头痛	CM	          7
神经系统	    慢性偏头痛	HC	          0
神经系统	    自闭症	FM	              1
神经系统	    自闭症	CR	              1
神经系统	    自闭症	CM	              1
神经系统	    自闭症	HC	              0
神经系统	    带状疱疹后神经痛	FM	  0
神经系统	    带状疱疹后神经痛	CR	  0
神经系统	    带状疱疹后神经痛	CM	  1
神经系统	    带状疱疹后神经痛	HC	  0
神经系统	    希尔 Malformation	FM	0
神经系统	    希尔 Malformation	CR	0
神经系统	    希尔 Malformation	CM	1
神经系统	    希尔 Malformation	HC	0
神经系统	    脊髓空洞症	FM	          0
神经系统	    脊髓空洞症	CR	          0
神经系统	    脊髓空洞症	CM	          1
神经系统	    脊髓空洞症	HC	          0
神经系统	    继发性纤维肌痛	FM	  0
神经系统	    继发性纤维肌痛	CR	  7
神经系统	    继发性纤维肌痛	CM	  0
神经系统	    继发性纤维肌痛	HC	  0
神经系统	    三叉神经痛	FM	          0
神经系统	    三叉神经痛	CR	          1
神经系统	    三叉神经痛	CM	          0
神经系统	    三叉神经痛	HC	          0
神经系统	    糖尿病	FM	              3
神经系统	    糖尿病	CR	              3
神经系统	    糖尿病	CM	              2
神经系统	    糖尿病	HC	              0
神经系统	    神经纤维瘤病 1	FM	      0
神经系统	    神经纤维瘤病 1	CR	      0
神经系统	    神经纤维瘤病 1	CM	      1
神经系统	    神经纤维瘤病 1	HC	      0
神经系统	    嗜睡症	FM	              2
神经系统	    嗜睡症	CR	              0
神经系统	    嗜睡症	CM	              1
神经系统	    嗜睡症	HC	              0
神经系统	    神经病	FM	              0
神经系统	    神经病	CR	              0
神经系统	    神经病	CM	              1
神经系统	    神经病	HC	              0
神经系统	    慢性疲劳综合症	FM	      12
神经系统	    慢性疲劳综合症	CR	      1
神经系统	    慢性疲劳综合症	CM	      0
神经系统	    慢性疲劳综合症	HC	      0
神经系统	    枕神经痛	FM	              0
神经系统	    枕神经痛	CR	              1
神经系统	    枕神经痛	CM	              0
神经系统	    枕神经痛	HC	              0
神经系统	    尺神经炎	FM	              0
神经系统	    尺神经炎	CR	              1
神经系统	    尺神经炎	CM	              0
神经系统	    尺神经炎	HC	              0
精神疾病	    焦虑	FM	                  33
精神疾病	    焦虑	CR	                  18
精神
英文:

I'm essentially wanting to create this terrible hand drawn graph (see below) for a dataset I have of where I want to illustrate the spread of comorbid diagnoses people with specific pain conditions have.

Larger image of below drawing here:

在一个堆叠的圆形条形图中绘制共病数据

So, I have four diagnostic groups (FM, CR, CM, HC) and I have 94 reported conditions that are split into 11 categories (Neurological, Psychiatric, Pelvic, Cardiovascular, Autoimmune, Skin, Bone-Muscle-Joint, Digestive, Hormonal, Genetic, Vascular). I then have a column for frequency.

I specifically want to have the 11 categories separated into clusters, and then the first inner ring be the FM group, followed by CR, CM, and HC.

Absolutely any help is appreciated

I have failed at coding with ggplot , but I imagine this is still correct - just a sign of my ignorance.

Edit: Have added sample data and a link to larger image of example.

Category	Condition	Group	Frequency
Neurological	Epilepsy 	FM	0
Neurological	Epilepsy 	CR	1
Neurological	Epilepsy 	CM	0
Neurological	Epilepsy 	HC	1
Neurological	Chronic migraine	FM	2
Neurological	Chronic migraine	CR	3
Neurological	Chronic migraine	CM	7
Neurological	Chronic migraine	HC	0
Neurological	Autism	FM	1
Neurological	Autism	CR	1
Neurological	Autism	CM	1
Neurological	Autism	HC	0
Neurological	Postherpetic neuralgia	FM	0
Neurological	Postherpetic neuralgia	CR	0
Neurological	Postherpetic neuralgia	CM	1
Neurological	Postherpetic neuralgia	HC	0
Neurological	Chiari Malformation	FM	0
Neurological	Chiari Malformation	CR	0
Neurological	Chiari Malformation	CM	1
Neurological	Chiari Malformation	HC	0
Neurological	Syringomyelia	FM	0
Neurological	Syringomyelia	CR	0
Neurological	Syringomyelia	CM	1
Neurological	Syringomyelia	HC	0
Neurological	Secondary Fibromyalgia	FM	0
Neurological	Secondary Fibromyalgia	CR	7
Neurological	Secondary Fibromyalgia	CM	0
Neurological	Secondary Fibromyalgia	HC	0
Neurological	Trigeminal neuralgia	FM	0
Neurological	Trigeminal neuralgia	CR	1
Neurological	Trigeminal neuralgia	CM	0
Neurological	Trigeminal neuralgia	HC	0
Neurological	Diabetes	FM	3
Neurological	Diabetes	CR	3
Neurological	Diabetes	CM	2
Neurological	Diabetes	HC	0
Neurological	Neurofibromatosis 1	FM	0
Neurological	Neurofibromatosis 1	CR	0
Neurological	Neurofibromatosis 1	CM	1
Neurological	Neurofibromatosis 1	HC	0
Neurological	Narcolepsy	FM	2
Neurological	Narcolepsy	CR	0
Neurological	Narcolepsy	CM	1
Neurological	Narcolepsy	HC	0
Neurological	Neuropathy	FM	0
Neurological	Neuropathy	CR	0
Neurological	Neuropathy	CM	1
Neurological	Neuropathy	HC	0
Neurological	CNS demyelinating disease	FM	0
Neurological	CNS demyelinating disease	CR	0
Neurological	CNS demyelinating disease	CM	1
Neurological	CNS demyelinating disease	HC	0
Neurological	Chronic fatigue syndrome	FM	12
Neurological	Chronic fatigue syndrome	CR	1
Neurological	Chronic fatigue syndrome	CM	0
Neurological	Chronic fatigue syndrome	HC	0
Neurological	Occipital neuralgia	FM	0
Neurological	Occipital neuralgia	CR	1
Neurological	Occipital neuralgia	CM	0
Neurological	Occipital neuralgia	HC	0
Neurological	Ulnar neuritis	FM	0
Neurological	Ulnar neuritis	CR	1
Neurological	Ulnar neuritis	CM	0
Neurological	Ulnar neuritis	HC	0
Psychiatric	Anxiety	FM	33
Psychiatric	Anxiety	CR	18
Psychiatric	Anxiety	CM	22
Psychiatric	Anxiety	HC	1
Psychiatric	Depression	FM	38
Psychiatric	Depression	CR	23
Psychiatric	Depression	CM	16
Psychiatric	Depression	HC	2
Psychiatric	PTSD	FM	11

答案1

得分: 2

这是R代码，用ggplot创建一种特殊的图形。在ggplot中实现这种图形可能会有些复杂，需要进行数据处理和手动调整。以下是翻译后的代码部分：

library(tidyverse)
library(geomtextpath)

df %>%
  mutate(across(where(is.character), fct_inorder)) %>%
  mutate(position = as.numeric(Condition) + as.numeric(Category)) %>%
  ggplot(aes(position, Frequency)) +
  geom_hline(yintercept = c(5, 10, 15, 20), color = 'navy', linewidth = 0.1) +
  geom_segment(aes(xend = position, y = -3, yend = 0), 
               data = data.frame(position = c(1, 9, 20, 29, 39, 47, 55, 
                                              62, 72, 80, 89))) +
  geom_textpath(aes(y = -1.5, label = Category, group = Category), 
                textcolour = 'black', fontface = "bold",
                size = 4, text_only = TRUE) +
  geom_col(aes(fill = Group), position = position_stack(), width = 0.4) +
  coord_polar() +
  scale_fill_manual(values = c("#f5925f", "#6663bc", "#8d8b8e", "#98d75c")) +
  scale_color_discrete(guide = 'none') +
  geom_hline(yintercept = c(-3, 0)) +
  scale_y_continuous(limits = c(-20, 20)) +
  scale_x_continuous(limits = c(1, 96), expand = c(0, 0)) +
  theme_void(base_size = 18) +
  theme(legend.position = c(0.9, 0.2),
        panel.background = element_rect(fill = "#f0f0ff"))

这段代码使用了tidyverse和geomtextpath等库，对数据进行了处理，并使用ggplot创建了一个特殊的极坐标图。请注意，此代码的正文中包含更多的详细信息，包括数据框df的结构和内容，但由于您的要求，我只提供了代码的翻译部分。

英文:

It's quite a tall order to achieve this type of plot within ggplot, but it can be done with a bit of effort using data manipulation and some manual tweaks:

library(tidyverse)
library(geomtextpath)

df %>%
  mutate(across(where(is.character), fct_inorder)) %>%
  mutate(position = as.numeric(Condition) + as.numeric(Category)) %>%
  ggplot(aes(position, Frequency)) +
  geom_hline(yintercept = c(5, 10, 15, 20), color = 'navy', linewidth = 0.1) +
  geom_segment(aes(xend = position, y = -3, yend = 0), 
               data = data.frame(position = c(1, 9, 20, 29, 39, 47, 55, 
                                              62, 72, 80, 89))) +
  geom_textpath(aes(y = -1.5, label = Category, group = Category), 
                textcolour = 'black', fontface = "bold",
                size = 4, text_only = TRUE) +
  geom_col(aes(fill = Group), position = position_stack(), width = 0.4) +
  coord_polar() +
  scale_fill_manual(values = c("#f5925f", "#6663bc", "#8d8b8e", "#98d75c")) +
  scale_color_discrete(guide = 'none') +
  geom_hline(yintercept = c(-3, 0)) +
  scale_y_continuous(limits = c(-20, 20)) +
  scale_x_continuous(limits = c(1, 96), expand = c(0, 0)) +
  theme_void(base_size = 18) +
  theme(legend.position = c(0.9, 0.2),
        panel.background = element_rect(fill = "#f0f0ff"))

在一个堆叠的圆形条形图中绘制共病数据

Data used - fabricated for example

df <- structure(list(Category = c("Neuro", "Neuro", "Neuro", "Neuro", 
"Neuro", "Neuro", "Neuro", "Neuro", "Neuro", "Neuro", "Neuro", 
"Neuro", "Neuro", "Neuro", "Neuro", "Neuro", "Neuro", "Neuro", 
"Neuro", "Neuro", "Neuro", "Neuro", "Neuro", "Neuro", "Neuro", 
"Neuro", "Neuro", "Neuro", "Psych", "Psych", "Psych", "Psych", 
"Psych", "Psych", "Psych", "Psych", "Psych", "Psych", "Psych", 
"Psych", "Psych", "Psych", "Psych", "Psych", "Psych", "Psych", 
"Psych", "Psych", "Psych", "Psych", "Psych", "Psych", "Psych", 
"Psych", "Psych", "Psych", "Psych", "Psych", "Psych", "Psych", 
"Psych", "Psych", "Psych", "Psych", "Psych", "Psych", "Psych", 
"Psych", "Pelvic", "Pelvic", "Pelvic", "Pelvic", "Pelvic", "Pelvic", 
"Pelvic", "Pelvic", "Pelvic", "Pelvic", "Pelvic", "Pelvic", "Pelvic", 
"Pelvic", "Pelvic", "Pelvic", "Pelvic", "Pelvic", "Pelvic", "Pelvic", 
"Pelvic", "Pelvic", "Pelvic", "Pelvic", "Pelvic", "Pelvic", "Pelvic", 
"Pelvic", "Pelvic", "Pelvic", "Pelvic", "Pelvic", "Cardio", "Cardio", 
"Cardio", "Cardio", "Cardio", "Cardio", "Cardio", "Cardio", "Cardio", 
"Cardio", "Cardio", "Cardio", "Cardio", "Cardio", "Cardio", "Cardio", 
"Cardio", "Cardio", "Cardio", "Cardio", "Cardio", "Cardio", "Cardio", 
"Cardio", "Cardio", "Cardio", "Cardio", "Cardio", "Cardio", "Cardio", 
"Cardio", "Cardio", "Cardio", "Cardio", "Cardio", "Cardio", "Autoimmune", 
"Autoimmune", "Autoimmune", "Autoimmune", "Autoimmune", "Autoimmune", 
"Autoimmune", "Autoimmune", "Autoimmune", "Autoimmune", "Autoimmune", 
"Autoimmune", "Autoimmune", "Autoimmune", "Autoimmune", "Autoimmune", 
"Autoimmune", "Autoimmune", "Autoimmune", "Autoimmune", "Autoimmune", 
"Autoimmune", "Autoimmune", "Autoimmune", "Autoimmune", "Autoimmune", 
"Autoimmune", "Autoimmune", "Skin", "Skin", "Skin", "Skin", "Skin", 
"Skin", "Skin", "Skin", "Skin", "Skin", "Skin", "Skin", "Skin", 
"Skin", "Skin", "Skin", "Skin", "Skin", "Skin", "Skin", "Skin", 
"Skin", "Skin", "Skin", "Skin", "Skin", "Skin", "Skin", "MSK", 
"MSK", "MSK", "MSK", "MSK", "MSK", "MSK", "MSK", "MSK", "MSK", 
"MSK", "MSK", "MSK", "MSK", "MSK", "MSK", "MSK", "MSK", "MSK", 
"MSK", "MSK", "MSK", "MSK", "MSK", "Digestive", "Digestive", 
"Digestive", "Digestive", "Digestive", "Digestive", "Digestive", 
"Digestive", "Digestive", "Digestive", "Digestive", "Digestive", 
"Digestive", "Digestive", "Digestive", "Digestive", "Digestive", 
"Digestive", "Digestive", "Digestive", "Digestive", "Digestive", 
"Digestive", "Digestive", "Digestive", "Digestive", "Digestive", 
"Digestive", "Digestive", "Digestive", "Digestive", "Digestive", 
"Digestive", "Digestive", "Digestive", "Digestive", "Hormonal", 
"Hormonal", "Hormonal", "Hormonal", "Hormonal", "Hormonal", "Hormonal", 
"Hormonal", "Hormonal", "Hormonal", "Hormonal", "Hormonal", "Hormonal", 
"Hormonal", "Hormonal", "Hormonal", "Hormonal", "Hormonal", "Hormonal", 
"Hormonal", "Hormonal", "Hormonal", "Hormonal", "Hormonal", "Hormonal", 
"Hormonal", "Hormonal", "Hormonal", "Genetic", "Genetic", "Genetic", 
"Genetic", "Genetic", "Genetic", "Genetic", "Genetic", "Genetic", 
"Genetic", "Genetic", "Genetic", "Genetic", "Genetic", "Genetic", 
"Genetic", "Genetic", "Genetic", "Genetic", "Genetic", "Genetic", 
"Genetic", "Genetic", "Genetic", "Genetic", "Genetic", "Genetic", 
"Genetic", "Genetic", "Genetic", "Genetic", "Genetic", "Vascular", 
"Vascular", "Vascular", "Vascular", "Vascular", "Vascular", "Vascular", 
"Vascular", "Vascular", "Vascular", "Vascular", "Vascular", "Vascular", 
"Vascular", "Vascular", "Vascular", "Vascular", "Vascular", "Vascular", 
"Vascular", "Vascular", "Vascular", "Vascular", "Vascular"), 
Condition = c("Epilepsy", "Epilepsy", "Epilepsy", "Epilepsy", 
"Chronic migraine", "Chronic migraine", "Chronic migraine", 
"Chronic migraine", "Parkinson's disease", "Parkinson's disease", 
"Parkinson's disease", "Parkinson's disease", "Alzheimer's disease", 
"Alzheimer's disease", "Alzheimer's disease", "Alzheimer's disease", 
"Amyotrophic lateral sclerosis (ALS)", "Amyotrophic lateral sclerosis (ALS)", 
"Amyotrophic lateral sclerosis (ALS)", "Amyotrophic lateral sclerosis (ALS)", 
"Spinal muscular atrophy", "Spinal muscular atrophy", "Spinal muscular atrophy", 
"Spinal muscular atrophy", "Narcolepsy", "Narcolepsy", "Narcolepsy", 
"Narcolepsy", "Depression", "Depression", "Depression", "Depression", 
"Bipolar disorder", "Bipolar disorder", "Bipolar disorder", 
"Bipolar disorder", "Schizophrenia", "Schizophrenia", "Schizophrenia", 
"Schizophrenia", "Post-traumatic stress disorder (PTSD)", 
"Post-traumatic stress disorder (PTSD)", "Post-traumatic stress disorder (PTSD)", 
"Post-traumatic stress disorder (PTSD)", "Anxiety disorder", 
"Anxiety disorder", "Anxiety disorder", "Anxiety disorder", 
"Obsessive-Compulsive Disorder (OCD)", "Obsessive-Compulsive Disorder (OCD)", 
"Obsessive-Compulsive Disorder (OCD)", "Obsessive-Compulsive Disorder (OCD)", 
"Dissociative identity disorder", "Dissociative identity disorder", 
"Dissociative identity disorder", "Dissociative identity disorder", 
"Autism spectrum disorder", "Autism spectrum disorder", "Autism spectrum disorder", 
"Autism spectrum disorder", "Attention-deficit/hyperactivity disorder (ADHD)", 
"Attention-deficit/hyperactivity disorder (ADHD)", "Attention-deficit/hyperactivity disorder (ADHD)", 
"Attention-deficit/hyperactivity disorder (ADHD)", "Eating disorders", 
"Eating disorders", "Eating disorders", "Eating disorders", 
"Endometriosis", "Endometriosis", "Endometriosis", "Endometriosis", 
"Pelvic inflammatory disease", "Pelvic inflammatory disease", 
"Pelvic inflammatory disease", "Pelvic inflammatory disease", 
"Uterine fibroids", "Uterine fibroids", "Uterine fibroids", 
"Uterine fibroids", "Ovarian cysts", "Ovarian cysts", "Ovarian cysts", 
"Ovarian cysts", "Prostatitis", "Prostatitis", "Prostatitis", 
"Prostatitis", "Erectile dysfunction", "Erectile dysfunction", 
"Erectile dysfunction", "Erectile dysfunction", "Pelvic organ prolapse", 
"Pelvic organ prolapse", "Pelvic organ prolapse", "Pelvic organ prolapse", 
"Benign prostatic hyperplasia (BPH)", "Benign prostatic hyperplasia (BPH)", 
"Benign prostatic hyperplasia (BPH)", "Benign prostatic hyperplasia (BPH)", 
"Hypertension", "Hypertension", "Hypertension", "Hypertension", 
"Atherosclerosis", "Atherosclerosis", "Atherosclerosis", 
"Atherosclerosis", "Coronary artery disease", "Coronary artery disease", 
"Coronary artery disease", "Coronary artery disease", "Heart failure", 
"Heart failure", "Heart failure", "Heart failure", "Atrial fibrillation", 
"Atrial fibrillation", "Atrial fibrillation", "Atrial fibrillation", 
"Myocardial infarction", "Myocardial infarction", "Myocardial infarction", 
"Myocardial infarction", "Stroke", "Stroke", "Stroke", "Stroke", 
"Congestive heart failure", "Congestive heart failure", "Congestive heart failure", 
"Congestive heart failure", "Peripheral artery disease", 
"Peripheral artery disease", "Peripheral artery disease", 
"Peripheral artery disease", "Rheumatoid arthritis", "Rheumatoid arthritis", 
"Rheumatoid arthritis", "Rheumatoid arthritis", "Lupus", 
"Lupus", "Lupus", "Lupus", "Celiac disease", "Celiac disease", 
"Celiac disease", "Celiac disease", "Type 1 diabetes", "Type 1 diabetes", 
"Type 1 diabetes", "Type 1 diabetes", "Graves' disease", 
"Graves' disease", "Graves' disease", "Graves' disease", 
"Inflammatory bowel disease", "Inflammatory bowel disease", 
"Inflammatory bowel disease", "Inflammatory bowel disease", 
"Hashimoto's thyroiditis", "Hashimoto's thyroiditis", "Hashimoto's thyroiditis", 
"Hashimoto's thyroiditis", "Acne", "Acne", "Acne", "Acne", 
"Dermatitis", "Dermatitis", "Dermatitis", "Dermatitis", "Eczema", 
"Eczema", "Eczema", "Eczema", "Vitiligo", "Vitiligo", "Vitiligo", 
"Vitiligo", "Rosacea", "Rosacea", "Rosacea", "Rosacea", "Hives", 
"Hives", "Hives", "Hives", "Melanoma", "Melanoma", "Melanoma", 
"Melanoma", "Arthritis", "Arthritis", "Arthritis", "Arthritis", 
"Osteoporosis", "Osteoporosis", "Osteoporosis", "Osteoporosis", 
"Gout", "Gout", "Gout", "Gout", "Tendinitis", "Tendinitis", 
"Tendinitis", "Tendinitis", "Carpal tunnel syndrome", "Carpal tunnel syndrome", 
"Carpal tunnel syndrome", "Carpal tunnel syndrome", "Sciatica", 
"Sciatica", "Sciatica", "Sciatica", "Irritable bowel syndrome (IBS)", 
"Irritable bowel syndrome (IBS)", "Irritable bowel syndrome (IBS)", 
"Irritable bowel syndrome (IBS)", "Gastroesophageal reflux disease (GERD)", 
"Gastroesophageal reflux disease (GERD)", "Gastroesophageal reflux disease (GERD)", 
"Gastroesophageal reflux disease (GERD)", "Gastritis", "Gastritis", 
"Gastritis", "Gastritis", "Ulcerative colitis", "Ulcerative colitis", 
"Ulcerative colitis", "Ulcerative colitis", "Crohn's disease", 
"Crohn's disease", "Crohn's disease", "Crohn's disease", 
"Gallstones", "Gallstones", "Gallstones", "Gallstones", "Hepatitis C", 
"Hepatitis C", "Hepatitis C", "Hepatitis C", "Diverticulitis", 
"Diverticulitis", "Diverticulitis", "Diverticulitis", "Gastric ulcer", 
"Gastric ulcer", "Gastric ulcer", "Gastric ulcer", "Type 2 diabetes", 
"Type 2 diabetes", "Type 2 diabetes", "Type 2 diabetes", 
"Hypothyroidism", "Hypothyroidism", "Hypothyroidism", "Hypothyroidism", 
"Hyperthyroidism", "Hyperthyroidism", "Hyperthyroidism", 
"Hyperthyroidism", "Addison's disease", "Addison's disease", 
"Addison's disease", "Addison's disease", "Cushing's syndrome", 
"Cushing's syndrome", "Cushing's syndrome", "Cushing's syndrome", 
"Menopause", "Menopause", "Menopause", "Menopause", "Gigantism", 
"Gigantism", "Gigantism", "Gigantism", "Down syndrome", "Down syndrome", 
"Down syndrome", "Down syndrome", "Cystic fibrosis", "Cystic fibrosis", 
"Cystic fibrosis", "Cystic fibrosis", "Sickle cell anemia", 
"Sickle cell anemia", "Sickle cell anemia", "Sickle cell anemia", 
"Huntington's disease", "Huntington's disease", "Huntington's disease", 
"Huntington's disease", "Hemophilia", "Hemophilia", "Hemophilia", 
"Hemophilia", "Duchenne muscular dystrophy", "Duchenne muscular dystrophy", 
"Duchenne muscular dystrophy", "Duchenne muscular dystrophy", 
"Turner syndrome", "Turner syndrome", "Turner syndrome", 
"Turner syndrome", "Klinefelter syndrome", "Klinefelter syndrome", 
"Klinefelter syndrome", "Klinefelter syndrome", "Deep vein thrombosis (DVT)", 
"Deep vein thrombosis (DVT)", "Deep vein thrombosis (DVT)", 
"Deep vein thrombosis (DVT)", "Varicose veins", "Varicose veins", 
"Varicose veins", "Varicose veins", "Pulmonary embolism", 
"Pulmonary embolism", "Pulmonary embolism", "Pulmonary embolism", 
"Abdominal aortic aneurysm", "Abdominal aortic aneurysm", 
"Abdominal aortic aneurysm", "Abdominal aortic aneurysm", 
"Thoracic aortic aneurysm", "Thoracic aortic aneurysm", "Thoracic aortic aneurysm", 
"Thoracic aortic aneurysm", "Aneurysm", "Aneurysm", "Aneurysm", 
"Aneurysm"), Group = c("FM", "CR", "CM", "HC", "FM", "CR", 
"CM", "HC", "FM", "CR", "CM", "HC", "FM", "CR", "CM", "HC", 
"FM", "CR", "CM", "HC", "FM", "CR", "CM", "HC", "FM", "CR", 
"CM", "HC", "FM", "CR", "CM", "HC", "FM", "CR", "CM", "HC", 
"FM", "CR", "CM", "HC", "FM", "CR", "CM", "HC", "FM", "CR", 
"CM", "HC", "FM", "CR", "CM", "HC", "FM", "CR", "CM", "HC", 
"FM", "CR", "CM", "HC", "FM", "CR", "CM", "HC", "FM", "CR", 
"CM", "HC", "FM", "CR", "CM", "HC", "FM", "CR", "CM", "HC", 
"FM", "CR", "CM", "HC", "FM", "CR", "CM", "HC", "FM", "CR", 
"CM", "HC", "FM", "CR", "CM", "HC", "FM", "CR", "CM", "HC", 
"FM", "CR", "CM", "HC", "FM", "CR", "CM", "HC", "FM", "CR", 
"CM", "HC", "FM", "CR", "CM", "HC", "FM", "CR", "CM", "HC", 
"FM", "CR", "CM", "HC", "FM", "CR", "CM", "HC", "FM", "CR", 
"CM", "HC", "FM", "CR", "CM", "HC", "FM", "CR", "CM", "HC", 
"FM", "CR", "CM", "HC", "FM", "CR", "CM", "HC", "FM", "CR", 
"CM", "HC", "FM", "CR", "CM", "HC", "FM", "CR", "CM", "HC", 
"FM", "CR", "CM", "HC", "FM", "CR", "CM", "HC", "FM", "CR", 
"CM", "HC", "FM", "CR", "CM", "HC", "FM", "CR", "CM", "HC", 
"FM", "CR", "CM", "HC", "FM", "CR", "CM", "HC", "FM", "CR", 
"CM", "HC", "FM", "CR", "CM", "HC", "FM", "CR", "CM", "HC", 
"FM", "CR", "CM", "HC", "FM", "CR", "CM", "HC", "FM", "CR", 
"CM", "HC", "FM", "CR", "CM", "HC", "FM", "CR", "CM", "HC", 
"FM", "CR", "CM", "HC", "FM", "CR", "CM", "HC", "FM", "CR", 
"CM", "HC", "FM", "CR", "CM", "HC", "FM", "CR", "CM", "HC", 
"FM", "CR", "CM", "HC", "FM", "CR", "CM", "HC", "FM", "CR", 
"CM", "HC", "FM", "CR", "CM", "HC", "FM", "CR", "CM", "HC", 
"FM", "CR", "CM", "HC", "FM", "CR", "CM", "HC", "FM", "CR", 
"CM", "HC", "FM", "CR", "CM", "HC", "FM", "CR", "CM", "HC", 
"FM", "CR", "CM", "HC", "FM", "CR", "CM", "HC", "FM", "CR", 
"CM", "HC", "FM", "CR", "CM", "HC", "FM", "CR", "CM", "HC", 
"FM", "CR", "CM", "HC", "FM", "CR", "CM", "HC", "FM", "CR", 
"CM", "HC", "FM", "CR", "CM", "HC", "FM", "CR", "CM", "HC", 
"FM", "CR", "CM", "HC", "FM", "CR", "CM", "HC", "FM", "CR", 
"CM", "HC", "FM", "CR", "CM", "HC", "FM", "CR", "CM", "HC"
), Frequency = c(2L, 1L, 1L, 5L, 5L, 2L, 1L, 1L, 6L, 1L, 
1L, 3L, 2L, 1L, 4L, 1L, 1L, 1L, 1L, 4L, 1L, 0L, 0L, 2L, 2L, 
3L, 0L, 3L, 2L, 2L, 4L, 0L, 2L, 1L, 2L, 0L, 2L, 1L, 4L, 2L, 
3L, 0L, 1L, 2L, 1L, 7L, 2L, 2L, 3L, 3L, 2L, 2L, 1L, 0L, 2L, 
3L, 3L, 3L, 0L, 2L, 3L, 2L, 1L, 2L, 2L, 3L, 3L, 2L, 5L, 5L, 
4L, 5L, 1L, 3L, 5L, 1L, 2L, 3L, 4L, 0L, 0L, 3L, 2L, 1L, 1L, 
3L, 4L, 6L, 6L, 1L, 1L, 2L, 2L, 1L, 1L, 1L, 4L, 1L, 2L, 3L, 
2L, 1L, 1L, 3L, 3L, 1L, 0L, 4L, 3L, 2L, 0L, 2L, 3L, 1L, 3L, 
0L, 3L, 2L, 2L, 1L, 3L, 0L, 4L, 2L, 3L, 2L, 3L, 4L, 2L, 4L, 
1L, 2L, 2L, 3L, 3L, 1L, 0L, 1L, 0L, 2L, 2L, 2L, 3L, 2L, 4L, 
2L, 1L, 0L, 3L, 1L, 2L, 0L, 4L, 0L, 0L, 3L, 2L, 2L, 2L, 4L, 
0L, 3L, 5L, 2L, 1L, 1L, 1L, 0L, 2L, 0L, 2L, 1L, 2L, 2L, 3L, 
1L, 1L, 2L, 3L, 3L, 1L, 2L, 4L, 4L, 1L, 1L, 4L, 1L, 2L, 1L, 
3L, 1L, 2L, 2L, 3L, 4L, 1L, 1L, 1L, 0L, 0L, 1L, 2L, 0L, 1L, 
1L, 3L, 3L, 2L, 0L, 3L, 2L, 1L, 1L, 0L, 1L, 5L, 1L, 1L, 4L, 
1L, 2L, 1L, 2L, 2L, 2L, 3L, 1L, 2L, 2L, 1L, 0L, 1L, 4L, 4L, 
0L, 1L, 1L, 3L, 3L, 1L, 3L, 1L, 1L, 4L, 2L, 1L, 1L, 1L, 2L, 
1L, 4L, 2L, 2L, 2L, 0L, 2L, 2L, 4L, 2L, 0L, 0L, 4L, 2L, 2L, 
2L, 2L, 4L, 2L, 1L, 1L, 2L, 1L, 4L, 1L, 2L, 3L, 3L, 2L, 3L, 
1L, 1L, 2L, 3L, 3L, 3L, 4L, 2L, 1L, 5L, 0L, 1L, 2L, 5L, 5L, 
4L, 5L, 1L, 1L, 1L, 2L, 3L, 2L, 3L, 2L, 1L, 0L, 2L, 4L, 4L, 
6L, 1L, 6L, 2L, 2L, 1L, 0L, 2L, 5L, 0L, 1L, 1L, 2L, 1L, 0L, 
2L, 1L, 2L, 2L, 2L, 3L, 1L, 0L, 4L, 4L, 3L)), row.names = c(NA, 
-336L), class = "data.frame")

huangapple
  • 本文由 发表于 2023年7月20日 14:26:58
  • 转载请务必保留本文链接：https://go.coder-hub.com/76727211.html
  • r
  • radial
  • stacked-bar-chart
匿名

发表评论

匿名网友

:?: :razz: :sad: :evil: :!: :smile: :oops: :grin: :eek: :shock: :???: :cool: :lol: :mad: :twisted: :roll: :wink: :idea: :arrow: :neutral: :cry: :mrgreen:

确定