用rangingGrob安排多个图并调整R中的全部图大小后，可以清楚地重新缩放轴文本

Question

我有以下代码，它生成三个图，之后我使用rangingGrob排列这些图并将其放入变量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)