R中coord_极坐标图不连续性的消除

这是我的密码

library(ggplot2)
library(reshape2)

t <- read.csv("tweetcount.csv")
t.melt <- melt(t, id=c("Day"))
t.melt$addon=((t.melt$value)/25)+0.5


p = ggplot(data=t.melt, aes(x=Day, y=addon, group=variable))
p + geom_area(aes(color=variable, fill=variable)) + coord_polar(theta = "x")

当我试着去画的时候，结果是这样的

有没有办法消除绘图中的不连续性/截止点？（即，我希望23:00连接到00:00）

谢谢

我会将您的

“23:00”

行复制为没有标签的虚拟数据（

”

）。然后在轴上使用

expand=c（0，0）

t.melt$Day <- as.character(t.melt$Day)
t.melt.dummy <- subset(t.melt, Day == "23:00")
t.melt.dummy$Day <- " "
t.melt <- rbind(t.melt, t.melt.dummy)
t.melt$Day <- factor(t.melt$Day)


p = ggplot(data=t.melt, aes(x=Day, y=addon, group=variable))
p + geom_area(aes(color=variable, fill=variable)) +
    scale_x_discrete(expand = c(0, 0)) + 
    coord_polar(theta = "x")

---

t.melt$Day如果您不想堆叠区域，可以使用
geom_polygon
t.melt$Day <- as.character(t.melt$Day)
t.melt.dummy <- subset(t.melt, Day == "23:00")
t.melt.dummy$Day <- " "
t.melt <- rbind(t.melt, t.melt.dummy)
t.melt$Day <- factor(t.melt$Day)


p = ggplot(data=t.melt, aes(x=Day, y=addon, group=variable))
p + geom_area(aes(color=variable, fill=variable)) +
    scale_x_discrete(expand = c(0, 0)) + 
    coord_polar(theta = "x")