为测试某种药物是否有效,作对照试验。在治疗组中,无效,好转和治愈的人数分别为13,7和21。在对照组中,无效,好转和治愈的人数分别为29,7和7。请画出两种形式的条形图:(1)重叠形式;(2)平行排列形式。在两张图中,分别标明主题“重叠形式的条形图”和“平行形式的条形图”,并针对三种情况用三种不同的颜色表示。R语言绘图
时间: 2023-05-30 12:02:41 浏览: 157
# 数据
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人治愈。请画出数据的条形图,并且在每个条上圈一种颜色,分别为红色,黄色和绿色,图像上要添加标题。
以下是条形图:
![条形图](https://img-blog.csdnimg.cn/20211103104059143/4b2b5e1aeeb74b8aa1c5e9c5f4f20b1f.png)
标题为:药物疗效统计图。
其中,红色表示治疗无效的患者人数,黄色表示病情有所好转的患者人数,绿色表示治愈的患者人数。
为了测试某种药物是否有效,如何画出数据的条形图
为了画出数据的条形图,您需要按照以下步骤进行操作:
1. 收集数据:首先,您需要收集有关药物测试的数据。这些数据可以包括药物的剂量、治疗时间、治疗前后的症状等。
2. 组织数据:将收集到的数据按照一定的规则进行组织,例如按照剂量、治疗时间等分类。
3. 选择合适的工具:选择一种合适的工具来绘制条形图,例如 Microsoft Excel 或 Google Sheets。
4. 绘制条形图:在所选的工具