使用g使用ggplots或其他替代包修改极坐标图

Question

我正在尝试使用以下数据创建漂亮的(!)极坐标图.

gr1 <- c(0, 5, 15, 20, 30, 40)
gr3 <- c(0, 5, 10, 25, 40, 60, 80)
gr2 <- c(0, 15, 25, 30, 40)

df2<- data.frame (pos = c(gr1, gr2, gr3), group = c(rep(1, length(gr1)),
 rep(2, length(gr1)), rep(2, length(gr1))))



inner circle segment to mark
                   first tier, group 1, between 15, 20
                               group 3, between 5, 10
                                        between  40 to 60 
                   second tier, group 1, between 15, 20
                               group 3, between 5, 10
                                        between 10, 25
                                        between  40 to 60 

两个pos之间的间隔之间的角度.

在我的真实数据中有两个以上的层次来绘制.

标记可以是段或其他标记,例如填充颜色.

如果可能,不同组可以进行颜色编码

替代圆段标记(首选)

我用ggplot2试了一下.

cx <- ggplot(df2, aes(x = pos, group = group) +   geom_bar(width = 1, colour = "black"))
Error in aes(x = pos, group = group) + geom_bar(width = 1, colour = "black") :
  non-numeric argument to binary operator
cx + coord_polar()

更多试验:

df2$cpos <- cumsum (df2$pos)
cx <- ggplot(df2, aes(x = cpos, group = group) +   geom_bar(width = 1, colour = "black"))

编辑1:

我想解释这个问题可能很糟糕.这是图解释.

pos(位置)是连续的比例,极性的角度应该取决于位置的值.一组完成后它将重新启动.我为这个技巧做了一个伎俩(我可能错了).

编辑2:

以下答案为这个问题提供了更多的想法.这是改进版本,但颜色管理不起作用.

df2$cpos <- cumsum (df2$pos)
df2$y <- rep(3, length (df2$cpos))
cx <- ggplot(df2, aes(y = y, x = cpos))
cx + geom_bar(aes(stat = "identity",fill="yellow", colour = "yellow" )) + 
geom_point(aes(color = factor(group)), pch = 18, size = 2) + coord_polar() +
 scale_fill_manual(values=c("#CC6666", "#9999CC", "#66CC99"))+ ylim(0,3)

当我尝试设置ylim(2,3)时,它们看起来像是不能正常工作的段.

Error in data$y[data$y == -Inf] <- range$y.range[1] : 
  replacement has length zero

Answer 1

我很难理解你想做什么(条形图计数频率,你可能知道这一点).但是,这是一种将组分配为颜色的方法:

gr1 <- c(0, 5, 15, 20, 30, 40)
gr3 <- c(0, 5, 10, 25, 40, 60, 80)
gr2 <- c(0, 15, 25, 30, 40)

df2<- data.frame (pos = c(gr1, gr2, gr3), group = c(rep(1, length(gr1)),
 rep(2, length(gr2)), rep(3, length(gr3))))
df2$cpos <- cumsum (df2$pos)

cx <- ggplot(df2, aes(fill = factor(group), x = cpos))

cx + geom_bar(width = 1, colour = "black", position = "dodge")  + coord_polar()

如果你想把pos作为频率,请使用melt()函数reshape2.

如果你想在你的例子中使用点,可以采用以下方法吗？

cx <- ggplot(df2, aes(y = group, x = cpos))

cx + geom_point(aes(color = factor(group))) + coord_polar() + ylim(0,3)

无论如何,你看到了模式？使用x轴作为角度绘制具有法线坐标的图,使用y轴作为距中间的距离,并将其转换为极坐标.

回答Edit2

我仍然想知道你是否可以制作一个更有意义的情节,但也许你有理由这样做.这是一个更接近你的例子的情节.它并不完美.也许大师们明天到达办公室后会给你一个更好的建议.平均而言,您可以从此胎面的链接中查找更多规格.

library(ggplot2)

gr1 <- c(0, 5, 15, 20, 30, 40)
gr3 <- c(0, 5, 10, 25, 40, 60, 80)
gr2 <- c(0, 15, 25, 30, 40)

df2<- data.frame (pos = c(gr1, gr2, gr3), group = c(rep(1, length(gr1)),
 rep(2, length(gr2)), rep(3, length(gr3))), y  = c(rep(1, length(gr1)),
 rep(2, length(gr1)), rep(2, length(gr1))))

df2$cpos <- cumsum (df2$pos)

cx <- ggplot(df2, aes(y = y, x = cpos))
cx + geom_point(aes(color = factor(group)), size = 4) + geom_line(aes(x = c(0,500), y = c(1)), color = "yellow") + 
geom_line(aes(x = c(0,500), y = c(2)), color = "blue") + scale_y_continuous(limits=c(0,2), breaks = c(0,1,2)) +
scale_x_continuous(labels = df2$pos, breaks = df2$cpos, limits = c(0,500)) + coord_polar() +
opts(panel.grid.major = theme_line(colour = "grey"), 
panel.grid.minor = theme_line(colour = "grey", linetype = "dashed"), 
panel.background = theme_rect(colour = "white"))