R语言低级绘图函数-grid

kylin王国

已于 2022-09-22 09:33:32 修改

阅读量868

点赞数

分类专栏： R语言数据分析数据可视化文章标签： r语言开发语言

于 2022-09-22 09:24:26 首次发布

本文链接：https://blog.csdn.net/weixin_47634487/article/details/126985350

版权

R语言同时被 3 个专栏收录

32 篇文章 5 订阅

订阅专栏

数据可视化

18 篇文章 0 订阅

订阅专栏

数据分析

17 篇文章 0 订阅

订阅专栏

R语言低级绘图函数-grid




# 1 -----------------------------------------------------------------------
par(bg = "white",
    fg = "black")
plot(1:5,
     1:5,
     xlim = c(0, 6),
     ylim = c (0, 6),
     type = "n")
grid(
  col = 'red',
  lty = 10,
  lwd = 3,
  equilogs = TRUE
)
box()
par(bg = "white"
    #fg = "purple"
    )

# 2 -----------------------------------------------------------------------

plot(1:5,
     1:5,
     xlim = c(0, 6),
     ylim = c (0, 6),
     type = "n")
grid(lwd = 2)
box()

# 3 -----------------------------------------------------------------------

plot(1:5,
     1:5,
     xlim = c(0, 6),
     ylim = c (0, 6),
     type = "n")
grid(lty = 1)
box()

# 3 -----------------------------------------------------------------------

plot(1:10, 1:10, type = "p", pch = 16)
lines(1:5, 1:5, lwd = 4, col = "blue")
grid(col = "blue")
box()
myplot <- function(x, y, pch = 16, line = TRUE, ...) {
  plot(x, y , type = "n")
  grid(lwd = 2, equilogs = TRUE)
  box()
  points(
    x = x,
    y = y,
    type = "p",
    pch = pch,
    ...
  )
  if (line == TRUE) {
    lines(x = x, y = y, ...)
  }
}

myplot(1:10, 1:10, pch = 17, col = 'blue')

myplot <- function(x, y, pch = 16, line = TRUE, ...) {
  plot(x, y , type = "n")
  grid(lwd = 2, equilogs = TRUE)
  box()
  points(
    x = x,
    y = y,
    type = "p",
    pch = pch,
    ...
  )
  if (line == TRUE) {
    lines(x = x, y = y, ...)
  }
}