设置分析路径

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")