ggplotly의 상호 작용 및 형식 관련 문제

Question

ggplotly에서 몇 가지 시도를하기 위해 다른 질문을 강요당했습니다. 나는 그 질문의 코드를 사용했다. 나는 그 내용보다 더 많은 결과물에 관심이있다. 출력 형식 및 항목이 작동하지 않는 문제가 있습니다.

나는 ggplot에 "간단한"음모가 있으며 ggplotly로 감싸고 싶습니다. 필 =을 사용하여 막대 색상을 지정하고 막대를 사용하지 않으면 비활성이 사라집니다.

library(ggplot2) 

library(plotly) 
cnt <-c(2,1) 
date <- c("2016-01-05 13:53:43","2016-01-15 09:33:40") 
xx.df <- data.frame(date,cnt) 
xx.df$datep <- as.Date(xx.df$date,format="%Y-%m-%d %H:%M:%S") 
xx.df$datea <- as.character(xx.df$date,format="%Y-%m-%d %H:%M:%S") 
xx.df$status <- as.factor(c("Success","Fail")) 

pa <- ggplot(xx.df,aes(x=datea,y=cnt,fill=status)) 
pa <- pa+geom_bar(stat="identity") 
print(ggplotly(pa)) 

1) 전설을 사용하여 시리즈를 지우려면 클릭 할 수 없습니다. 두 개의 막대가 모두 사라집니다. 2) 마우스를 가리 키지 않았습니다.

내가 채울 삭제

는 = 나는 전설없는 회색 그래프를 얻을. 그러나 마우스 호버는

pag <- ggplot(xx.df,aes(x=datea,y=cnt)) 

pag <- pag+geom_bar(stat="identity") 

print(ggplotly(pag)) 

내가 채우기 =을 사용하는 방법에 문제가 있습니까 .. 작동? 나는 ggplot2, plotly 4.5.6 2.2.1

감사합니다,

리처드

Answer 1

ggplotly 심지어 plotly 각 그룹에 대한 두 가지 결과를 필요로하는 문제가 발생한 것 같습니다를 사용하고 있습니다. 그룹에 대해 단 하나의 요소 일 때. 이 경우 "실패". 마우스를 올리면 실패합니다.

library(ggplot2) 

library(plotly) 
cnt <-c(2,1,3) 
date <- c("2016-01-05 13:53:43","2016-01-15 09:33:40","2016-01-18 13:53:43") 
xx.df <- data.frame(date,cnt) 
xx.df$datep <- as.Date(xx.df$date,format="%Y-%m-%d %H:%M:%S") 
xx.df$datea <- as.character(xx.df$date,format="%Y-%m-%d %H:%M:%S") 
xx.df$status <- as.factor(c("Success","Fail","Success")) 

pa <- ggplot(xx.df,aes(x=datea,y=cnt,fill=status)) 
pa <- pa+geom_bar(stat="identity") 
print(ggplotly(pa)) 

각 그룹에 대해 적어도 2를 추가하고 모든 작품 .. 모든 막대가 마우스를 가져가 .. 라이브러리 (ggplot2)

library(plotly) 
cnt <-c(2,1,3,4) 
date <- c("2016-01-05 13:53:43","2016-01-15 09:33:40","2016-01-18 13:53:43","2016-01-25 13:53:43") 
xx.df <- data.frame(date,cnt) 
xx.df$datep <- as.Date(xx.df$date,format="%Y-%m-%d %H:%M:%S") 
xx.df$datea <- as.character(xx.df$date,format="%Y-%m-%d %H:%M:%S") 
xx.df$status <- as.factor(c("Success","Fail","Success","Fail")) 

pa <- ggplot(xx.df,aes(x=datea,y=cnt,fill=status)) 
pa <- pa+geom_bar(stat="identity") 
print(ggplotly(pa))