R語言如何給plot圖添加灰色分面

大家好，我用plot函數(shù)畫了簡(jiǎn)單的擬合曲線圖，如圖一。

1. plot(xlab=NA,ylab=NA,x=r_h,y=r_d,pch=20,cex=0.8)
   
2. mtext(c("Relative height","Relative diameter"), side=c(1,2,3), line=c(2.2,2.2),outer=FALSE)
   
3. legend("top",legend="圖一",bty="o", bg="gray",text.width = 1.03)

復(fù)制代碼

我想給圖添加類似ggplot的灰色條，結(jié)果不太理想。請(qǐng)問怎么才能將灰色條畫在圖的外面，文字居中呢？如圖2所示。感謝大家

圖一



圖2

一定要用基礎(chǔ)畫圖嗎？用ggplot可否？

1. library(ggplot2)
   
2. library(gridExtra)
   
3. library(grid)
   
4. 
   
5. # Create dummy variable to facet on: this name will appear in the strip
   
6. mtcars$tempvar <- "Market Updates"
   
7. 
   
8. # Basic plot
   
9. # Manually added legend to match your expected result
   
10. p <- ggplot(mtcars, aes(mpg, wt)) +
    
11.   geom_line() + labs(x = "Date", y = "High") + facet_grid(. ~ tempvar) +
    
12.   theme(strip.background = element_rect(fill="gray"),
    
13.         strip.text = element_text(size=15))
    
14. p

復(fù)制代碼

owenqi 發(fā)表于 2021-5-18 11:33
一定要用基礎(chǔ)畫圖嗎？用ggplot可否？

感謝您的回復(fù)。ggplot的代碼不利于我添加那條擬合曲線。那條loess線添加時(shí)涉及到排序問題。

你試試看這樣？

1. # Random data to plot:
   
2. A <- data.frame(x=rnorm(100, 20, 2), y=rnorm(100, 20, 2))
   
3. par(mar=c(5.1, 4.1, 4.1, 4.1), xpd=TRUE)
   
4. plot(y ~ x, A, pch=1)
   
5. legend("top", inset=c(0, -.155), legend = '', title = '圖一', bg="gray",
   
6.        text.width = 10, bty = 'o')

復(fù)制代碼

owenqi 發(fā)表于 2021-5-18 23:53
你試試看這樣？

感謝您的回復(fù)。貌似是那么回事了。還需要再調(diào)整。不行了就用ggplot