Chi Mai Anh

Doc du lieu

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

##   id week bprs highdose1         group  X         X.1  X.2
## 1  1    0   49         0     high-dose NA                 
## 2  1    2   49         0     high-dose NA                 
## 3  1    4   46         0     high-dose NA                 
## 4  1    6   45         0     high-dose NA v? ?? th?:      
## 5  1    8   43         0     high-dose NA                 
## 6  3    0   50         1 non-high dose NA   tr?c tung week

Ve bieu do

library("ggpubr")

## Loading required package: ggplot2

## Loading required package: magrittr

ggboxplot(duy, x = "week", y = "bprs", add = "jitter", color = "group",xlab = "Time (week)", ylab = "BPRS score")