问题描述
我已经阅读了有关缩放y轴的所有文章，在ggplot中使用sec.axis时，所有这些步骤中都有一些额外的步骤来控制y轴限制.
I have reading all post about scaling the y-axis and in all of them there are some extra steps in order to control the y-axis limits when using sec.axis in ggplot.
我有以下df.
structure(list(day = c(1, 3, 5, 7, 9), mean = c(0.000452620431539136,
0.000244953967091816, 0.000409529176828165, 0.000621566432113383,
0.000975471413145951), sd = c(0.000145928952108396, 7.48403498938327e-05,
8.70694523628839e-05, 0.000265199022927143, 0.00076194983870935
), group = c("pi", "pi", "pi", "pi", "pi")), row.names = c(NA,
-5L), class = c("tbl_df", "tbl", "data.frame"))
和
structure(list(day = c(1, 3, 5, 7), mean = c(NaN, 5.85880255563636,
4.16535426125, 3.22060147866667), sd = c(NaN, 0.363838291664683,
0.980379999667707, 1.17101416465057), group = c("Equi", "Equi",
"Equi", "Equi")), row.names = c(NA, -4L), class = c("tbl_df",
"tbl", "data.frame"))
我运行以下代码:
-ggplot(data=DI.pi.sum, aes(x=day, y=mean)) + geom_bar(stat = "identity", fill = "grey", size = 1.5) +
geom_errorbar(aes(ymin=mean-sd, ymax=mean+sd), size = 0.1, width=.3,
position=position_dodge(1)) +
geom_line(data=DI.Equi.sum, aes(x=day, y=mean/10000)) +
geom_ribbon(data = DI.Equi.sum,
aes(x=day, y = mean/10000, ymin=mean/10000-sd/10000, ymax=mean/10000+sd/10000),
alpha=0.2, fill = "grey40") +
theme(panel.grid.major = element_blank(),
panel.grid.minor = element_blank(),
panel.background = element_blank(),
axis.line = element_line(colour = "black"),
axis.text.x = element_text(face = "bold", size = 7),
axis.title.y = element_text(face = "bold", size = 10),
legend.direction = "vertical", legend.box = "horizontal") +
scale_size(range = c(5, 15)) +
scale_x_continuous(breaks = c(1, 3, 5, 7, 9), limits = c(0,10)) +
scale_y_continuous(limits=c(0, 0.0020), sec.axis = sec_axis(~ . * 10000), name = "pi")
产生以下图:
我不需要sec轴上升到40.我很高兴将其增加到20.
I do not need the sec axis to go up to 40. I would be great to get it to just 20.
建议?
谢谢.
推荐答案
要与辅助轴一起绘制的均值范围仅为3-6.我已经使用比例因子变量调整了对ggplot的调用，因此您可以尝试使用辅助轴的外观.缩放比例为10,000，则辅助轴范围为0-20.
The range of the mean which you want to plot with the secondary axis is only 3-6. I've adjusted your call to ggplot with a scaling factor variable so you can play around with how you want the secondary axis to look. A scaling factor of 10,000 gets you a secondary axis range from 0-20.
library(ggplot2)
scaling_factor = 10000
ggplot(data=DI.pi.sum, aes(x=day, y=mean)) + geom_bar(stat = "identity", fill = "grey", size = 1.5) +
geom_errorbar(aes(ymin=mean-sd, ymax=mean+sd), size = 0.1, width=.3,
position=position_dodge(1)) +
geom_line(data=DI.Equi.sum, aes(x=day, y=mean/scaling_factor)) +
geom_ribbon(data = DI.Equi.sum,
aes(x=day, y = mean/scaling_factor, ymin=mean/scaling_factor-sd/scaling_factor, ymax=mean/scaling_factor+sd/scaling_factor),
alpha=0.2, fill = "grey40") +
theme(panel.grid.major = element_blank(),
panel.grid.minor = element_blank(),
panel.background = element_blank(),
axis.line = element_line(colour = "black"),
axis.text.x = element_text(face = "bold", size = 7),
axis.title.y = element_text(face = "bold", size = 10),
legend.direction = "vertical", legend.box = "horizontal") +
scale_size(range = c(5, 15)) +
scale_x_continuous(breaks = c(1, 3, 5, 7, 9), limits = c(0,10)) +
scale_y_continuous(limits=c(0, 0.0020), sec.axis = sec_axis(~ . * scaling_factor, name = "secondary axis"), name = "pi")
通常认为不适合使用双刻度y轴，尤其是使用条形，因此不建议使用.(摘自下面的几篇文章)
Using dual scaled y-axis especially with bars is generally considered inappropriate and should be discouraged. (Paraphrased from the Few article noted below)
有关此问题的讨论，请参见以下内容:我如何才能使用2个不同的y轴进行绘制?，，以及Stephen Few的链接文章: http://www.perceptualedge.com/articles/visual_business_intelligence/dual-scaled_axes.pdf
See this for discussion on the issue: How can I plot with 2 different y-axes?, ggplot with 2 y axes on each side and different scales and the linked article by Stephen Few: http://www.perceptualedge.com/articles/visual_business_intelligence/dual-scaled_axes.pdf
这篇关于使用sec.axis时控制y轴的最简单方法是什么的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持！