ggplot2의 x 축에 작은 눈금 표시 추가 (레이블 없음)

Question

다음은 내가 원하는 것을 거의 나타내는 플롯의 예제 코드입니다. 내가 추가하고자하는 것은 아래에 정의 된 minor_breaks에 따라 x 축 (주요 틱과 동일한 크기)의 눈금입니다. 사전에

df <- data.frame(x = c(1900,1950,2000), y = c(50,75,60)) 

p <- ggplot(df, aes(x=x, y=y)) 
    p + geom_line() + 
    scale_x_continuous(minor_breaks = seq(1900,2000,by=10), breaks = seq(1900,2000,by=50), limits = c(1900,2000), expand = c(0,0)) + 
    scale_y_continuous(breaks = c(20,40,60,80), limits = c(0,100)) + 
    theme(legend.position="none", panel.background = element_blank(), 
    axis.line = element_line(color='black'), panel.grid.minor = element_blank()) 

감사합니다, --JT

Answer 1

이것은 정확한 인스턴스에서 그것을 할 것입니다 :

이

scale_x_continuous(breaks= seq(1900,2000,by=10), 
        labels = c(1900, rep("",4), 1950, rep("",4), 2000), 
        limits = c(1900,2000), expand = c(0,0)) + 

여기 방탄이 아니라 빈 라벨을 삽입하기 위해 노력하는 기능입니다 시작 및 종료 메이저 레이블이 at 인수의 시작 및 중지 값과 정렬 될 때 :

insert_minor <- function(major_labs, n_minor) {labs <- 
           c(sapply(major_labs, function(x) c(x, rep("", 4)))) 
           labs[1:(length(labs)-n_minor)]} 

시험 :이 요청을 여러 번 본 적이 좋은 대답을 보지 못했다

p <- ggplot(df, aes(x=x, y=y)) 
    p + geom_line() + 
    scale_x_continuous(breaks= seq(1900,2000,by=10), 
        labels = insert_minor(seq(1900, 2000, by=50), 4), 
        limits = c(1900,2000), expand = c(0,0)) + 
    scale_y_continuous(breaks = c(20,40,60,80), limits = c(0,100)) + 
    theme(legend.position="none", panel.background = element_blank(), 
     axis.line = element_line(color='black'), panel.grid.minor = element_blank())