希望有大神指教利用R语言如何作得如下图形。以下数据如何利用?

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：R语言

1. x1 <- c(1:500)
   
2. y1 <- log(x1-1, 1.023)
   
3. x2 <- c(501:1000)
   
4. y2 <- log(x2-1, 1.023)
   
5. 
   
6. y1min <- y1 - 0.03*y1
   
7. y1max <- y1 + 0.03*y1
   
8. y2min <- y2 - 0.03*y2
   
9. y2max <- y2 + 0.03*y2
   
10. df01 <- data.frame(x1,y1,x2,y2,y1min,y1max,y2min,y2max)
    
11. ggplot( df01 ) +
    
12.   geom_line( aes( x1, y1 ), linetype = 1, size = 1.5 )+
    
13.   geom_line( aes( x2, y2 ), linetype = 2, size = 1.5 )+
    
14.   geom_point( aes( 500, log(499, 1.023) ),size = 5 )+
    
15.   geom_ribbon( aes( x1, ymin = y1min, ymax = y1max ), alpha = 0.2, fill = 'blue') +
    
16.   geom_ribbon( aes( x2, ymin = y2min, ymax = y2max ), alpha = 0.2, fill = 'blue')

复制代码