为测试某种药物是否有效，作对照试验。在治疗组中，无效，好转和治愈的人数分别为13，7和21。在对照组中，无效，好转和治愈的人数分别为29，7和7。请画出两种形式的条形图：(1)重叠形式；(2)平行排列形式。在两张图中，分别标明主题“重叠形式的条形图”和“平行形式的条形图”，并针对三种情况用三种不同的颜色表示。R语言绘图

# 数据
treatment <- c(13, 7, 21)
control <- c(29, 7, 7)

# 总人数
total <- treatment + control

# 比例
treatment_prop <- treatment / total
control_prop <- control / total

# 重叠形式条形图
barplot(rbind(treatment_prop, control_prop),
col = c("#FFA500", "#87CEFA", "#32CD32"),
beside = TRUE, names.arg = c("无效", "好转", "治愈"),
main = "重叠形式的条形图")

# 平行形式条形图
par(mfrow = c(1, 2))
barplot(treatment_prop, col = c("#FFA500", "#87CEFA", "#32CD32"),
main = "平行形式的条形图 (治疗组)", ylim = c(0,1),
names.arg = c("无效", "好转", "治愈"))
barplot(control_prop, col = c("#FFA500", "#87CEFA", "#32CD32"),
main = "平行形式的条形图 (对照组)", ylim = c(0,1),
names.arg = c("无效", "好转", "治愈"))

相关问题

为测试某种药物是否有效，共有84位患者服用了此药，其中42人元效，14人病情有所好转，28人治愈。请画出数据的条形图，并且在每个条上圈一种颜色，分别为红色，黄色和绿色，图像上要添加标题。

以下是条形图：


标题为：药物疗效统计图。

其中，红色表示治疗无效的患者人数，黄色表示病情有所好转的患者人数，绿色表示治愈的患者人数。