请问一个函数图像如何让其沿着y轴对称

大家好，我要画如下的图，图中虚线是实测值，实线是模型的预测值的线，请问怎么在R语言中操作才能画出这种图呢？（即如何画左右对称的函数曲线）谢谢大家

给你个基础绘图版本，请参考

1. x = seq(0, 3, len=100)
   
2. y = dnorm(x)
   
3. #反转y，等价于反转x
   
4. x1 = -x
   
5. 
   
6. #设置图片边际
   
7. op = par(mar=c(0.2, 0.2, 0.2, 0.2), fg='white')
   
8. 
   
9. plot(1, type = 'n', xlim = c(-3.5, 3.5), ylim = c(-0.03, 0.45),
   
10.      yaxt='n', xaxt='n', xlab = '', ylab = '')
    
11. 
    
12. #绘制y轴
    
13. arrows(0,0,0,max(y)*1.1, angle = 45, length=0.1, col='blue', lty=1, lwd=2)
    
14. ytick = c(0, 0.1, 0.2, 0.3, 0.4)
    
15. segments(0,ytick,-0.05,ytick,lwd=2, col = 'blue')
    
16. text(-0.06, ytick[2:5], ytick[2:5], col = 'blue', font = 2, cex=0.75, pos=2)
    
17. #绘制x轴
    
18. arrows(-3.5,0,3.5,0, angle = 45, length=0.1, col='blue', lty=1, lwd=2)
    
19. xtick = c(-3, -2, -1, 0, 1, 2, 3)
    
20. segments(xtick,0, xtick, -0.005, lwd=2, col = 'blue')
    
21. text(xtick, -0.006, xtick, col = 'blue', font = 2, cex=0.75, pos=1)
    
22. 
    
23. #添加x轴标签
    
24. text(0, -0.02, 'I am X axis', col='red', font = 2, cex = 1.05, pos = 1)
    
25. #添加y轴标签
    
26. text(-3, 0.3, 'I am Y axis', col='red', font = 2, cex = 1.05, pos = 2, srt = 90)
    
27. 
    
28. #绘制右半部分
    
29. lines(x, y, lwd=2, col='black')
    
30. #绘制左半部分
    
31. lines(x1, y, lwd=2, col='black')

复制代码

数据本身对称与否应该与坐标无关；是不是可以理解为想把Y轴移动到图形的中心位置？

如果是想移动坐标轴可以参考这个帖子：

https://stackoverflow.com/questions/17753101/center-x-and-y-axis-with-ggplot2

drunkfish69 发表于 2020-9-29 12:31
数据本身对称与否应该与坐标无关；是不是可以理解为想把Y轴移动到图形的中心位置？

如果是想移动坐标轴可 ...

感谢您的回复，我想让一个函数的图像沿y轴对称，当前我只能画出y轴一侧的图像，怎么让其沿着y轴旋转180度。我按照您的链接试试看。谢谢

zhou1_20 发表于 2020-9-29 09:27
给你个基础绘图版本，请参考

感谢您的回复