gganimate를 사용하여 부분적인 차트가 아닌 전체 원형 차트를 얻는 방법

Question

gganimate 및 ggplot으로 애니메이션 원형 차트를 수행 할 때 문제가 있습니다.

저는 매년 정상적인 파이를 갖고 싶지만 제 산출물은 완전히 다릅니다.

당신은 mtcars 사용하여 코드의 예를 볼 수 있습니다 다음 frame는 하나의 레벨을 가질 때

그것은 잘 작동 :

library(ggplot2) 
library(gganimate) 


#Some Data 

df<-aggregate(mtcars$mpg, list(mtcars$cyl,mtcars$carb), sum) 
colnames(df)<-c("X","Y","Z") 

bp<- ggplot(df, aes(x="", y=Z, fill=X, frame=Y))+ 
geom_bar(width = 1, stat = "identity") + coord_polar("y", start=0) 

gganimate(pie, "output.gif") 

이 출력입니다

문제에 대한 아이디어가 있습니까? 미리 감사드립니다! 그리고 새해 복 많이 받아!

Answer 1

ggplot 코드는 모든 행에 대한 섹션이 df 인 단일 스택 막대 차트를 만듭니다. coord_polar을 사용하면 데이터 프레임의 각 행에 대해 쐐기가있는 단일 원형 차트가됩니다. 그런 다음 gg_animate을 사용하면 각 프레임에는 주어진 레벨 인 Y에 해당하는 쐐기 만 포함됩니다. 그래서 매번 전체 원형 차트의 일부분 만 얻게됩니다.

Y의 각 레벨에 대해 전체 원형을 원하면 각 레벨에 대해 Y의 별도 파이 차트를 만든 다음 해당 파이를 GIF에 결합하는 것이 좋습니다. 여기에 귀하의 실제 데이터와 유사하다 (I 희망) 일부 가짜 데이터 예제가 다음 GIF에서

library(animation) 

# Fake data 
set.seed(40) 
df = data.frame(Year = rep(2010:2015, 3), 
       disease = rep(c("Cardiovascular","Neoplasms","Others"), each=6), 
       count=c(sapply(c(1,1.5,2), function(i) cumsum(c(1000*i, sample((-200*i):(200*i),5)))))) 

saveGIF({ 
    for (i in unique(df$Year)) { 
    p = ggplot(df[df$Year==i,], aes(x="", y=count, fill=disease, frame=Year))+ 
     geom_bar(width = 1, stat = "identity") + 
     facet_grid(~Year) + 
     coord_polar("y", start=0) 
    print(p) 
    } 
}, movie.name="test1.gif") 

파이는 위의 모든 같은 크기입니다.

나는 잠시 editorialize 경우

library(dplyr) 

df = df %>% group_by(Year) %>% 
    mutate(cp1 = c(0, head(cumsum(count), -1)), 
     cp2 = cumsum(count)) 

saveGIF({ 
    for (i in unique(df$Year)) { 
    p = ggplot(df %>% filter(Year==i), aes(fill=disease)) + 
     geom_rect(aes(xmin=0, xmax=max(cp2), ymin=cp1, ymax=cp2)) + 
     facet_grid(~Year) + 
     coord_polar("y", start=0) + 
     scale_x_continuous(limits=c(0,max(df$cp2))) 
    print(p) 
    } 
}, movie.name="test2.gif") 

, 애니메이션, 비록 :하지만 당신은 또한 ( this SO answer에서 적응 코드) Year의 각 수준에 대한 count의 합을 기준으로 파이의 크기를 변경할 수 있습니다 (그러나 파이 차트는 붕괴되지 않습니다. 그래서 많은 양의 원형 차트를 애니 메이팅하면 상해에 대한 모욕이 생깁니다) 데이터는 평범한 오래된 정적 선 그래프로 이해하기가 더 쉬울 것입니다.

ggplot(df, aes(x=Year, y=count, colour=disease)) + 
    geom_line() + geom_point() + 
    scale_y_continuous(limits=c(0, max(df$count))) 

아니면이 : 예를 들어

ggplot(df, aes(x=Year, y=count, colour=disease)) + 
    geom_line() + geom_point(show.legend=FALSE) + 
    geom_line(data=df %>% group_by(Year) %>% mutate(count=sum(count)), 
      aes(x=Year, y=count, colour="All"), lwd=1) + 
    scale_y_continuous(limits=c(0, df %>% group_by(Year) %>% 
           summarise(count=sum(count)) %>% max(.$count))) + 
    scale_colour_manual(values=c("black", hcl(seq(15,275,length=4)[1:3],100,65)))