如何在R中用莱迪思绘制线段或箭头？ （来自宽格式数据集）

本文介绍了如何在R中用莱迪思绘制线段或箭头？ （来自宽格式数据集）的处理方法，对大家解决问题具有一定的参考价值，需要的朋友们下面随着小编来一起学习吧！ 问题描述 29岁程序员，3月因学历无情被辞！ 我想说我有这个玩具的例子 pre> temp to = c（C，D，D，C，A A，B）） posi至 1 AC 2 BD 3 CD 3 DC 2 DA 1 BA 5 AB 我想从点由from定义，其起始位置为由to和位置+1定义的点。 我用ggplot创建了绘图 pre $ ggplot（）+ geom_point（data = temp，aes（x = posi，y = from，size = 10），show.legend = FALSE ）+ geom_point（data = temp，aes（x = posi + 1，y = to，size = 10），show.legend = FALSE）+ geom_segment（data = temp，aes（x = posi，y = from，xend = posi + 1，yend = to）， arrow = arrow（type =closed，angle = 10），size = 1.5，color =blue）+ theme_bw（） 但我想用莱迪思来做，因为我的真实数据集要大得多（数百万行）并且格子工作得更快。 我知道我可以减少删除重复项目的行数，但这是另一回事。 我怎样才能用格子做到这一点？ 我一直在研究，我认为我需要使用panel.segments或lsegments，但事情似乎要复杂得多，而且很难找到示例。 xyplot（from〜posi，type =p，col =black，data = temp，pch = 16， panel = function x，y，...）{panel.segments（x，y，）}） I不知道在函数内部面板里写什么参数。 xyplot（from数据= temp，pch = 16，xlim = c（0,7）， panel = function（...）{ panel.dotplot（x =（temp $ posi + 1），y = temp $ to，col =black，cex = 1.4） panel.dotplot（x = temp $ posi，y = temp $ from， panel.arrows（x0 = temp $ posi，y0 = temp $ from，x1 = temp $ posi + 1，y1 = temp $ to，lwd = 3，col = blue，）} ） 产生如下图： / p> 请让我知道这是你 更新 我发表了一篇关于@skan在评论中标识和描述的问题：当 temp $从中不存在极端级别（如D）时，则D不会成为图的一部分，即使D会稍后需要 temp $ to 。从@Konn回答的问题可能发现 我想我们已经解决了这个问题。 I would like to create a plot with segements or arrows.Let's say I have this toy exampletemp <- data.frame(posi=c(1,2,3,3,2,1,5), from=c("A", "B", "C", "D", "D", "B", "A"), to=c( "C", "D", "D", "C", "A", "A", "B"))posi from to 1 A C 2 B D 3 C D 3 D C 2 D A 1 B A 5 A BAnd I want to plot segments or arrows from the points defined by "from" and its starting position to the points defined by "to" and position+1.I got to create the plot with ggplotggplot() + geom_point(data=temp, aes(x=posi, y=from, size=10),show.legend = FALSE) +geom_point(data=temp, aes(x=posi+1, y=to, size=10),show.legend = FALSE) +geom_segment(data=temp, aes(x=posi, y=from, xend=posi+1, yend=to),arrow=arrow(type="closed", angle=10), size=1.5, color="blue") + theme_bw()But I would like to do it with Lattice because my real dataset is much bigger (millions of rows) and lattice works faster.I know I can reduce the number of lines removing duplicates but that's another story.How can I do it with lattice?I've been researchig and I think I need to use a panel.segments or lsegments, but things seem to be much more complicated and it's difficult to find examples. xyplot(from ~ posi , type="p", col="black", data=temp, pch=16, panel = function(x, y, ...){ panel.segments(x,y,) })I don't know what parameters to write inside function nor inside panel. 解决方案 You could use the following code:xyplot(from ~ posi , type="p", col="black", data=temp, pch=16, xlim = c(0,7), panel = function(...){ panel.dotplot(x = (temp$posi+1), y = temp$to, col="black", cex=1.4) panel.dotplot(x = temp$posi, y = temp$from, col ="black", cex=1.4) panel.arrows(x0 = temp$posi, y0 = temp$from, x1 = temp$posi+1, y1 = temp$to, lwd=3, col="blue", ) })yielding the following graph:Please let me know whether this is what you want.UPDATEI posted a question concerning the problem that @skan identified and described in the comments: when a "extreme" level (like "D") is not present in temp$from then the "D" will not part of the graph, even when "D" will be needed later for temp$to. The question with answer from @Konn may be found here.As I understand it now, we need a factor that is ordered, and we need an addition to the code specifying drop.unused.levels = FALSE in the call to xyplot. In the example we show the full set with "extremes" in "from" and as subset where the extreme "D" is absent: The full code is:l <- c("A", "B", "C", "D")temp <- data.frame(posi = c(1, 2, 3, 3, 2), from= factor(c("A", "B", "C", "D", "D"), levels = l, ordered = TRUE), to = factor(c("C", "D", "D", "C", "A"), levels = l, ordered = TRUE) )xyplot(from ~ posi , type="p", col="black", data=temp, pch=16, xlim = c(0,7), drop.unused.levels = FALSE, ## the added code panel = function(...){ panel.dotplot(x = temp$posi, y = temp$from, col ="green", cex=1.6) panel.dotplot(x = (temp$posi+1), y = temp$to, col="black", cex=1.) panel.arrows(x0 = temp$posi, y0 = temp$from, x1 = temp$posi+1, y1 = temp$to, lwd=2, col="blue" ) })temp <- temp[1:3, ]xyplot(from ~ posi , type="p", col="black", data=temp, pch=16, xlim = c(0,7), drop.unused.levels = FALSE, ## the added code panel = function(...){ panel.dotplot(x = temp$posi, y = temp$from, col ="green", cex=1.6) panel.dotplot(x = (temp$posi+1), y = temp$to, col="black", cex=1.) panel.arrows(x0 = temp$posi, y0 = temp$from, x1 = temp$posi+1, y1 = temp$to, lwd=2, col="blue" ) })yielding the following pics:I think we have solved this question. 这篇关于如何在R中用莱迪思绘制线段或箭头？ （来自宽格式数据集）的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持！ 上岸，阿里云！