在极坐标系下使用geom_segment函数

Question

在极坐标系下使用geom_segment函数

4

我想做类似于这个帖子中的答案，但是使用geom_segment()代替geom_path()，因为现在我想要在我的线上添加箭头。

设置：

example <- data.frame(r=c(5,4,3),theta=c(0.9,1.1,0.6))

is.linear.polar2 <- function(x) TRUE
coord_polar2 <- coord_polar(theta="y", start = 3/2*pi, direction=-1) 
class(coord_polar2) <- c("polar2", class(coord_polar2))

myplot <- ggplot(example, aes(r, theta)) + geom_point(size=3.5) +
  scale_x_continuous(breaks=seq(0,max(example$r)), lim=c(0, max(example$r))) + 
  scale_y_continuous(breaks=round(seq(0, 2*pi, by=pi/4),2), expand=c(0,0), lim=c(0,2*pi)) +
  geom_text(aes(label=rownames(example)), size=4.4, hjust=0.5, vjust=-1)

myplot + coord_polar2 + geom_path()

enter image description here

我希望有一个类似这样的图表，但是箭头要指向序列中下一个点。

这是我的尝试：

myplot + coord_polar2 + 
geom_segment(data=example,aes(x=r, y=theta, xend=c(tail(r, n=-1), NA), 
                              yend=c(tail(theta, n=-1), NA)),
             arrow=arrow(length=unit(0.3,"cm"), type="closed"))

enter image description here

myplot + coord_polar(theta="y", start = 3/2*pi, direction=-1) + 
geom_segment(data=example,aes(x=r, y=theta, xend=c(tail(r, n=-1), NA), 
                              yend=c(tail(theta, n=-1), NA)),
             arrow=arrow(length=unit(0.3,"cm"), type="closed"))

enter image description here

- Maria Reyes

1个回答

网页内容由stack overflow 提供, 点击上面的

可以查看英文原文，
原文链接

- tonytonov · Accepted Answer

嗯，这个解决方案比你第一个问题的答案还要更加“hackier”。我不是使用geom_segment而是使用geom_path，但这只会产生最后一个箭头，所以我们需要添加group美学来逐个连接线段。这意味着我们原始的数据框需要稍作修改：

tweak_data <- function(df) 
{
  if (nrow(df) == 1) return(df)
  idx_x2 <- c(1, rep(2:(nrow(df) - 1), each=2), nrow(df))
  gr <- rep(seq.int(nrow(df) - 1), each=2)
  df_res <- data.frame(r = df$r[idx_x2], theta = df$theta[idx_x2], 
                       label = rownames(df)[idx_x2], group = gr)
  df_res
}

example_tw <- tweak_data(example)
myplot2 <- ggplot(example2, aes(r, theta)) + geom_point(size=3.5) +
  scale_x_continuous(breaks=seq(0,max(example$r)), lim=c(0, max(example$r))) + 
  scale_y_continuous(breaks=round(seq(0, 2*pi, by=pi/4), 2), 
                     expand=c(0, 0), lim=c(0, 2*pi)) +
  geom_text(aes(label=label), size=4.4, hjust=0.5, vjust=-1)
myplot2 + coord_polar2 + 
  geom_path(aes(group=group), arrow=arrow(length=unit(0.3,"cm"), type="closed"))

enter image description here