请问如何通过R语言画出如图所示的，带图例的折线图。

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

请问如何通过R语言画出如图所示的，带图例的折线图。
请求 大神指教！十分感谢！

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：如图所示 折线图 R语言

使用 ggplot2 包

s609078902 发表于 2021-10-20 13:46
使用 ggplot2 包

感谢大佬回复，我现有以下的数据集，请问能详细指导下该如何编写代码吗？初接触R语言，感谢大佬讲解！
acc <- c(0.8001, 0.8101, 0.8202, 0.8306, 0.8605, 0.8453, 0.8788, 0.8966)
nmi <- c(0.8002, 0.8103, 0.8232, 0.8406, 0.8505, 0.8400, 0.8701, 0.8506)
ari <- c(0.8003, 0.8133, 0.8242, 0.8206, 0.8105, 0.8100, 0.8601, 0.8306)
pair <- c(0, 1000, 2000, 3000, 4000, 5000, 6000, 7000)

snile 发表于 2021-10-25 16:48
感谢大佬回复，我现有以下的数据集，请问能详细指导下该如何编写代码吗？初接触R语言，感谢大佬讲解！
a ...

大概这样

1. acc <- c(0.8001, 0.8101, 0.8202, 0.8306, 0.8605, 0.8453, 0.8788, 0.8966)
   
2. nmi <- c(0.8002, 0.8103, 0.8232, 0.8406, 0.8505, 0.8400, 0.8701, 0.8506)
   
3. ari <- c(0.8003, 0.8133, 0.8242, 0.8206, 0.8105, 0.8100, 0.8601, 0.8306)
   
4. pair <- c(0, 1000, 2000, 3000, 4000, 5000, 6000, 7000)
   
5. 
   
6. library(tidyr)
   
7. library(ggplot2)
   
8. 
   
9. df <- data.frame(acc, ari, nmi, pair)
   
10. df <- df %>% pivot_longer(1:3, names_to = 'type', values_to = 'value')
    
11. 
    
12. ggplot(df, aes(x = pair, y = value, colour = type, shape = type)) +
    
13.   geom_point() + geom_line() + theme_bw() +
    
14.   theme(legend.title = element_blank(), legend.position = 'bottom') +
    
15.   xlab('No. of Pairwise Constrains') + ylab('')

复制代码

owenqi 发表于 2021-10-26 00:08
大概这样

好的，十分感谢大神！！让我对ggplot2和tidyr包有了更深的了解和认识。多谢大神的帮助和指导！！

https://www.r-graph-gallery.com/