coord_polar 플롯에서 불연속성 제거 R

Question

다음은 제 코드입니다. 여기

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") 

은 t 데이터,

 Day Monday Tuesday Wednesday Thursday Friday Saturday Sunday 
1 06:00  3  1   5  2  3  3  5 
2 07:00  5  1   2  2  1  7  21 
3 08:00  9  6   3  2  9  14  34 
4 09:00  7  8   8  1  1  1  26 
5 10:00  2  1  10  9  3  13  16 
6 11:00  6  6   8  4  1  31  35 
7 12:00  3  5  10  2  7  21  5 
8 13:00  10  10  10  2  7  12  28 
9 14:00  5  6   4  10  10  22  34 
10 15:00  9  1   5  5  5  26  45 
11 16:00  5  2   1  8  1  20  33 
12 17:00  2  2   8  5  3  13  25 
13 18:00  9  5  10  10  9  13  26 
14 19:00  2  3   4  6  5  7  27 
15 20:00  5  7   9  7  4  18  10 
16 21:00  7  3   8  2  5  3  3 
17 22:00  4  10   7  4  10  17  35 
18 23:00  5  7   8  5  5  3  15 
19 00:00  4  3   3  8  10  15  9 
20 01:00  3  8   1  9  5  8  7 
21 02:00  3  6   6  6  7  32  26 
22 03:00  3  8   4  6  2  0  7 
23 04:00  3  4   1  4  2  0  0 
24 05:00  2  0   1  0  0  1  0 

나는 그것을 음모 시도가이 같이 나온다

제거하는 방법이 있나요이다 플롯의 불연속/차단? (예 : 00:00에 23:00 연결하려는 경우)

고마워요!

Answer 1

고객님의 "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")