轨迹树

Question

我希望在R中绘制与此类似的内容。这可以通过ggplot或其他包来完成吗？

在以下博客中找到：

http://intelligenttradingtech.blogspot.com/2011/07/pattern-recognition-forward-boxplot.html

Answer 1

以下是使用ggplot2构建图表的方法。

我通过指定每行开始和结束位置的坐标来手动构建数据。显然，改进是使用算法自动化。由于这不是问题，我也没有试图解决这个问题。

创建数据：

arrowdata <- c(
  0, 0, 1, 0,
  1, 1, 2, 1,
  1, -1, 2, -1,
  2, 1.5, 3, 1.5,
  2, 0.5, 3, 0.5
)

linesdata <- c(
  1, 0, 1, 1,
  1, 0, 1, -1,
  2, 1, 2, 1.5,
  2, 1, 2, 0.5
)

labeldata <- data.frame(
  x = c(0.5, 1.5, 2.5),
  y = c(0, 1, 1.5),
  labels=c("Label 1", "Label2", "Label 3")
)

adat <- as.data.frame(matrix(arrowdata, ncol=4, byrow=TRUE))
ldat <- as.data.frame(matrix(linesdata, ncol=4, byrow=TRUE))

加载ggplot2和grid个包，然后绘制：

library(ggplot2)
library(grid) # For arrow() function
ggplot() + 
  geom_segment(
    data=adat, 
    aes(x=V1, y=V2, xend=V3, yend=V4),
    arrow=arrow(length = unit(0.05, "npc"), type="closed"),
    col="blue"
  ) +
  geom_segment(
    data=ldat, 
    aes(x=V1, y=V2, xend=V3, yend=V4),
    col="blue"
  ) +
  geom_text(data=labeldata, aes(x, y, label=labels), 
    size=8, vjust=-0.2, col="blue"
  ) +
  theme_bw() +
  opts(
    axis.text.x=theme_blank(),
    axis.text.y=theme_blank(),
    axis.ticks=theme_blank(),
    axis.title.x=theme_blank(),
    axis.title.y=theme_blank(),
    panel.grid.major=theme_blank(),
    panel.border=theme_blank()
  ) +
coord_cartesian(ylim=c(-1.5, 2)) # Create some additional space for labels

Answer 2

您可能会在http://addictedtor.free.fr/graphiques/找到一些内容。那里有各种各样的图形和图表。现在，使用基本plot和graphics::arrow函数编写一些代码很容易，这些函数将在顶点之间绘制线条。例如，

arrows(0,1,0,0) 
lines(c(1,1),c(-.5,.5)) 
arrows(1,2,.5,.5) 

等等。您是否需要根据数据调整分支大小或放置分支，或者这是一个纯粹的定性树？