我读了这个答案:How to control number of minor grid lines in ggplot2?
尽管我无法找到一种使之与我的要求相协调的方法。
我希望有一种方法可以输入两个主要刻度之间的次要网格线数量。 (或次要网格线与主要网格线的比例)说我想将其分为5个部分(4个次要网格线)。我该怎么办?
由于将有许多图形,而我不知道其中的轴限制,因此无法明确定义一个较小的网格线步长的大小。我想使用任何算法ggplot2来选择主要网格线的数量,而只有次要网格线的数量是它的4倍。
我希望右侧的r图看起来像左侧的excel图
代码(以帮助解决问题)
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))) ;
答案 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)
*不是很优雅,因为:
如果图形没有任何数据(这可能会循环发生,因此需要对其进行例外处理),它将失败。
它仅从现有主要网格线的最小值到最大值开始绘制次要网格线,而不是在可以放置点的坐标空间的整个末端开始