>

다음 줄거리가 있습니다.

ggplot(foo, aes(x=value, y=meanAcc, colour=ID)) + 
  geom_point(size=0.5) + 
  geom_smooth(method = "lm",se=FALSE) +
  theme(strip.background=element_rect(color="white", fill="white"),
        axis.title.x =element_blank(),
        axis.title.y =element_text(margin = margin(t = 2, r = 20, b = 0, l = 0),size = 16),
        axis.text.x = element_text(angle = 0, hjust = 0.5,size = 14),
        axis.text.y = element_text(angle = 0, hjust = 0.5,size = 14),
        strip.text.x = element_text(size = 13),
        strip.text.y = element_text(size = 13),
        axis.line = element_blank(),
        panel.background = element_rect(fill = NA,color = "black"),
        panel.grid.major= element_blank(),
        panel.grid.minor = element_blank(),
        legend.text=element_text(size=12),
        legend.title = element_text(size=12),
        legend.key=element_blank()) + 
  facet_wrap(.~variable, scales = "free_x") +
  labs(y=expression(Hourly~Acoustic~activity~(m.s^{-2}))) +
  guides(color=guide_legend(override.aes=list(fill=NA)))

X 축 레이블이 맨 위가 아닌 맨 아래에 나타납니다. 어떻게 바꿀 수 있습니까?

또한 X 축에 대한 다른 유형의 선을 사용하여 플롯 사이의 한계를 표시하려고했습니다. 며칠 전 나는 줄거리가 튀어 나와 줄거리를 나타내는 선을 보았다. 또한 x 축 라인의 유형을 변경하는 방법을 아는 사람이 있습니까?

  • 답변 # 1

    관련 옵션은 strip.position = "bottom" 내부 랩 strip.placement = "outside" 내부 테마. 또한 필요한 경우 랩 내부의 패싯 이름을 바꿀 수 있습니다. 아래 코드를 참조하십시오.

    d <- read.table(text = 
                      "Grp     Var    Col1  Col2    Col3
                    grp_1   8      46.8  50.0   50.6
                    grp_1   16     95.6  47.4   48.0
                    grp_1   24     45.1  45.6   46.4
                    grp_1   32     68.8  44.3   58.2
                    grp_1   40     44.6  52.2   44.3
                    grp_1   48     86.5  42.2   68.6
                    grp_2   40     63.2  95.6   63.0
                    grp_2   60     66.7  67.5   65.6
                    grp_2   80     69.6  70.7   67.9
                    grp_2   100    71.9  73.4   69.3
                    grp_2   120    73.8  75.7   48.0
                    grp_3   500    51.9  50.0   50.5
                    grp_3   1000   65.5  53.0   53.4
                    grp_3   5000   61.2  99.0   59.9
                    grp_3   10000  80.1  63.0   62.8
                    grp_3   30000  25.9  33.8   14.2
                    ", header=T
    )
    library(ggplot2)
    library(data.table)
    d <- setDT(d)
    dd <- melt(d, id.vars = c("Grp", "Var"), measure.vars = patterns(col="Col") )
    ggplot(dd, aes(Var, value, color=variable)) + 
      geom_point() +
      facet_wrap(~Grp,
                 scales = "free",
                 # comment out next line if renaming facets is not necessary
                 labeller = as_labeller(c(grp_1 = "Step 1", grp_2 = "Step 2", grp_3 = "Step 3")  ),
                 strip.position = "bottom") +
      xlab(NULL) +
      theme(strip.background = element_blank(),
    
    

    <시간>

    )

  • 이전 python - 내부 클래스를 가진 카운터 인스턴스 메소드
  • 다음 typescript - 공용체 유형에서 레코드 형 유형 작성