R의 facet_grid로 plotly하고 ggplot : 범위 값 대신 ticktext 값을 사용하는 yaxis 레이블을 얻는 방법?

Question

음모와 함께 ggplot2 패싯을 사용하고 싶지만 ticktext 대신 yaxis 범위 값을 나타내는 y 축 레이블 문제가 발생합니다. 플롯 객체 (plotly_build 사용)에서 올바르게 렌더링되도록 변경할 수있는 것이 있습니까? ggplots의 반짝이는 응용 프로그램에서 호버 기능을 활용하려고합니다. 플롯과 관련된 패싯과 관련된 몇 가지 다른 질문을 찾았지만 대부분 사용자가 ggplot 대신 플롯 하위 플롯을 사용하도록 리디렉션하는 것으로 나타났습니다. 내 경우 패싯 데이터가 사라지지 않고, yaxis가 깨졌습니다.

참조 질문 : Error plotting chart with facet_wrap and scales = "free" in plotly

가 측면에 문제를 보여줍니다 mtcars 데이터 세트와 아래 예제 코드를 참조하십시오. ggplot 객체를 보면 레이블이 정확합니다.

mtcars 데이터 세트를 몇 가지 모델로 줄이는 것과 같이 서브 플로트 수를 줄이면 문제가 해결 된 것처럼 보입니다. 왜 서브 도표가 yaxis 눈금 레이블에 영향을 미칩니 까? 또한 첫 번째 y 축이 아닌 한 1 개의 항목 만있는 패싯/그룹처럼 보입니다. 두 개 이상의 항목이있는 패싯 (적어도이 예제에서는)은 y 축을 올바르게 플로팅합니다. 플롯 객체 (plotly_build 사용)에서 올바르게 렌더링되도록 변경할 수있는 것이 있습니까? ggplots의 반짝이는 응용 프로그램에서 호버 기능을 활용하려고합니다.

library(plotly) 
library(ggplot2) 
library(data.table) 
library(datasets) 

#add fake model for use in facet 
dt<-data.table(mtcars) 
dt[,car.id:=rownames(mtcars)] 
dt[,model:=substr(car.id,1,regexpr(" ",car.id)-1)][model=="",model:=car.id] 

#Optional toggle: pick a few models and issue seems to go away 
#Use data=dt[model %in% c("Mazda","Merc","Toyota","Honda","Hornet")] 
ggplot.test<-ggplot(dt,aes(mpg,car.id))+geom_point()+facet_grid(model~.,scales="free_y",space="free",drop=TRUE) 

#check ggplot in Plots 
ggplot.test 

#broken ggplotly object in Viewer 
ggplotly(ggplot.test) 

ggplot 플롯 : y 축 레이블을 끊었다 plotly에서

같은 줄거리 :

Answer 1

이것은 ggplotPlotly로 변환에서 몇 가지 이상한 유물처럼 보인다. 이미 이미 올바르게 표시하기 때문에 어쨌든, 당신이해야 할 일을 모두 ticktext에 빈 문자열을 추가하고 1

for (i in 2:22) { 
    tick_l <- length(p[['x']][['layout']][[paste('yaxis', i, sep='')]][['ticktext']]) + 1 
    p[['x']][['layout']][[paste('yaxis', i, sep='')]][['tickvals']] <- seq(1, tick_l) 
    p[['x']][['layout']][[paste('yaxis', i, sep='')]][['ticktext']][[tick_l]] <- '' 
} 

첫 번째 y 축 레이아웃 나머지는 동일하지만 고정이 필요하지 않습니다에 의해 tickvals을 확장하는 것입니다 . 전체 플롯을 고정

---

---

좀 더 조정이 필요합니다. 가능한 한 제네릭을 만들려고했으나 아마 각 변환마다 다른 변환이 일어날 것입니다.

library(plotly) 
library(ggplot2) 
library(data.table) 
library(datasets)  

#add fake model for use in facet 
dt<-data.table(mtcars) 
dt[,car.id:=rownames(mtcars)] 
dt[,model:=substr(car.id,1,regexpr(" ",car.id)-1)][model=="",model:=car.id] 

#Optional toggle: pick a few models and issue seems to go away 
#Use data=dt[model %in% c("Mazda","Merc","Toyota","Honda","Hornet")] 
ggplot.test<-ggplot(dt,aes(mpg,car.id))+geom_point()+facet_grid(model~.,scales="free_y",space="free",drop=TRUE) 

p <- ggplotly(ggplot.test) 
len <- length(unique(dt$model)) 

total <- 1 
for (i in 2:len) { 
    total <- total + length(p[['x']][['layout']][[paste('yaxis', i, sep='')]][['ticktext']]) 
} 

spacer <- 0.01 #space between the horizontal plots 
total_length = total + len * spacer 
end <- 1 
start <- 1 

for (i in c('', seq(2, len))) { 
    tick_l <- length(p[['x']][['layout']][[paste('yaxis', i, sep='')]][['ticktext']]) + 1 

    #fix the y-axis 
    p[['x']][['layout']][[paste('yaxis', i, sep='')]][['tickvals']] <- seq(1, tick_l) 
    p[['x']][['layout']][[paste('yaxis', i, sep='')]][['ticktext']][[tick_l]] <- '' 

    end <- start - spacer 
    start <- start - (tick_l - 1)/total_length 
    v <- c(start, end) 
    #fix the size 
    p[['x']][['layout']][[paste('yaxis', i, sep='')]]$domain <- v 
} 

#fix the first entry which has a different name than the rest 
p[['x']][['layout']][['annotations']][[3]][['y']] <- (p[['x']][['layout']][['yaxis']]$domain[2] + p[['x']][['layout']][['yaxis']]$domain[1]) /2 
p[['x']][['layout']][['shapes']][[2]][['y0']] <- p[['x']][['layout']][['yaxis']]$domain[1] 
p[['x']][['layout']][['shapes']][[2]][['y1']] <- p[['x']][['layout']][['yaxis']]$domain[2] 

#fix the annotations 
for (i in 3:len + 1) { 
    #fix the y position 
    p[['x']][['layout']][['annotations']][[i]][['y']] <- (p[['x']][['layout']][[paste('yaxis', i - 2, sep='')]]$domain[1] + p[['x']][['layout']][[paste('yaxis', i - 2, sep='')]]$domain[2]) /2 
    #trim the text 
    p[['x']][['layout']][['annotations']][[i]][['text']] <- substr(p[['x']][['layout']][['annotations']][[i]][['text']], 1, length(p[['x']][['layout']][[paste('yaxis', i - 2, sep='')]][['ticktext']]) * 3 - 3) 
} 

#fix the rectangle shapes in the background 
for (i in seq(0,(len - 2) * 2, 2)) { 
    p[['x']][['layout']][['shapes']][[i+4]][['y0']] <- p[['x']][['layout']][[paste('yaxis', i /2 + 2, sep='')]]$domain[1] 
    p[['x']][['layout']][['shapes']][[i+4]][['y1']] <- p[['x']][['layout']][[paste('yaxis', i /2 + 2, sep='')]]$domain[2] 
} 
p