R 将所有主题元素设置为空不会影响轴元素集

我有下面的数据框

GO<-c("cytosol (GO:0005829)","cytosol (GO:0005829)")
FE<-c(2.70,4.38)
FDR<-c(0.00159,0.00857)
Facet<-c("ileum 24h","ileum 72h")
CCC<-data.frame(GO,FE,FDR,Facet)

---

我创建了一个带有刻面的气泡图。但是我想删除

x轴

标题“FDR”，并以一定角度显示标签，但尽管设置了

theme（）

，但它不会改变。

您在末尾添加了

theme\u bw（）

，这会过度写入

主题

调用。将自定义主题放在末尾：

CCC%>%
安排（描述（CCC$GO））%>%
ggplot（aes（x=FDR，y=GO，尺寸=FE，颜色=FDR））+
几何点（α=0.5）+
比例大小（范围=c（5,8），name=“折叠富集”）+
缩放y离散（name=“完成生物过程”）+
连续缩放（name=“FDR”）+
比例颜色梯度（低=“黄色”，高=“红色”，名称=“FDR”）+
刻面网格（cols=vars（刻面），scales=“free”）+
主题_bw（）+
主题（axis.title.x=element_blank（），
axis.text.x=元素\文本（角度=45，vjust=0.5，hjust=1））

我认为，以一致的方式安排对ggplot的调用是一种很好的做法，这样就不会发生这种情况：

调用ggplot+

Geom（和stat）图层，根据您想要在上面的图层排序+

天平+

面+

标签和标题+

全局主题，如

theme\u bw（）

+

通过

theme

---

您已将

theme\u bw（）

放在末尾，这会覆盖您的

theme

调用。将自定义主题放在末尾：

CCC%>%
安排（描述（CCC$GO））%>%
ggplot（aes（x=FDR，y=GO，尺寸=FE，颜色=FDR））+
几何点（α=0.5）+
比例大小（范围=c（5,8），name=“折叠富集”）+
缩放y离散（name=“完成生物过程”）+
连续缩放（name=“FDR”）+
比例颜色梯度（低=“黄色”，高=“红色”，名称=“FDR”）+
刻面网格（cols=vars（刻面），scales=“free”）+
主题_bw（）+
主题（axis.title.x=element_blank（），
axis.text.x=元素\文本（角度=45，vjust=0.5，hjust=1））

我认为，以一致的方式安排对ggplot的调用是一种很好的做法，这样就不会发生这种情况：

调用ggplot+

Geom（和stat）图层，根据您想要在上面的图层排序+

天平+

面+

标签和标题+

全局主题，如

theme\u bw（）

+

通过

theme

---

仅更改主题的位置（）：

库（tidyverse）
#资料
转到仅更改
主题的位置\u bw（）
：

库（tidyverse）
#资料
去
CCC %>%
  arrange(desc(CCC$GO))%>%
  ggplot(aes(x = FDR, y = GO, size = FE, color = FDR)) +
  geom_point(alpha = 0.5) +
  scale_size(range = c(5, 8), name = "Fold enrichment") + 
  facet_grid(cols = vars(Facet), scales = "free") + 
  theme(axis.title.x=element_blank(),axis.text.x = element_text(angle = 45, vjust = 0.5, hjust = 1)) +
  scale_y_discrete(name = "GO biological process complete") +
  scale_x_continuous(name = "FDR") +
  scale_colour_gradient(low = "yellow", high = "red", name  = "FDR") + 
  theme_bw()

library(tidyverse)
#Data
GO<-c("cytosol (GO:0005829)","cytosol (GO:0005829)")
FE<-c(2.70,4.38)
FDR<-c(0.00159,0.00857)
Facet<-c("ileum 24h","ileum 72h")
CCC<-data.frame(GO,FE,FDR,Facet)
#Plot
CCC %>%
  arrange(desc(CCC$GO))%>%
  ggplot(aes(x = FDR, y = GO, size = FE, color = FDR)) +
  geom_point(alpha = 0.5) +
  scale_size(range = c(5, 8), name = "Fold enrichment") + 
  facet_grid(cols = vars(Facet), scales = "free") +
  xlab('')+
  theme_bw()+
  theme(axis.title.x=element_blank(),
        axis.text.x = element_text(angle = 45, vjust = 0.5, hjust = 1)) +
  scale_y_discrete(name = "GO biological process complete") +
  scale_x_continuous(name = "") +
  scale_colour_gradient(low = "yellow", high = "red", name  = "FDR")