1_044尹鑫城.zip

install.packages("ggpubr") library(readxl) library(ggplot2) library(ggpubr) library(ggthemes) df <- read_excel("E1.xlsx") df$CHD <- ifelse(df$CHD == 0, "No", "Yes") p <- ggplot(df, aes(x = Gender, y = BMI, fill = CHD)) + geom_boxplot()+ stat_compare_means(method = "t.test",label = "p.signif",size=6,label.y = 40) p1 <- p + theme_few() p1 <- p+ggtitle("")+ theme(legend.position = c(0.75,0.05), legend.background = element_blank(), legend.text = element_text(size = 8), legend.title = element_text(size = 8,vjust = 0.5,hjust = 0,margin = margin(r = 10)))+ guides(fill=guide_legend(nrow = 1,byrow = TRUE,title.position = "left")) p1 p2 <- ggplot(df, aes(x = Hypertension, y = SBP, fill = Hypertension)) + geom_jitter(aes(color = Hypertension),show.legend = FALSE)+ geom_boxplot(fill = "gray",notch = TRUE,show.legend = FALSE) p3 <- p2 + theme_few() p3 p4 <- ggplot(df, aes(x = Hypertension, y = DBP, fill = Hypertension)) + geom_jitter(aes(color = Hypertension),show.legend = FALSE)+ geom_boxplot(fill = "gray",notch = TRUE,show.legend = FALSE) p5 <- p4 + theme_few() p6 <- ggplot(df, aes(x = Hypertension, y = RBG, fill = Hypertension)) + geom_jitter(aes(color = Hypertension),show.legend = FALSE)+ geom_boxplot(fill = "gray",notch = TRUE,show.legend = FALSE) p7 <- p6 + theme_few() gridExtra::grid.arrange(p1,p3,p5,p7,ncol=2)