不幸的是,作者没有在函数内使用定义的主题,因此如果您不想搞乱其他自定义设置,那么这应该可行:
p <- plot(cooccur.finches)
p + theme_bw(base_size = 28) +
theme(axis.text = element_blank(),
axis.ticks = element_blank(),
plot.title = element_text(vjust = -4, face = "bold"),
panel.background = element_rect(fill = "white", colour = "white"),
panel.grid = element_blank()
legend.position = c(0.9, 0.5))
您还可以使用此代码独立设置图例或标题的大小,例如
p + theme(plot.title = element_text(vjust = -4, face = "bold", size = 36))
最不幸的是,这不会改变物种标签的大小,因为它们是用geom_text()
。要更改它们,您必须自己破解该功能cooccur:::plot.cooccur
。只需要修改最后一行:
p + geom_text(data = dfids, aes(label = X1), hjust = 1, vjust = 0,
angle = -22.5)
# change to
p + geom_text(data = dfids, aes(label = X1), hjust = 1, vjust = 0,
angle = -22.5, size = 24)