繁体   English   中英

如何在ggplot2中映射超过10种不同的线型

how to map more than 10 different line types in ggplot2

提示:本站收集StackOverFlow近2千万问答,支持中英文搜索,鼠标放在语句上弹窗显示对应的参考中文或英文, 本站还提供   中文繁体   英文版本   中英对照 版本,有任何建议请联系yoyou2525@163.com。

我必须映射11种不同的线型,尝试使用scale_linetype_manual进行指定,但无法做到这一点。

dat <- data.frame(Subject = c(1,1,1,2,2,2,3,3,4,4,4,5,5,5,6,6,6,7,7,7,8,8,8,9,10,10,10,11,11,11),
Time = c("C1D1","C1D8","C2D1","C1D1","C1D8","C2D1","C1D1","C1D8","C1D1","C1D8","C2D1","    C1D1","C1D8","C2D1","C1D1","C1D8","C2D1","C1D1","C1D8","C2D1","C1D1","C1D8","C2D    1","C1D1","C1D1","C1D8","C2D1","C1D1","C1D8","C2D1"),
Response = c("Responder","Responder","Responder","Progressive","Progressive","Progressive",    "Non-evaluable","Non-evaluable","Non-evaluable","Non-evaluable","Non-    evaluable","Stable","Stable","Stable","Progressive","Progressive","Progressive",    "Progressive","Progressive","Progressive","Non-evaluable","Non-    evaluable","Non-evaluable","Non-evaluable","Stable","Stable","Stable","Non-    evaluable","Non-evaluable","Non-evaluable"),
Eotaxin = c(401.5,463,363.5,332.5,319,212,527.5,421.5,369.5,535,221.5,936.5,1021.5,550.5,4    58.5,386,340,172.5,212.5,160.5,267,301,300.5,300.5,1160,1018,994.5,197,392.5,220    .5)
)

dat$Subject <- as.character(dat$Subject)

nms <- names(dat)

for(biomark in 4:4){

#png(filename = paste("../../../Roswell/plot/",nms[biomark],".png",sep =     ""),width = 1500,height = 1000,res = 200)


p <- ggplot() + 
            geom_line(data = dat, aes(x = dat$Time, y = dat[,biomark],group = dat$Subject, linetype = Subject, colour = Response)) + 
            labs(title = nms[biomark]) + 
            scale_linetype_manual(breaks = c("1","2","3","4","5","6","7","8","9","10","11"),
    values = c("dotted", "solid", "dashed", "F1", "solid", "solid", "solid", "solid", "solid", "solid", "solid")) +
            xlab("Time") + 
            ylab(nms[biomark]) + 
            theme_minimal() + 
            theme(plot.title = element_text(size = 12,face="bold",hjust = 0.5),
                            axis.title = element_text(size= 12, face = "bold"),
                            legend.text = element_text(size = 7),
                            legend.title = element_text(size = 7,face = "bold"),
                            legend.key.size = unit(0.5, "cm")) 


plot(p)


#dev.off()

}

该图说明了为什么线型图例与scale_linetype_manual中指定的线型不匹配,尤其是对于前四种类型,当我指定“破折号”和“ F1”时,第三种和第四种类型仍然是实心的吗? 结果图

问题暂未有回复.您可以查看右边的相关问题.
1 如何使用ggplot2在单个变量上映射不同类型的几何

我使用ggplot2制作了这张图: 我想将“ geom_bar() ”时间序列作为geom_bar()而不是一行。 我尝试使用以下代码分别绘制每个系列: 我得到了: 这几乎就是我想要的。 但我也想保留指南。 因此,我想知道如何将变量映射到几何类型。 先 ...

2018-03-29 14:24:35 1 53   r/ ggplot2
2 ggplot2有多行

我尝试创建一个多于线的图形,即变量共享相同的x轴,但在y轴上不同。 我想使用ggplot2。 问题是ggplot会生成一个空图,没有任何行。 我想针对从1到5的x轴绘制6条线(V2-V7)。 以下是可能进行复制的数据代码: 然后,我使用函数melt(),该函数通常以绘制多条线 ...

3 ggplot2-多于一行时控制线型

请看以下示例: 产生此图: 好。 我的问题是我希望线型反转。 我希望简单模型的实线和复杂模型的虚线。 默认情况下,字母顺序似乎决定了此处的线型。 我已经使用scale_linetype_manual等尝试了不同的变体,但是尝试了一下,因为我可能无法使简单的线条变得牢固而使 ...

2016-11-24 16:25:29 1 1171   r/ ggplot2
4 在 ggplot2 中绘制多个变量 - 散点图和线图

我不得不编辑问题。 在一天结束时,这种方式更有意义。 所以我试图根据某些动物的太阳以图形方式确定活动。 我在这里创建了一个图表来显示日出和日落。 此外,点代表版本。 但是,我想为日出分别绘制一条线,为日落绘制一条线,而不是 geom_errorbar()。 我使用的代码如下所示: 如何使用两 ...

5 ggplot2:如何在图例中调整线型+顺序?

我想在下面的ggplot中调整线型。 因此,我在data.frame df中引入另一列来表示线型,但是一旦我将其转换为因子,线型而不是“方法”出现在图例中...(参见试验3)。 我怎样才能在传奇中获得“方法”? 最后我希望能够 自由选择线型, 自由选择这些线型在图例中 ...

2011-12-06 21:59:19 1 11233   r/ ggplot2
6 如何在两种不同类型的几何图形 ggplot2 之间创建图例

我有两个不同的数据集,我想在同一个 ggplot2 图中绘制它们,每个数据集使用不同的几何图形。 理想情况下,我还想要一个图例,它表明点几何对应于一种类型的数据,线几何对应于另一种类型,但我不知道如何做到这一点。 我的数据基本上看起来像下面的一个例子,减去图例。 ...

2020-09-26 00:42:11 1 27   r/ ggplot2
7 如何使ggplot2折线图更平滑

我在绘制折线图时遇到一些问题,希望我的绘图看起来更平滑。 以下是我的代码: 我想使此折线图看起来更平滑,如图所示。 谢谢! ...

2013-08-06 14:58:14 0 344   r/ ggplot2
9 ggplot2绘制的点数超过要求

我试图用不同颜色的非重叠正方形填充正方形区域,并且ggplot2在较高的x和y限制处比数据框中的点绘制更多的点。 这是代码 我用RStudio得到的结果是这样。 请注意图像右侧和顶部的额外点。 我如何才能让ggplot专门为数据帧中的那些点专门绘制一个正方形,而不是更多? ...

2018-01-18 09:14:05 2 75   r/ ggplot2
10 如何在具有 2 个不同数据集的图中使用 ggplot2 添加平滑线

我正在尝试使用 2 个不同的数据集和每个散点的平滑线制作散点图来比较它们。 我可以分开做,但出于某种原因,当两者都在同一个情节中时我不能这样做(我知道这可能是我缺乏编码知识) 我正在尝试这个也许有人可以指出我的错误 感谢所有的帮助 编辑:我按照建议添加了可行的数据 ...

暂无
暂无

声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.

 
粤ICP备18138465号  © 2020-2022 STACKOOM.COM