R语言ggplot图例合并问题

相似文件 换一批

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

library(ggalt)
ggplot(data,aes(x=dis,y=per,group=name))+scale_x_continuous(limits=c(0,1), breaks=seq(0,1,0.05))+geom_xspline(spline_shape = 0.4,size=1,aes(linetype=ltype,colour = color))
出现的 线类型和颜色 两个图裂，我想合并两个，并以name为label


文件如下
"name" "dis" "per" "ltype" "color"
"491" "A" 0.98 0 "longdash" "#E41A1C"
"492" "B" 0.98 0 "longdash" "#377EB8"
"493" "C" 0.98 NA "longdash" "#4DAF4A"
"496" "A" 0.99 0 "longdash" "#E41A1C"
"497" "B" 0.99 0 "longdash" "#377EB8"
"498" "C" 0.99 NA "longdash" "#4DAF4A"
"4" "D" 0 0 "solid" "#984EA3"
"5" "E" 0 0 "solid" "#FF7F00"
"9" "D" 0.01 0 "solid" "#984EA3"
"10" "E" 0.01 0.2 "solid" "#FF7F00"
如附件

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：R语言

1. library(tidyverse)
   
2. 
   
3. #method 1
   
4. mtcars%>%group_by(vs,gear) %>%
   
5.   mutate(vs_gear=paste(c(vs[1],gear[1]),collapse = ','))%>%
   
6.   ungroup()%>%
   
7.   select(mpg,disp,vs_gear)%>%
   
8.   mutate(vs_gear=as.factor(vs_gear))%>%
   
9.   ggplot(aes(mpg,disp))+
   
10.   geom_point(aes(colour=vs_gear, shape=vs_gear),size=7)
    
11. 
    
12. #method 2
    
13. mtcars%>%select(mpg,disp, vs, gear)%>%
    
14.   mutate(vs=as.factor(vs),gear=as.factor(gear))%>%
    
15.   ggplot(aes(mpg,disp))+
    
16.   geom_point(aes(colour=interaction(vs,gear),
    
17.                  shape=interaction(vs,gear)),size=7)+
    
18.   labs(colour='vs_gear', shape='vs_gear')

复制代码

zhou1_20 发表于 2019-10-12 13:24

谢谢你的回复 ，但是我的文件中线类型和颜色分组是不一样的。你的意思是吧颜色和线类型合并 无法解决我的问题。

Metor· 发表于 2019-10-14 00:31
谢谢你的回复 ，但是我的文件中线类型和颜色分组是不一样的。你的意思是吧颜色和线类型合并 无法解决我的 ...

用第二种方法

zhou1_20 发表于 2019-10-14 08:43
用第二种方法

抱歉 ，再次打扰您。我尝试了第二种方法，代码如下：
>data<-read.csv("test.txt",stringsAsFactors = F,sep = " ",check.names = F,header=T)
> head(data)
  name  dis per    ltype     com
1    A 0.00   0 longdash #E41A1C
2    B 0.00   0 longdash #377EB8
3    C 0.00   0 longdash #4DAF4A
6    A 0.01   0 longdash #E41A1C
7    B 0.01   0 longdash #377EB8
8    C 0.01   0 longdash #4DAF4A
> data%>%select(dis,per,ltype,com)%>%
+ mutate(ltype=as.factor(ltype),com=as.factor(com))%>%
+ ggplot(aes(dis,per))+
+ geom_line(aes(colour=interaction(ltype,com),linetype=interaction(ltype,com)))
所画如图 您的方法仍然是将类型与颜色合并！ 谢谢您百忙之中 解答！

zhou1_20 发表于 2019-10-14 08:43
用第二种方法

抱歉 再次打扰您，
我尝试了第二种方法代码如下：
> data<-read.csv("test.txt",stringsAsFactors = F,sep = " ",check.names = F,header=T)
> head(data)
  name  dis per    ltype     com
1    A 0.00   0 longdash #E41A1C
2    B 0.00   0 longdash #377EB8
3    C 0.00   0 longdash #4DAF4A
6    A 0.01   0 longdash #E41A1C
7    B 0.01   0 longdash #377EB8
8    C 0.01   0 longdash #4DAF4A
> data%>%select(dis,per,ltype,com)%>%
+ mutate(ltype=as.factor(ltype),com=as.factor(com))%>%
+ ggplot(aes(dis,per))+
+ geom_line(aes(colour=interaction(ltype,com),linetype=interaction(ltype,com)))
结果如图。
类型和颜色并没有分开！ 每个线都有特色的类型和颜色
感谢百忙之中的解答。谢谢！

ggplot2不知到怎么实现，给你个基础命令版，你参考下把

1. dat<-read.csv("test.txt",stringsAsFactors = F,sep = " ",check.names = F,header=T)
   
2. 
   
3. attach(dat)
   
4. 
   
5. plot(dis, per, type = 'n', xlab = 'dis', ylab = 'per')
   
6. 
   
7. type = unique(ltype)
   
8. cm = unique(com)
   
9. 
   
10. for (i in 1:length(type)) {
    
11.   for (j in 1:length(cm))
    
12.     lines(dis[ltype==type[i]&com==cm[j]],
    
13.           per[ltype==type[i]&com==cm[j]], lty=i, col=cm[j], lwd=2)
    
14. }
    
15. grid()
    
16. legend('topright', c(type, cm), lty = c(1,2,NA,NA,NA,NA,NA),
    
17.        pch = c(NA,NA,16,16,16,16,16),lwd=2,
    
18.        col = c(1,1,cm))
    
19. 
    
20. detach(dat)

复制代码