用R语言作图，求助。。。。

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

求助，请问怎么才能作图的时候生成最下面的这个 All Stock 和 Top 300 啊

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：R语言 Stock tock stoc Top R语言 r语言入门 R语言学习 R语言基础 求助R语言

zhuosn 发表于 2018-5-25 21:10
再增加一个关键词搜一下。如还不行，再用三百搜搜搜看。

我尝试过sub，但是只能文本输入，不能画出线

应该会自动生成legend啊

1. require("reshape")
   
2. require("ggplot2")
   
3. set.seed(1234)
   
4. x <- c( 1:15 )
   
5. All_Stocks <- runif( 15, 0.2, 1 )
   
6. Top_300 <- All_Stocks - 0.1
   
7. test_data <- data.frame( x, All_Stocks, Top_300  )
   
8. 
   
9. test_data_long<- melt( test_data, id = "x" )
   
10. 
    
11. ggplot( test_data_long, aes( x = x, y = value, group = variable ) ) +
    
12.   geom_line( aes( linetype = variable, color = variable, size = variable ) ) +
    
13.   scale_color_manual( labels = c( 'All Stocks        ', 'Top 300' ),
    
14.                       values = c( 'black', 'gray' ) ) +
    
15.   scale_linetype_manual( values = c( "solid", "solid" ), guide = FALSE ) +
    
16.   scale_size_manual( values = c( 2, 1.5 ), guide = FALSE ) +
    
17.   theme_bw() +
    
18.   theme( legend.position = "bottom" )+
    
19.   theme( legend.title = element_blank() ,
    
20.          legend.key.height = unit( 3, 'lines' ),
    
21.          legend.key.width = unit( 3, 'lines' ),
    
22.          legend.text = element_text( size = 20 ) )+
    
23.   guides( colour = guide_legend( label.vjust = 0.66,
    
24.                                  override.aes =
    
25.                                    list( linetype = c( "solid", "solid" ),
    
26.                                          size     = c( 2, 1.5 ) ) ) )

复制代码

stormhz 发表于 2018-5-29 03:01

感谢！