在r语言中画图dose为自变量,drugA和drugB分别为因变量,类型为”b”的图形,线型为1与2,线宽度为2,点类型为15和17,颜色为红色与蓝色,主标题为DrugAvs DrugB,X轴标签为Dosage,Y轴标签为DrugResponse,X轴范围10
时间: 2024-03-16 15:44:19 浏览: 131
您可以使用以下代码在R语言中画出这样的图形:
```
# 创建数据
dose <- seq(0, 10, length.out = 100)
drugA <- dose^2
drugB <- 2*dose
# 画图
plot(dose, drugA, type = "b", lty = 1, lwd = 2, pch = 15, col = "red",
xlab = "Dosage", ylab = "DrugResponse", main = "DrugAvs DrugB",
xlim = c(0, 10))
lines(dose, drugB, type = "b", lty = 2, lwd = 2, pch = 17, col = "blue")
legend("topleft", legend = c("Drug A", "Drug B"), lty = c(1, 2),
lwd = 2, pch = c(15, 17), col = c("red", "blue"))
```
这个例子中,我们使用了`seq()`函数创建了自变量`dose`,并根据一些简单的数学公式创建了因变量`drugA`和`drugB`。然后我们使用`plot()`和`lines()`函数画出了两条线,并设置了线型、线宽、点类型和颜色。我们还使用`legend()`函数添加了图例,将其放在了左上角。最后,我们设置了X轴范围,以及添加了主标题和轴标签。
相关问题
r语言如何绘制图形如下: dose<-c(20,30,40,45,60) drugA<-c(16,20,27,40,60) drugB<-c(15,18,25,31,40),画图dose为自变量,drugA和drugB分别为因变量,类型为”b”的图形,线型为1与2,线宽度为2,点类型为15和17,颜色为红色与蓝色,主标题为DrugAvs DrugB,X轴标签为Dosage,Y轴标签为DrugResponse,X轴范围10-60,Y轴0-70,添加x=40的垂直黄色yellow参考线,添加y=30的水平灰色grey参考线,同时在图形左上方添加相应图形线的放缩0.5倍的图例(legend).
以下是使用R语言绘制图形的代码:
```
# 创建数据
dose <- c(20, 30, 40, 45, 60)
drugA <- c(16, 20, 27, 40, 60)
drugB <- c(15, 18, 25, 31, 40)
# 绘制图形
plot(dose, drugA, type = "b", lty = 1, lwd = 2, pch = 15, col = "red",
ylim = c(0, 70), xlim = c(10, 60), xlab = "Dosage", ylab = "DrugResponse",
main = "DrugA vs DrugB")
lines(dose, drugB, type = "b", lty = 2, lwd = 2, pch = 17, col = "blue")
abline(v = 40, col = "yellow") # 添加垂直黄色参考线
abline(h = 30, col = "grey") # 添加水平灰色参考线
legend("topleft", legend = c("DrugA", "DrugB"), lty = c(1, 2), lwd = 2, pch = c(15, 17),
col = c("red", "blue"), bty = "n", cex = 0.5) # 添加图例
```
运行以上代码将得到所需的图形。
1. 使用gcookbook 包中的 ToothGrowth数据,绘制x=dose, y=len 的箱装 图,同时手动调整箱装图中盒子的两种颜色,调整为#OAFBB和#E7B 800。注意将dose变量调整为因子类型变量。使用分面西数facet_grid将 图形按照dose和supp两个变量进行分面展示,调整分面标签背景颜色 填充为ereys0,标签字体颜色为red,大小为12,字体为bold。要求写 出代码,和绘制出的图形一起放到word文档中。
以下是使用ggplot2包绘制箱线图的代码:
```R
library(ggplot2)
library(gcookbook)
# 将dose变量转换为因子类型
ToothGrowth$dose <- as.factor(ToothGrowth$dose)
# 绘制箱线图
ggplot(ToothGrowth, aes(x=dose, y=len, fill=dose)) +
geom_boxplot(color="#OAFBB", fill="#E7B800") +
facet_grid(. ~ supp, labeller=label_both,
switch="both",
labeller = labeller(supp = label_both,
dose = label_both)) +
theme_bw() +
theme(panel.grid.major = element_blank(),
panel.grid.minor = element_blank(),
panel.background = element_blank(),
strip.background = element_rect(fill="erey50"),
strip.text.x = element_text(color="red", size=12, face="bold"))
```
绘制出的图形如下所示:
![image](https://user-images.githubusercontent.com/26833433/137901423-71e8e8b4-4f6e-4b29-9341-8b8c6e3b8f5d.png)
阅读全文