更改ggplot2中的次网格线的数量(每个主要网格),r

时间:2018-07-20 13:20:58

标签: r ggplot2 graph gridlines

我读了这个答案:How to control number of minor grid lines in ggplot2?

尽管我无法找到一种使之与我的要求相协调的方法。

我希望有一种方法可以输入两个主要刻度之间的次要网格线数量。 (或次要网格线与主要网格线的比例)说我想将其分为5个部分(4个次要网格线)。我该怎么办?

由于将有许多图形,而我不知道其中的轴限制,因此无法明确定义一个较小的网格线步长的大小。我想使用任何算法ggplot2来选择主要网格线的数量,而只有次要网格线的数量是它的4倍。

我希望右侧的r图看起来像左侧的excel图

enter image description here

代码(以帮助解决问题)

ggtheme <- theme(axis.line = element_line(size = 0.5, colour = "black"), 
panel.background = element_rect(fill = "white"),
panel.grid.major = element_line(colour="grey90",size = rel(0.5)),         
panel.grid.minor = element_line(colour="grey95",size = rel(0.25)));

ggp_sctr2 = ggplot( sub2_ac_data, aes(x=(sub2_ac_data[,i]), 
y=sub2_ac_data[, rescol], colour = factor(sub2_ac_data[,topfac[1]]), 
shape = factor(sub2_ac_data[,topfac[1]])  )) + geom_point(size = 2.5) +
scale_shape_manual(values=symlist[Nmsn_sub1+1:20])  + 
scale_colour_manual(values = unname(cols[Nmsn_sub1+1:16])) + 
geom_smooth(method="lm", formula = y ~ splines::bs(x, 3),  
linetype = "solid", size = 0.25,fill = NA ) 

print(ggp_sctr2 + ggtitle( paste(scxnam[1],nomvar,
"vs",colnames(sub2_ac_data[i]),i, sep = " ")) + 
theme(axis.text.x=element_text(angle = 90, hjust = 1,vjust = 0.5,size=8)) + 
labs(x = colnames(sub2_ac_data[i]), y=colnames(sub2_ac_data[rescol]), 
colour=colnames(sub2_ac_data[topfac[1]]), 
shape=colnames(sub2_ac_data[topfac[1]])) + ggtheme + 
theme(plot.title = element_text(face = "bold", size = 16,hjust = 0.5))) ;

1 个答案:

答案 0 :(得分:0)

我发现了一个可能的解决方案,尽管它不是很优雅。*

基本上,您先提取主要网格线,然后基于乘数创建一系列次要网格线。

我回答了一个相关的问题(作为对Eric Watt答案的修改)。只是语法的变化,在任何文档中都没有很好地解释。

这是链接:ggplot2 integer multiple of minor breaks per major break

这是代码:

library(ggplot2)

df <- data.frame(x = 0:10,
                 y = 10:20)
p <- ggplot(df, aes(x,y)) + geom_point()

majors <- ggplot_build(p)$layout$panel_params[[1]]$x.major_source;majors
multiplier <- 5
minors <- seq(from = min(majors),
              to = max(majors),
              length.out = ((length(majors) - 1) * multiplier) + 1);minors
p + scale_x_continuous(minor_breaks = minors)

*不是很优雅,因为:

  1. 如果图形没有任何数据(这可能会循环发生,因此需要对其进行例外处理),它将失败。

  2. 它仅从现有主要网格线的最小值到最大值开始绘制次要网格线,而不是在可以放置点的坐标空间的整个末端开始