R语言如何给plot图添加灰色分面

大家好，我用plot函数画了简单的拟合曲线图，如图一。

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)

复制代码

我想给图添加类似ggplot的灰色条，结果不太理想。请问怎么才能将灰色条画在图的外面，文字居中呢？如图2所示。感谢大家

图一



图2

一定要用基础画图吗？用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

复制代码

owenqi 发表于 2021-5-18 11:33
一定要用基础画图吗？用ggplot可否？

感谢您的回复。ggplot的代码不利于我添加那条拟合曲线。那条loess线添加时涉及到排序问题。

你试试看这样？

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

复制代码

owenqi 发表于 2021-5-18 23:53
你试试看这样？

感谢您的回复。貌似是那么回事了。还需要再调整。不行了就用ggplot