在排列多个图并重新排列整个图的大小之后，重新缩放轴文本R

Question

我有以下一段代码，它会生成三个图，之后我使用arrangeGrob排列这些图并将其放入变量g中。然后保存输出我使用ggsave(file="filename",g)。我的问题是，所有三个图都正确地保存在文件中，但是一些轴标签变得拥挤，是否有任何方式自动重新缩放（以保留清晰的输出）在保存的文件中。一种选择是调整文件的宽度和高度，但我需要保留这些尺寸和数字的小数格式。有人可以为此提出一种方法，谢谢。

我不明白为什么geom_point(aes())中的颜色没有正确应用于绘图？

x <- c(1:10) 
y <- x^3 
z <- y-20 
s <- z/3 
t <- s*6 
q <- s*y 
x1 <- cbind(x,y,z,s,t,q) 
x1 <- data.frame(x1) 

a <- ggplot(x1,aes(x=x1[,1],y=x1[,2]))+geom_point(aes(color = 'blue'),size=4)+theme(legend.position='none',plot.margin=unit(c(0,3,0,0),"mm")) 
ggsave("a.png") 

b <- ggplot(x1,aes(x=x1[,3],y=x1[,4]))+geom_point(aes(color = 'blue'),size=4)+theme(legend.position='none',plot.margin=unit(c(0,3,0,0),"mm")) 
ggsave("b.png") 

c <- ggplot(x1,aes(x=x1[,5],y=x1[,6]))+geom_point(aes(color = 'violet'),size=4)+theme(legend.position='none',plot.margin=unit(c(0,3,0,0),"mm")) 
ggsave("c.png") 

gA <- ggplotGrob(a) 
gB <- ggplotGrob(b) 
gC <- ggplotGrob(c) 
maxWidth = grid::unit.pmax(gA$widths[2:5], gB$widths[2:5],gC$widths[2:5]) 
gA$widths[2:5] <- as.list(maxWidth) 
gB$widths[2:5] <- as.list(maxWidth) 
gC$widths[2:5] <- as.list(maxWidth) 

g <- arrangeGrob(gA, gB,gC, ncol=2) 

ggsave(file='fname.png',g, width=10,height=8,units=c("cm"), dpi=600) 

所产生的曲线图的说明如下所示，

Answer 1

地址：

+ theme(text = element_text(size = 10)) 

可以改变文字大小，以满足您的需求。

要更改设置的颜色标志以外的美学点的颜色：

geom_point(colour = "blue", size = 4)