ggplot去掉背景网格线和更改为白色背景

需求

如题所示，更改背景颜色灰色为白色，以及去掉网格线

代码

# AD数据+标签
pwd = "E:\\画图\\python\\"
setwd(pwd)
file =  "ad_random_tsne.csv"
data = read.table(file = paste0(pwd,file), sep = ",", header = T, stringsAsFactors = F,fill = TRUE,quote = "",row.names = 1)
data$x = as.character(data$x)
library(ggplot2)
p = ggplot(data = data,aes(x = X0,y=X1,colour=x))+geom_point()
library(eoffice)

#color = {'CT':"#002060", "MCI":"#E477AA", 'PD':"#21209c",'AD':"#D11617"}
p = p + scale_color_manual(values = c("#002060", "#E477AA", "#D11617")) +xlab("")+ylab("")+ theme_bw()+
theme(panel.grid.major = element_blank(),panel.grid.minor = element_blank())

scale_color用于更改配色，lab去掉横纵坐标名称，theme_bw-背景变为白色，panel.grid去掉网格线

额外知识点，存储为pptx，即为可编辑模式

library(eoffice)
topptx(p ,"temp.pptx")