R : sjp.glmer x 축 lim, 백분율에서 십진수로 y 축 레이블 변경, 신뢰 밴드 색

Question

잠시 동안 R에서 sjPlot 패키지를 사용 해왔고 완전히 즐기고 있습니다. 최근에 그러나, 나는 나 자신을 생각할 수없는 몇 가지 문제를 겪었다.

(1) sjp.glmer (fe.prob)를 사용하면 x 축 레이블/간격이 플롯 된 고정 계수에서 파생 된 것으로 보입니다. 나는 'axis.lim'을 사용하여 y 축 한계를 변경할 수 있지만, 나는 x 축 한계를 변경하려고 애쓴다.

(2) 마지막 업데이트 이후 (10.1.17 생각합니다), 색상 체계가 약간 변경되었습니다. 그 결과 나는 내 신뢰 밴드를 간신히 볼 수 있습니다. 이론적으로 나는 배경을 좀더 쉽게 볼 수 있도록 바꿀 수있다. 그러나 내가 찾고있는 것은 신뢰 밴드의 실제 색상을 변경하는 것입니다. 나는이 하나가 sjp.setTheme을 사용하여 바뀔 수 있다고 생각하지만 나는 단지 어떻게 알아낼 수 없다.

(3) 또한 마지막 업데이트 이후로 "fe.prob"유형의 sjp.glmer에 대한 y 축은 십진수 (0에서 1)보다는 백분율 (1 %에서 100 %)로 표시됩니다). 어떤 힌트를 어떻게 십진법으로 다시 바꿀 수 있습니까? 다음은

sjp.glmer(Model, 
      type = "fe.prob", 
      vars = "Var1", 
      show.scatter = FALSE, 
      geom.colors = "Black", 
      width = 7.9, height = 6.8, 
      facet.grid = FALSE, 
      show.ci = TRUE, 
      axis.lim = c(0,1)) 

또한 내 Sjp.SetTheme 설정입니다 : 여기

는 예를 들어 라인이다.

나는이 문제를 보여 희망 : Example Figure

어떤 도움에 감사드립니다.

최저

, S는

sjp.setTheme(base = theme_grey(), 
      geom.outline.color = "black", 
      theme.font = 'Times', 
      geom.outline.size = 1, 
      geom.label.size = 2, 
      geom.label.color = "black", 
      title.color = "black", 
      title.size = 1.0, 
      axis.title.size = 1.0, 
      axis.title.color = "black", 
      axis.angle.x = 0, 
      axis.textsize.x = 1.0, 
      axis.textsize.y = 1.0, 
      axis.textcolor = "black") 

Answer 1

귀하의 요청 문제는 직접 sjp.glmer을 통해 약간 변형 될 수 없다 - 그러나 더 조작에 대한 반환 ggplot 객체를 사용할 수 있습니다.

library(sjPlot) 
library(lme4) 
library(ggplot2) 
library(sjmisc) 

# create binary response 
sleepstudy$Reaction.dicho <- dicho(sleepstudy$Reaction, dich.by = "median") 
# fit model 
fit <- glmer(Reaction.dicho ~ Days + (Days | Subject), 
      data = sleepstudy, family = binomial("logit")) 

p <- sjp.glmer(fit, type = "fe.prob", vars = "Days", 
       show.scatter = FALSE, geom.colors = "Black", 
       facet.grid = FALSE, show.ci = TRUE) 

# get first plot of all created plots (in this case, just one plot) 
# and change x-axis-limits and use another metric on y-scale 
p$plot.list[[1]] + xlim(0, 4) + scale_y_continuous(limits = c(0, 1)) 

아직도, 신뢰 밴드는 매우 높은, 투명성의,하지만 난 stat_smooth의 알파 레벨을 변경하는 방법을 아주 확실하지 않다. 해결책을 찾아 보겠습니다 ...