全部版块 我的主页
› 论坛 › 数据科学与人工智能 › 数据分析与数据科学 › R语言论坛
R语言ggplot图例合并问题
Metor·
4879 6
2019-10-12
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"
如附件
附件列表
QQ图片20191012113115.png

原图尺寸 74.9 KB

QQ图片20191012113115.png

test.txt

大小:18.3 KB

 马上下载

二维码

扫码加我 拉你入群

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

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

全部回复
zhou1_20
2019-10-12 13:24:28
复制代码
二维码

扫码加我 拉你入群

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

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

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

扫码加我 拉你入群

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

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

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

扫码加我 拉你入群

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

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

Metor·
2019-10-14 10:27:07
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)))
所画如图 您的方法仍然是将类型与颜色合并！ 谢谢您百忙之中 解答！
附件列表
J6X435~IS96_E_O(SLY`E28.png

原图尺寸 42.93 KB

J6X435~IS96_E_O(SLY`E28.png

二维码

扫码加我 拉你入群

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

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

Metor·
2019-10-14 10:48:18
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)))
结果如图。
类型和颜色并没有分开！ 每个线都有特色的类型和颜色
感谢百忙之中的解答。谢谢！
附件列表
J6X435~IS96_E_O(SLY`E28.png

原图尺寸 42.93 KB

J6X435~IS96_E_O(SLY`E28.png

二维码

扫码加我 拉你入群

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

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

点击查看更多内容…
相关推荐
栏目导航
热门文章
推荐文章

说点什么

分享

微信QQ空间QQ微博
扫码加好友，拉您进群
各岗位、行业、专业交流群