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 首先是准备...
(0,180,20), sec.axis = sec_axis(transform = ~., name = NULL, labels = NULL) ) + labs( # title = " ", # subtitle = " ", tag = " ")+ geom_text(x = 1966, y = 175, label = "GLOBAL COAL", size = 5, color = "white", hjust = 0, vjust = 0.5)+ geom_text(x =...
今天我们通过我们的汽车销售数据(公众号回复:汽车销售,可以获得数据)来演示一下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 = sec_axis(transform = ~., # 其实这里Y轴第二坐标没有用了 breaks = label_data, labels = NULL ) )+ 5.3 增加标题和副标题等文字标签 接下来几个部分都是细致活儿 geom_text(mapping = aes(x = 1966, # 主标题 y = 175,
# 创建第二个y轴plot<-plot+geom_line(aes(y=z),color="red")+scale_y_continuous(sec.axis=sec_axis(~./10,name="z轴")) 1. 2. 3. 4. 步骤5:绘制图形 现在,我们已经创建了第一个y轴和第二个y轴,并将它们添加到图形中。接下来,我们需要使用ggtitle函数来设置图形的标题,并使用xlab和ylab函数来...
(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=...
xend=date,yend=-30),size=8,colour=gray(0.5)+scale_x_date(date_labels=month.abb,date_breaks="1 month",expand=c(0.01,0.01),name="",limits=(c(as_date("2020-01-01"),as_date("2020-12-31")))+scale_y_continuous(name=expression("Temperature "(degree*C)),sec.axis=sec_axis(~(.+...
(-35000,35000,5000)),sec.axis=sec_axis(~(.+1000)/100,name="Mortality Rate per 1000",breaks=seq(-400,400,40)))+scale_x_continuous(breaks=1:15,labels=unique(dat01$xlabel),expand=c(0,0),limits=c(0.3,15.7))+ggnewscale::new_scale_fill()+geom_ribbon(data=new.dat02,aes(x=x,...
使用sec_axis函数添加次坐标轴,用于展示y2数据。你需要指定一个转换函数,以便将y2数据映射到主坐标轴的刻度上。 r p + geom_line(aes(y = y2), color = "red") + scale_y_continuous( sec.axis = sec_axis(~ . * 5, name = "y2") # 假设y2需要乘以5才能与y1在同一尺度上比较 ) 在这个例...