求帮助
我贴上我的所有代码,我想修改图片上的统计出来的P值和相关值的字体大小,请问如何操作?
setwd("D:/DOCUMENTS")
install.packages("ggpubr")
install.packages("magrittr")
library("ggplot2")
library("ggpubr")
library("magrittr")
library(RColorBrewer)
display.brewer.all()
DTI <- read.csv("MRI_CORRELATION_cog_Training_20190204_analysis_MRI_Subjects.csv", header = T)
ggplot(DTI,aes(x=factor(group), y = Training_sessions,
fill = factor(group))) + geom_boxplot(notch = FALSE) +
scale_fill_brewer(palette = "Pastel2")
##########################global_cognition############## the previous code###
ggplot(DTI,aes(x=factor(group), y = (Training_sessions),
fill = factor(group))) + geom_boxplot(notch = FALSE) +
scale_fill_brewer(palette = "Pastel2")
##########################memory##############
##############################################################################
barplot(class1,class2)
### method of correlation
cor(x, y, method = c("pearson", "kendall", "spearman"))
boxplot()
####SUCCESSFUL####DTI1
DTI1 <- ggscatter(DTI, x = "Occipital_Mid_L", y = "FLUENCYT_change6to0",
add = "reg.line", conf.int = TRUE, color = "blue", size = 5,
cor.coef = TRUE,cor.method = "pearson", col = "deeppink",
xlab = "Δ FA of Occipital_Mid_L", ylab = "Δ Score of Animal Fluency",
col.lab="red", cex.lab=1.5,cex.axis = 1.5)
DTI1+
font("xlab", size = 20, color = "black")+
font("ylab", size = 20, color = "black")+
font("caption", size = 20, color = "orange")+
font("xy.text", size = 12, color = "black", face = "bold")
相似问题