如何画出这样均匀的对数坐标？

相似文件 换一批

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

如图，如何实现下图中这样的纵坐标？

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏2 回帖

关键词：如何实现 纵坐标

1. x=0:10
   
2. set.seed(1);y1=cumsum(rnorm(11))
   
3. set.seed(2);y2=cumsum(rnorm(11,mean = 0.5))
   
4. set.seed(3);y3=cumsum(rnorm(11,mean = -0.5))
   
5. y=c(y1,y2,y3)
   
6. 
   
7. plot(1, type = 'n', axes=FALSE, frame=TRUE,
   
8.      xlim = c(0,10),ylim = c(min(y),max(y)),
   
9.      xlab = 'x',ylab = 'y')
   
10. lines(x,y1,col=1,lwd=2)
    
11. lines(x,y2,col=2,lwd=2)
    
12. lines(x,y3,col=3,lwd=2)
    
13. legend('topleft',paste0('y',1:3),lwd=2,lty=1,bty = 'n',col = 1:3)
    
14. axis(1, 0:10)
    
15. tck1= round((max(y)-min(y))/10*0:10+min(y),1)
    
16. axis(2, tck1, tck=-0.04,lwd.ticks = 2,cex.axis=0.75)
    
17. tck2= rep((max(y)-min(y))/10/5*1:4,10)+
    
18.   rep((max(y)-min(y))/10*0:9+min(y),rep(4,10))
    
19. axis(2, tck2, labels=rep("", length(tck2)), tck=-0.02)

复制代码

1. data <- data.frame(x = 0:10, y = 2 ^ (0:10))
   
2. ggplot(data, aes(x = x, y = y)) +
   
3.   geom_point() +
   
4.   scale_y_log10(breaks = 2^(0:10)) +
   
5.   scale_x_continuous(breaks = 0:10)

复制代码