R语言opencv包，一些基础函数

# Tue Aug 17 08:28:21 2021 -

# 字符编码：UTF-8
# R 版本：R x64 4.1 for window 11
# cgh163email@163.com
# 个人笔记不负责任，拎了个梨🍐🍈
#.rs.restartR()
require(opencv)
rm(list = ls());gc()

#操纵图像区域 Tue Aug 17 08:40:45 2021 ------------------------------

mona <- ocv_read('ocv_write。.jpg')
#矩形面积和位置 Tue Aug 17 08:41:12 2021 ------------------------------
ocv_rectangle(mona,x=400,y = 300,
              height = 700,width = 350)
# Tue Aug 17 08:37:21 2021 --修改显示的大小
myimg <- ocv_resize(mona,width = 520, height = 350)
myimg

pts <- list(x = c(184, 172, 146, 114,  90,  76,  92, 163, 258),
            y = c(72,   68,  70,  90, 110, 398, 412, 385, 210))
ocv_rectangle(myimg,
              # x=400,y = 300,
              # height = 300,width = 350,
              pts)

image.png
image.png