ggplot2 (कोई लेबल के साथ) x अक्ष में मामूली टिक अंक जोड़ना

Question

नीचे एक साजिश का उदाहरण कोड है जो लगभग वही करता है जो मैं चाहता हूं। एकमात्र चीज जो मैं जोड़ना चाहता हूं वह नीचे वर्णित मामूली_ब्रेक्स के अनुसार एक्स अक्ष (प्रमुख आकार के समान आकार) पर टिक अंक है।

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())