2016-11-30 6 views
0

가 나는 dataframe이 facet_grid :다음과 같이

hp <- ggplot(df1, aes(x=DATE, y=Revenue)) + 
geom_bar(stat="identity") + 
facet_grid(`TYPE`~CATEGORY, scales = "free", space = "free") + 
scale_y_continuous(name="Revenue", labels = dollar) 
:

DATE<- as.Date(c('2016-11-17','2016-11-17','2016-11-17','2016-11-17', '2016-11-18', '2016-11-18', '2016-11-18','2016-11-18')) 

TEST<-c('test', 'test','test','test','test','test','test','test') 

TYPE<-c('type1', 'type1', 'type2', 'type2', 'type1', 'type1','type2', 'type2') 

CATEGORY<-c('A', 'B','A', 'B','A', 'B','A', 'B') 

Revenue<-c(1000, 2000, 3000, 4000, 5000, 6000, 7000, 8000) 

df1<-data.frame(DATE, TEST, TYPE, CATEGORY, Revenue) 

df1 
     DATE TEST TYPE CATEGORY Revenue 
1 2016-11-17 test type1  A 1000 
2 2016-11-17 test type1  B 2000 
3 2016-11-17 test type2  A 3000 
4 2016-11-17 test type2  B 4000 
5 2016-11-18 test type1  A 5000 
6 2016-11-18 test type1  B 6000 
7 2016-11-18 test type2  A 7000 
8 2016-11-18 test type2  B 8000 

을 그리고 나는 facet_grid을하기 위해 ggplot (ggplotly)와 plotly 기능을 사용할 때, 그것은 다음과 같습니다

enter image description here

은 어떻게 금액으로 수익을 표시하려면이의 호버 섹션을 변경합니까? 또한 좋은 플러스는 막대의 채색을 변경하여 DATE 변수를 나타내는 방법입니다.

수익이 달러 금액으로 표시되도록 호버 섹션을 변경해야하지만 가장 중요합니다.

도움이 될 것입니다. 감사합니다. 나는 그것이 호버 텍스트를 제거 fill 매개 변수를 추가 한 후

+0

ggplotly (hp)가 작동해야합니다. 음원을 다운로드하셨습니까? 그리고 fill = DATE를 시도했지만, 불행히도 @ KiprasKančys는 작동하지 않습니다. –

답변

1

난 단지 몇 가지 이유에 대한 착색에 관한

df1$Revenue2 <- df1$Revenue 
df1$Revenue <- paste0(df1$Revenue2, '$') 

hp <- ggplot(df1, aes(x=DATE, y=Revenue2, label = Revenue)) + 
    geom_bar(stat="identity") + 
    facet_grid(`TYPE`~CATEGORY, scales = "free", space = "free") + 
    scale_y_continuous(name="Revenue") + 
    theme(legend.position="none") 

ggplotly(hp, tooltip = c("x", "label")) 

주변의 더러운 일을 제안 할 수 있습니다. 이상합니다.

+0

당신이 준 개념은 제가 끝까지 만들었던 것입니다. 이걸로 더 깨끗한 것으로 보이게했습니다.'df1 $ Revenue <- dollar (df1 $ Revenue2)'감사합니다! –