Bieu do ty le tich luy

Doc du lieu

t = "C:\\Users\\Admin\\Desktop\\lieu.csv"
duy = read.csv(t)
head(duy)

##          hoachat     dose
## 1 5 Fluorouracil 82.00477
## 2     Leucovorin 87.47175
## 3    Oxaliplatin 90.04445
## 4 5 Fluorouracil 82.00477
## 5     Leucovorin 87.47175
## 6    Oxaliplatin 90.04445

Ve bieu do tich luy theo cac hoa chat

library("ggpubr")

## Loading required package: ggplot2

## Loading required package: magrittr

ggplot(duy, aes(dose, colour = hoachat)) + scale_x_continuous(name = "Actual dose/Standard dose (%)", breaks = seq(60,140,10)) + scale_y_continuous(name = "Cumulative percentage of cycles", breaks = seq(0,1,0.2)) + stat_ecdf() + theme(legend.position="top") + theme(legend.position="top") + geom_vline(xintercept=c(90,110), linetype="dashed", color = "purple", size=1.2)