1、https://ggplot2.tidyverse.org/reference/sec_axis.html 2、https://www.r-graph-gallery.com/line-chart-dual-Y-axis-ggplot2.html 3、https://github.com/alex-koiter/Weather-and-Climate-figures 4、https://twitter.com/Alex_Koiter/status/1312458166496501760/photo/1 代码主要来自于链接3 首先是准备...
sec.axis = sec_axis(~./1600, name = 'Test positive rate', breaks = seq(0,2.5,1)))+ geom_point(data = data2, aes(factor(Week),value*1600, color=variable), size=4)+ geom_line(data = data2, aes(factor(Week),value*1600, color=variable,group=variable), cex=1.3)+ scale_color_...
1、要再添加一个y轴,我们需要先用scale_y_continuous()对y轴进行设置,expand = c(0,0)表示y轴上下端不留空隙,limits = c(0,6000)表示定义y轴范围,这里定义宽一点便于之后添加图例。 2、在scale_y_continuous()内用sec.axis = sec_axis(~./42,name = ‘-Log10(P value)’,breaks = seq(0,140,2...
今天我们通过我们的汽车销售数据(公众号回复:汽车销售,可以获得数据)来演示一下ggplot2绘制双坐标轴图,主要是通过sec.axis函数进行转换,进行第二个坐标轴的转换。我们先来导入数据 library(foreign) library(ggplot2) library(plyr) bc <- read.spss("E:/r/test/tree_car.sav", use.value.labels=F, to.data...
sec.axis = waiver()) name 修改轴标题,使用函数labs()也能达到相同效果 library(gridExtra)p1 <- ggplot(mtcars, aes(wt, mpg)) geom_point() scale_x_continuous(name='AAA')p2 <- ggplot(mtcars, aes(wt, mpg)) geom_point() labs(x='BBB')grid.arrange(p1,p2,ncol=2) breaks 将数据进行指定...
sec.axis = #定义第二坐标轴 ) 1. 2. 3. 4. 5. 6. 7. 8. 9. 10. 11. 12. 13. 统计变换参数备选:asn/atanh/boxcox/exp/identity/log/log10/log1p/log2/logit/probability/probit/reciprocal/reverse/sqrt p1 <- ggplot(mpg,aes(displ,hwy))+geom_point() ...
(sec.axis=sec_axis(~.*ratio),limits=c(-.165,.165))+scale_x_continuous(breaks=c(1,3,5,7,9,11))+ggtitle(title)+xlab("Month")+theme_classic()+guides(color=guide_legend(nrow=2,byrow=TRUE))+theme(legend.position="bottom",legend.title=element_blank(),legend.text=element_text(size=...
(sec.axis=sec_axis(~.*ratio),limits=c(-.165,.165))+scale_x_continuous(breaks=c(1,3,5,7,9,11))+ggtitle(title)+xlab("Month")+theme_classic()+guides(color=guide_legend(nrow=2,byrow=TRUE))+theme(legend.position="bottom",legend.title=element_blank(),legend.text=element_text(size=...
ggplot(data=dat,aes(x=x,y=mean_value))+geom_line(aes(color=group),size=1.5)+geom_ribbon(aes(ymin=lower95-1,ymax=upper95+1,fill=group),alpha=0.5,show.legend=FALSE)+theme_minimal()+theme(panel.grid=element_blank(),axis.line=element_line(),axis.ticks=element_line(),legend.title=elem...
调整标签的大小可以在theme()函数中通过设置功能plot.title,axis.text.x和axis.text.y。需要在中指定它们element_text()。如果要删除其中任何一个,请将其设置为element_blank(),它将完全消失。 调整图例标题有些棘手。如果您的图例是某个color属性的图例,并且其根据因数而变化,则您需要设置scale_color_discrete()...