设置分析路径
setwd("/wangdan1/")
setwd("/liuyanling/")
setwd("/duanlinshan/")
以下为分析举例
dir()
library(openxlsx)
data <- read.xlsx("demo_stu_swh.xlsx")
esquisse:::esquisser()
BiocManager::install("ggstatsplot")
library(ggstatsplot)
ggscatterstats(data = iris,
x = Sepal.Length,
y = Petal.Length,
title = "Dataset: Iris flower data set")
ggbetweenstats(data = data,
x = sex,
y = W)
ggscatterstats(data = iris,
x = Sepal.Length,
y = Petal.Length,
title = "Dataset: Iris flower data set")
require(ggplot2)
p <- ggplot(df, aes(weight, fill=sex, color=sex)) +
geom_density(alpha=.5) +
geom_rug()
print(p)
ggbetweenstats(data = data,
x = sex,
y = W)
ggscatterstats(data = data,
x = sex,
y = H,
title = " fgg")
ggscatterstats(data = iris,
x = sex,
y = Petal.Length,
title = "t")
ggscatterstats(data = sata,
x = W,
y = H,
title = "Datase")
请关注“恒诺新知”微信公众号,感谢“R语言“,”数据那些事儿“,”老俊俊的生信笔记“,”冷🈚️思“,“珞珈R”,“生信星球”的支持!